perl -le'print$a+=$b,$/,$b+=$a||1for A..J'