const b=1000000;

type vec=array[0..2000]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;
  while (t>0)do
    begin
      inc(n);
      v[n]:=t;
      t:=t div b;
    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);
write(g,v[n]);
for i:=n-1 downto 1 do
  begin
    if (v[i]<b div 10)then
      begin
        j:=v[i];
        x:=0;
        if (j=0)then x:=1;
        while (j>0)do
          begin
            inc(x);
            j:=j div 10;
          end;
        for j:=1 to 6-x do write(g,0);
      end;
    write(g,v[i]);
  end;
close(f);
close(g);
end.