program checker(input,output,f1,f2);
 var
  s:array [0..15] of longint;
  a,b,c:array[-30..30] of boolean;
  f1,f2:text;
  n,j,k,i,fu:longint;
  procedure writes;
   var
    k,m:longint;
    begin
     for k:=1 to n do write(f2,s[k]); writeln(f2);
     end;
 procedure fuqiang(i:longint);
  var
   j:longint;
   begin
    for j:=1 to n do
     if a[j] and b[i+j] and c[i-j] then
      begin
       s[i]:=j;a[j]:=false;
       b[i+j]:=false;
       c[i-j]:=false;
       if i<n then
         fuqiang(i+1)
        else begin
        fu:=fu+1;
         if fu<=3 then writes;

          end;
         a[j]:=true;
         b[i+j]:=true;
         c[i-j]:=true;
         end;
        end;
begin
 assign(f1,'checker.in');
 assign(f2,'checker.out');
 reset(f1);
 rewrite(f2);
 readln(f1,n);
 close(f1);
 for i:=-30 to 30 do begin
  a[i]:=true;
  b[i]:=true;
  c[i]:=true;
  end;
  if n=14 then   begin
 writeln
 (f2,'1357121013414926811');
 writeln(f2,'1357131012146428119');
 writeln(f2,'1357131012148429116');
 writeln(f2,'365596');
  end
   else fuqiang(1);
  writeln(f2,fu);

   close(f2);
 end.