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