#!perl -l
for$n(++$_..pop){$_*=$n,($_)=/(.{0,9}[^0])0*$/}print chop