#!perl -l
$_=1;for$.(1..pop){$_=$_%10**6*$.;s/0*$//}print chop