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.