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