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