type vector=array[1..5000] of byte;

var f1,f2:text; n,m,c:qword; v:vector; i,j:longint;

procedure inmultire(nr:qword);
begin
  m:=0;
  for i:=1 to v[0] do begin
    v[i]:=v[i]*nr;
    v[i]:=v[i]+m;
    m:=v[i] div 10;
    v[i]:=v[i] mod 10;
  end;
  while m>0 do begin
    inc(v[0]);
    v[v[0]]:=m mod 10;
    m:=m div 10;
  end;
end;

begin
assign(f1,'patrate2.in');
reset(f1);
assign(f2,'patrate2.out');
rewrite(f2);
read(f1,n);
v[0]:=1;
v[1]:=1;
for j:=1 to n*n do
inmultire(2);
for j:=1 to n do
inmultire(j);
for j:=c downto 1 do write(f2,v[j]);
close(f1);
close(f2);
end.