Factorial

Score: 51.12 (pass)

#!perl -l
($}=$}*$_%1e9)=~s/0+$//for(++$}..pop);print$}%10