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