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