program ex(input,output);
var i,n:integer;
    a,d,up:array[0..100] of integer;
procedure out;
var i:integer;
begin
  for i:=1 to n do write(a[i]:2);
  writeln
end;
begin 
  readln(n);
  for i:=1 to n do a[i]:=0;
  for i:=0 to n do up[i]:=i;
  a[1]:=1;
  repeat
    out;
    i:=up[n];
    up[n]:=n;
    a[i]:=1-a[i];
    up[i]:=up[i-1];
    up[i-1]:=i-1;
  until i=0;
end.