: a tuck + swap 2* 1 +do 1- dup c@ over i + c! dup i 1+ type cr 2 +loop ;
stdin slurp-fid a