program Project2;
//const n=5;
var c:array[1..100] of integer;
f1,f2:text;
n:integer;
procedure pr(inn:integer;ic:integer);
var i:integer;
begin
c[inn]:=ic;
if inn=n then begin for i:=1 to n do write(f2,c[i]);
writeln(f2);
end
else begin pr(inn+1,0);pr(inn+1,1);
end;
end;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,n);
pr(1,0);
pr(1,1);
close(f1);
close(f2);
end.