program factorial;
var p,s,n,m,i:integer;
    f,g:text;
begin
assign (f,'fact.in');
reset(f);
assign (g,'fact.out');
rewrite(g);
read (f, p);
i:=0;
n:=1;
repeat
        i:=i+1;
        n:=n*i;
        m:=n;
        s:=0;
        repeat
                s:=s+1;
                m:=m div 10;
        until m=0;
until (s=p);

write(g,n);

close(f);
close(g);
end.