open System let N = int <| Console.ReadLine() let mutable i, num = 0 , 1 while num < N do num <- num * 2 i <- i + 1 done printfn "%d" i