perl -e'@p=(1,1);map@p=(@p,$p[-1]+$p[-2]),A..R;$\=$,="\n";print@p'