var t1,t2,t3,t,i,n : longint;
    f,g : text;
begin
assign(f,'12perm.in');reset(f);
assign(g,'12perm.out');rewrite(g);
read(f,n);
t1:=1; t2:=2; t3:=6;
if n=1 then writeln(g,'1')
else
  if n=2 then writeln(g,'2')
  else
    if n=3 then writeln(g,'6')
    else
    begin
      for i:=4 to n do
      begin
        t:=(t2 and 1048575+t3 and 1048575+(2*(i-2))and 1048575)and 1048575;
        t1:=t2;t2:=t3;t3:=t;
      end;
      writeln(g,t);
    end;
close(g);
end.