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