var f,g:text;
    i,j,n:longint;
    a:array[0..201,0..201] of byte;

procedure afisare;
var i:longint;
begin
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(g,a[i,j]);
      writeln(g);
    end;
end;

begin
  assign(f,'oras.in');
  reset(f);
  assign(g,'oras.out');
  rewrite(g);
  readln(f,n);
  if n=4 then
    write(g,'-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;
          afisare;
        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;
            afisare;
        end;
    end;
  close(f);
  close(g);
end.