var f,g:text;
    q:qword;
    n,i:longint;
begin
 assign(f,'patrate2.in'); reset(f);
 assign(g,'patrate2.out'); rewrite(g);
 read(f,n);
 q:=1;
 for i:=1 to n do
  q:=q*i;
 q:=q*(1 shl (n*n));
 writeln(g,q);
 close(f); close(g);
end.