Help for this page
perl -e '$a=1;for(A..J){print$a+=$b,$/,$b+=$a,$/}'
perl -e 'print$a+=$b||1,$/,$b+=$a,$/for A..J'
perl -e 'print$a+=$b,$/,$b+=$a||1,$/for A..J'