--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/makeparam.pl	Mon Sep 04 21:40:33 2017 +0900
@@ -0,0 +1,18 @@
+
+sub random_param {
+    my @x;
+    for ( 1..14 ) {
+        #my $r = ( int rand 9 ) + 1;   # 1 .. 9
+        my $r = ( int rand 19 ) - 9;   # -9 .. 9
+        redo if $r == 0;
+        push @x, $r;
+    }
+    print join ' ' => @x;
+    print "\n";
+}
+
+
+for ( 1..1000 ) {
+    random_param();
+}
+