NHIPHAN PASCAL

const
      fin='nhiphan.INP';
      fon='nhiphan.OUT';
      max=10;
var
   n: longint;
   x:array[1..max] of byte;
Procedure vet(i:byte);
var k,j:byte;
begin
    for j:=0 to 1 do
    begin
        x[i]:=j;
        if i=n then
        begin
            for k:=1 to n do write(x[k],' ');
            writeln;
        end
        else vet(i+1);
    end;
end;

begin
     assign(input,fin);reset(input);
     assign(output,fon);rewrite(output);
     readln(n);
     vet(1);
     close(input);close(output);
end.