my $k=1;
for (230000..900000){
  $k*=$_
}
print $k;
# typical alg. for factorial calculation