sub fact {
  my $n = shift;
  return 1 if $n <= 1;
  return 2 if $n == 2;
  return "more than three";
}