program girland;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[1..1800000000] of byte;
n,i:integer;
k:int64;
f:text;
begin
readln(n);
k:=1;a[1]:=1;
while (k<n) do begin
for i:=1 to k do
a[k+i]:=1-a[i];
k:=k*2;

end;
writeln(k);
writeln(a[n]);
assign(f,'file.txt');
rewrite(f);
for i:=1 to k do write(f,a[i],',');
close(f);
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.