type vector=array[0..5000] of integer;

var f1,f2:text; n,m:longint; v:vector; i,j:longint;

procedure inmultire(nr:integer);
begin
  m:=0;
  for i:=1 to v[0] do begin
    v[i]:=v[i]*nr;
    v[i]:=v[i]+m;
    m:=v[i] div 10;
    v[i]:=v[i] mod 10;
  end;
  while m>0 do begin
    inc(v[0]);
    v[v[0]]:=m mod 10;
    m:=m div 10;
  end;
end;

begin
assign(f1,'patrate2.in');
reset(f1);
assign(f2,'patrate2.out');
rewrite(f2);
read(f1,n);
v[0]:=1;
v[v[0]]:=1;
for j:=1 to n do
inmultire(j);
for j:=1 to n*n div 3 do
inmultire(8);
if n*n mod 3 =2 then inmultire(4)
else if n*n mod 3=1 then inmultire(2);
for j:=v[0] downto 1 do write(f2,v[j]);
close(f1);
close(f2);
end.