var f:text;
    n,i,j:integer;
    a:array[1..200,1..200] of byte;
begin
assign(f,'oras.in');
reset(f);
readln(f,n);
close(f);
if n=4 then begin
            assign(f,'oras.out');
            rewrite(f);
            writeln(f,-1);
            close(f);
            end
else 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;
     assign(f,'oras.out');
     rewrite(f);
     for i:=1 to n do begin
        for j:=1 to n do write(f,a[i,j]);
        writeln(f);
        end;
    close(f);
    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;
     assign(f,'oras.out');
     rewrite(f);
     for i:=1 to n do begin
        for j:=1 to n do write(f,a[i,j]);
        writeln(f);
        end;
     close(f);
     end;
end.