Select Code to Download

            foreach $it (1..$nt) {
                $tmp  = sprintf "%s", $some_vector[$it-1];
...
}
                $tmp = $tmp."\n";
                print OUT $tmp;

#--- powers
$ib=10;
...
print "$x2\n";
$x2 = "0." . "0"x int($ib-1)/2 ."1";
print "$x2\n";

     ....
            $nvar = 9;
...
   return @values;
}