Scanf.scanf "%d" (fun n ->
    let rec loop i prev acc =
        if i > n then acc else
            let acc = if n / i = prev then acc else acc + 1 in
            loop (i + 1) (n / i) acc
    in
    loop 2 n 1 |> Printf.printf "%d\n"
)