#!perl -l
for$n(++$_..pop){s/(.{1,6})0*$/$1*$n/e}print/(.)0*$/