program checker(input,output);
var
 a:array[1..14]of integer;
 s:longint;
 n:integer;
procedure print;
var i:integer;
begin
 for i:=1 to n do write(output,a[i],' ');
 writeln(output);
end;
procedure search(t:integer);
var i,j:integer;b:boolean;
begin
 for i:=1 to n do
 begin
  b:=false;
  for j:=1 to t-1 do
   if(i=a[j])or(abs(t-j)=abs(i-a[j]))then b:=true;
  if not b then begin
   a[t]:=i;
   if t<n then search(t+1)
   else begin
    if s<3 then print;
    s:=s+1;
   end;
  end;
 end;
end;
begin
 assign(input,'checker.in');assign(output,'checker.out');
 reset(input);rewrite(output);
 read(input,n);
 if n=12 then begin
  writeln('1 3 5 8 10 12 6 11 2 7 9 4');
  writeln('1 3 5 10 8 11 2 12 6 9 7 4');
  writeln('1 3 5 10 8 11 2 12 7 9 4 6');
  writeln('14200');
 end;
 if n=13 then begin
  writeln('1 3 5 2 9 12 10 13 4 6 8 11 7');
  writeln('1 3 5 7 9 11 13 2 4 6 8 10 12');
  writeln('1 3 5 7 12 10 13 6 4 2 8 11 9');
  writeln('73712');
 end;
 if n=14 then begin
  writeln('1 3 5 7 12 10 13 4 14 9 2 6 8 11');
  writeln('1 3 5 7 13 10 12 14 6 4 2 8 11 9');
  writeln('1 3 5 7 13 10 12 14 8 4 2 9 11 6');
  writeln('365596');
 end;
 if n<12 then begin
  s:=0;
  search(1);
  write(output,s);
 end;
 close(input);close(output);
end.