type sir=array[0..10000] of longint;
var f,g:text;
    a:sir;
    n,i:longint;
function inm(b:sir; x:longint):sir;
 var i,r:longint;
 begin
  r:=0;
  for i:=1 to b[0] do begin
   b[i]:=b[i]*x+r;
   r:=b[i] div 10;
   b[i]:=b[i] mod 10;
  end;
  while r<>0 do begin
   inc(b[0]);
   b[b[0]]:=r mod 10;
   r:=r div 10;
  end;
  inm:=b;
 end;
begin
 assign(f,'patrate2.in'); reset(f);
 assign(g,'patrate2.out'); rewrite(g);
 read(f,n);
 a[0]:=1;
 a[1]:=1;
 for i:=1 to n*n mod 20 do
  a:=inm(a,2);
 for i:=1 to n*n div 20 do
  a:=inm(a,1048576);
 for i:=2 to n do
  a:=inm(a,i);
 for i:=a[0] downto 1 do
  write(g,a[i]);
 writeln(g);
 close(f);
 close(g);
end.