#!/usr/local/bin/perl
# Jaime Prilusky, 2009

  my $num = $ARGV[0];
  print fact($num),"\n";

sub fact {
  my($n)=@_;
  return 1 if ($n < 2);
  return $n * fact($n - 1);
}