var v:array [1..3500] of integer;
    n, i, j, l, r, rs:longint;
    f, g:text;

// operatii pe numere mari

begin
assign (f, 'patrate2.in'); reset (f);
assign (g, 'patrate2.out'); rewrite (g);

read (f, n);
v[1]:=1; l:=1;

for i := 1 to n do
  begin
  r:=0;
  for j := 1 to l do
    begin
    rs:=(v[j]*i*2+r) div 10;
    v[j]:=(v[j]*i*2+r) mod 10;
    r:=rs;
    end;
  while r<> 0 do
    begin
    inc (j);
    v[j]:=r mod 10;
    r:=r div 10;
    end;
  l:=j;
  end;

for i := 1 to n do
  begin
  r:=0;
  for j := 1 to l do
    begin
    rs:=(v[j]*2+r) div 10;
    v[j]:=(v[j]*2+r) mod 10;
    r:=rs;
    end;
  while r<> 0 do
    begin
    inc (j);
    v[j]:=r mod 10;
    r:=r div 10;
    end;
  l:=j;
  end;


for i := l downto 1 do write (g, v[i]);

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