-module(l).
-export([m/0]).
m()->[io:write(f(X))>io:nl()||X<-"

d"++[1000]].
f(1)->1;f(X)->Y=f(X-1),hd([Y*N||N<-lists:seq(1,X),Y*N rem X<1]).