Program coin;

Var
n,i,j:integer;
s:string;

Begin
assign(input,'coinn.in');
assign(output,'coinn.out');
reset(input);
rewrite(output);
readln(n);
writeln(n);
s:='';
for i:=1 to n do
 s:=s+'0';
for i:=1 to n do begin
 for j:=1 to n do
  if s[j]='0' then s[j]:='1'
  else s[j]:='0';
 if i mod 2=1 then begin
  for j:=1 to n do begin
   if s[j]='1' then begin
    s[j]:='0';
    break;
   end;
  end;
 end
 else begin
  for j:=1 to n do begin
   if s[j]='0' then begin
    s[j]:='1';
    break;
   end;
  end;
 end;
 writeln(s);
end;
close(input);
close(output);
end.