Factorial

Score: 50.12 (pass)

I don't even understand the postorder hole!!

#!perl -l
($o=$_*$o%1e7||1)=~s/0*$//for 0..pop;print$o%10