program ss102;
var a,b,c,i,v:integer;
begin
readln(a);
v:=0;
b := a;
while a > 0 do begin
b = b div 10;
c = c + 1;
end;
for i:=0 to c do begin
b:=a mod 2;
a:=(a-b) div 2;
v:=v + b*exp(i*In(10));
writeln(c);
end.
