main = do
  li <- getLine
  let n = read li
  print $ compute n

compute n = inner 0 1 where
  inner cnt bis
    | n == bis = cnt
    | n > bis*2 = inner (cnt+1) (bis*2)
    | otherwise = cnt+1