{$APPTYPE CONSOLE}

var n,i,j:integer;
a:array [0..1000] of 0..1;
begin
 assign(input,′input.txt′); reset(input);
 assign(output,′output.txt′); rewrite(output);
 read(n);
 fillchar(a,sizeof(a),0);
 repeat
  for j:=1 to n do
   write(a[j],′ ′);
   writeln;
  i:=n;
   while a[i]=1 do
    begin
     a[i]:=0;
     dec(i);
    end;
   a[i]:=1;
 until i=0;
end.