sub fact4{  
  #no recursion at all
  my $n = Math::BigInt->new(1);
  foreach my $i (map Math::BigInt->new($_), 1..shift) {
    $n = Math::BigInt->new($i->bmul($n));
  }
  return $n;
}