const
    nMax=1000000;

var n,i,j,x,v:longint;
    numarator,numitor:array[1..nMax] of longint;
    fractie,fr:real;

Begin
      read(n);
      x:=1;
      i:=1;
      repeat
       numarator[x]:=i;
       if (x mod n)=0 then inc(i);
       inc(x);
      until x>n*n;

      i:=1;
      x:=1;
      repeat

       numitor[x]:=i;
       inc(x);
       inc(i); if i>n then i:=1;

      until x>n*n;

     for i:=1 to n*n-1 do
       for j:=i+1 to n*n do
        begin
         fractie:=numarator[i]/numitor[i];
         fr:=numarator[j]/numitor[j];
         if fractie=fr then
          begin
           numarator[i]:=0;
           numarator[j]:=0;
           numitor[i]:=0;
           numitor[j]:=0;
          end;
        end;
    writeln;
     x:=0;
      for i:=1 to n*n do if numarator[i]<>0 then inc(x);
    //  write(x);
     for i:=1 to n*n do write(numarator[i]);
      writeln;
     for i:=1 to n*n do write(numitor[i]);


End.