Program patrate2;
 var a:array [0..1000000] of byte;
    i,j,n,l:longint;
    fi,fo:text;
procedure inmulteste(n:integer);
var t,i,s,code:integer;
    s2:string;
begin
t:=0;
 for i:=l downto 1 do  begin
                         s:=n*a[i]+t;
                             t:=s div 10;
                              a[i]:=s mod 10;
                            end;
    if t>0 then begin
                 str(t,s2);
                  l:=l+length(s2);
                 for i:=l downto length(s2)+1 do a[i]:=a[i-length(s2)];
                 for i:=1 to length(s2) do val(s2[i],a[i],code);
                 end;

end;
begin
assign(fi,'patrate2.in');
 assign(fo,'patrate2.out');
reset(fi);
 rewrite(fo);
readln(fi,n);
l:=1; a[1]:=1;
 for i:=1 to n*n do inmulteste(2);
    for i:=1 to n do inmulteste(i);
      for i:=1 to l do write(fo,a[i]);
close(fo);
end.