Program Oras_2;
var fi,fo : text;
    i,j,n : longint;
    a:array[0..201,0..201] of byte;

Procedure tipar;
var i:longint;
begin
    for i:=1 to n do begin
                     for j:=1 to n do write(fo,a[i,j]);
                     writeln(fo);
                     end;
end;

begin
    assign(fi,'oras.in'); reset(fi); read(fi,n);
    assign(fo,'oras.out'); rewrite(fo);

    if n=4 then write(fo,'-1')
           else begin
                if (n mod 2 = 1) then begin
                                      for i:=1 to n do
                                         for j:=i+1 to n do
                                                    if ((i+j) mod 2=1) then a[i,j]:=1
                                                                       else a[j,i]:=1;
                                      tipar;
                                      end
                                 else begin
                                      for i:=1 to n do
                                         for j:=i+2 to n do
                                                    if ((i+j) mod 2=0) then a[i,j]:=1
                                                                       else a[j,i]:=1;
                                      for i:=1 to n-1 do a[i,i+1]:=1;
                                      tipar;
                                      end;
                end;

    close(fi); close(fo);
end.