use Catacomb qw(:const);

($c, $g, $r, $h) = Catacomb::EC::Curve->getinfo("secp160r1");
print $g->atinfp(), ": ", $g->x, ", ", $g->y, "\n";
$p = $c->mul($g, $r);
print $p->atinfp(), "\n";
