let ``No.47 ポケットを叩くとビスケットが２倍`` () =
    let N = int <| stdin.ReadLine()
    Seq.unfold (fun n -> Some(n,n<<<1)) 1
    |> Seq.takeWhile ((>)N)
    |> Seq.length
    |> printfn "%d"
``No.47 ポケットを叩くとビスケットが２倍`` ()