@b=(0,1);@b=($b[1],$b[0]+$b[1])for(2..pop);print$b[1];