var a:array[byte]of byte;i,k,m,n:comp;begin repeat read(n);m:=1;a[m]:=1;for
n:=1to n do for i:=0to 199do begin k:=a[i]*n+k div$a;if k>0then m:=i;a[i]:=k
mod 10end;repeat write(a[m]);a[m]:=0;m:=m-1until m<1;writeln until 0>0end.