$a=shift;@b=(0,1);push@b,$b[-2]+$b[-1]while$#b<$a;print"$b[-2]\n"; [download]
In reply to fibo's 66 chars by Oromis92