f 1=0 f x=1+f(div x 2) m@main=readLn>>=print.f>>m