-module m.
-export[m/0].
m()->io:write(g(2,100)).
p(0)->1;p(M)->10*p(M-1).
f(_,0)->1;f(N,M)->N*f(N,M-1)rem p(1000).
g(N,0)->N;g(N,M)->g(f(N,10),M-1).