my $v1 = PARI(12);
my $v2 = PARI(8);
print PARI(qq{mygcd($v1,$v2)});