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 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;
for i:=2 to n do
    for j:=1 to i-1 do
       if ((i+j) mod 2)=0 then a[i,j]:=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
assign(f,'oras.out');
rewrite(f);
writeln(f,-1);
close(f);
end;
end.