let ``No.47 ポケットを叩くとビスケットが２倍`` () =
    let N = int <| stdin.ReadLine()
    let rec f n c =
        if N < n then c
        elif N = n then c
        else f (n<<<1) (c+1)
    f 1 0
    |> printfn "%d"
``No.47 ポケットを叩くとビスケットが２倍`` ()