const b=1000000;

type vec=array[0..200]of longint;

var f,g:Text;
    v:vec;
    n,x,i,j:longint;

procedure produs(var v:vec;var n:longint);
var t,j:longint;
begin
  t:=0;
  for j:=1 to n do
    begin
      v[j]:=v[j]*i+t;
      t:=v[j] div b;
      v[j]:=v[j] mod b;
    end;
  if (t>0)then
    begin
      inc(n);
      v[n]:=t;
    end;
end;


begin
assign(f,'patrate2.in');
assign(g,'patrate2.out');
reset(f);
rewrite(g);
read(f,x);
n:=1;
v[1]:=2;
i:=2;
for j:=2 to x*x do
  produs(v,n);
for i:=2 to x do
  produs(v,n);
for i:=n downto 1 do write(g,v[i]);
close(f);
close(g);
end.