var a,b:word;x:char;begin
repeat
read(a);repeat
read(x,b);a:=b+a*256until eoln;writeln(32-ln(not a+1.0)/0.7:0:0)until 1=0end.