my $kind = shift;
my $p = gather("p");
+my $beta = ($kind eq "binnorm") ? "0x".gather("beta") : "";
my $a = gather("a");
my $b = gather("b");
my $r = gather("r");
print "curve $name $kind\n";
$p = "0x".$p if $kind =~ /bin/;
-system "./ecptd", "$kind $p $CTYPE{$kind} 0x$a 0x$b", "0x$r", $h, $g;
+my @l = ("./ecptd", "$kind $p $beta $CTYPE{$kind} 0x$a 0x$b", "0x$r", $h, $g);
+# print join(" ", @l), "\n";
+system @l;