program alex;
var f:text;
    c:array[1..10000]of integer;
    k,p,d,z,n,i,j:longint;
begin
assign(f,'patrate2.in');reset(f);
readln(f,n);
close(f);
k:=1;
c[1]:=1;
p:=0;
repeat
p:=p+1;
d:=0;
for i:=1 to k do
    begin
    z:=c[i];
    c[i]:=(c[i]*2+d)mod 10;
    d:=(z*2+d)div 10;
    end;
if d<>0 then begin
             k:=k+1;
             c[k]:=d;
             end;
until(p=n*n);
d:=0;
for j:=2 to n do
    begin
    d:=0;
    for i:=1 to k do
        begin
        z:=c[i];
        c[i]:=(c[i]*j+d)mod 10;
        d:=(z*j+d)div 10;
        end;
     if d<>0 then begin
                  while d<>0 do
                        begin
                        k:=k+1;
                        c[k]:=d mod 10;
                        d:=d div 10;
                        end;
                  end;
    end;
assign(f,'patrate2.out');rewrite(f);
for i:=k downto 1 do
    write(f,c[i]);
close(f);
end.