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