let biscuit n = let rec f target n acc = if n >= target then acc else f target (n*2) (acc+1) f n 1 0 let n = stdin.ReadLine() |> int biscuit n |> printfn "%i"