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