sub fact {
my $n=shift;
if($n==0 || $n==1) {
return 1;
}
return $n*fact($n-1);
}

print fact(107);
print "\nOk\n";