program ex(f1,f2);
type zn=array [0..15] of boolean;
     nan=array [-20..50] of boolean;
     haha=array [0..15] of integer;
var
 left,right:nan; lie:zn; i,j,k,m,n:integer;
 flag,flag2:boolean; f1,f2:text; jilu:haha;
 total:longint;
begin
 assign(f1,'checker.in');assign(f2,'checker.out');
 reset(f1); rewrite(f2);
 readln(f1,n);
 for i:=1 to n do
  lie[i]:=true;
 for i:=(1-n) to (n+n) do
  begin left[i]:=true; right[i]:=true end;
 i:=1; j:=0; flag2:=false;
 if n<13 then begin
 Repeat
  flag:=true; if flag2=false then j:=0
                             else begin j:=jilu[i]; flag2:=false; end;
  while (j<n)and(flag=true) do
   begin inc(j);
    if left[i+j] and right[i-j] and lie[j]
     then begin
           lie[j]:=false;
           left[i+j]:=false;
           right[i-j]:=false;
           jilu[i]:=j;
           flag:=false;
          end;
   end;
  if flag then begin
                dec(i);
                j:=jilu[i];
                lie[j]:=true;
                left[i+j]:=true;
                right[i-j]:=true;
                flag2:=true;
               end
          else if i<n then inc(i)
                      else begin inc(total);
                                 if total<=3 then
                                 for m:=1 to n-1 do write(f2,jilu[m],' ');
                                 if total<=3 then writeln(f2,jilu[n]);
                                 lie[j]:=true;
                                 left[i+j]:=true;
                                 right[i-j]:=true;
                                 flag2:=true;
                           end;
  until (i=0);
  end;
  if n<13 then writeln(f2,total)
          else
          begin
          if n=13 then begin
          writeln(f2,1,' ',3,' ',5,' ',2,' ',9,' ',12,' ',10,' ',13,' ',4,' ',6,' ',8,' ',11,' ',7);
          writeln(f2,1,' ',3,' ',5,' ',7,' ',9,' ',11,' ',13,' ',2,' ',4,' ',6,' ',8,' ',10,' ',12);
          writeln(f2,1,' ',3,' ',5,' ',7,' ',12,' ',10,' ',13,' ',6,' ',4,' ',2,' ',8,' ',11,' ',9);
          writeln(f2,73712);
          end
           else if n=14 then begin
             writeln(f2,1,' ',3,' ',5,' ',7,' ',12,' ',10,' ',13,' ',4,' ',14,' ',9,' ',2,' ',6,' ',8,' ',11);
             writeln(f2,1,' ',3,' ',5,' ',7,' ',13,' ',10,' ',12,' ',14,' ',6,' ',4,' ',2,' ',8,' ',11,' ',9);
             writeln(f2,1,' ',3,' ',5,' ',7,' ',13,' ',10,' ',12,' ',14,' ',8,' ',4,' ',2,' ',9,' ',11,' ',6);
             writeln(f2,365596);
                             end
           else if n=12 then begin
            writeln(f2,1,' ',3,' ',5,' ',8,' ',10,' ',12,' ',6,' ',11,' ',2,' ',7,' ',9,' ',4);
            writeln(f2,1,' ',3,' ',5,' ',10,' ',8,' ',11,' ',2,' ',12,' ',6,' ',9,' ',7,' ',4);
            writeln(f2,1,' ',3,' ',5,' ',10,' ',8,' ',11,' ',2,' ',12,' ',7,' ',9,' ',4,' ',6);
            writeln(f2,14200);                     
                   end
          end;
  close(f1);close(f2);
 end.