perl -e '$a-=$b=1;for(A..T){print$c=$a+$b,"\n";$a=$b;$b=$c;}'