sub fib {
  my $nth = shift;
  (caller)[3] eq 'fib' or $nth !~ m{^\d+$} or @_ and die $fib_die_msg;
  return $nth if $nth <= 1;
  return fib( $nth - 1 ) + fib( $nth - 2 );
}