program patrate2;
type vector=array[0..10000] of byte;
var f,g:text;
        n,i:longint;
        v:vector;


procedure iofile;
begin
        assign(f,'patrate2.in');
        reset(f);
        assign(g,'patrate2.out');
        rewrite(g);
        readln(f,n);
        close(f);
end;



procedure inmultire(var v:vector;nr:longint);
var i,x,t:longint;
begin
        t:=0;
        for i:=1 to v[0] do
                begin
                        x:=v[i]*nr+t;
                        v[i]:=x mod 10;
                        t:=x div 10;
                end;
        while t<>0 do
                begin
                        inc(v[0]);
                        v[v[0]]:=t mod 10;
                        t:=t div 10;
                end;
end;



begin
        iofile;
        v[0]:=1;
        v[1]:=1;
        for i:=2 to n do
                inmultire(v,i);
        for i:=1 to n*n do
                inmultire(v,2);
        for i:=v[0] downto 1 do
                write(g,v[i]);
        close(g);
end.