($a,$b) = (0,1);
($a < $b ? $a : $b) = $a+$b
  for (1..$n);
print $n%2 ? $a : $b, "\n"