17 my %CTYPE = ("niceprime" => "primeproj",
18 "prime" => "primeproj",
19 "binpoly" => "binproj",
20 "binnorm" => "binproj");
26 my $beta = ($kind eq "binnorm") ? "0x".gather("beta") : "";
33 print "curve $name $kind\n";
34 $p = "0x".$p if $kind =~ /bin/;
35 my @l = ("./ecptd", "$kind $p $beta $CTYPE{$kind} 0x$a 0x$b", "0x$r", $h, $g);
36 # print join(" ", @l), "\n";