Scanf.scanf "%d" (fun n ->
    let sum =
        let rec loop i acc =
            if i = 0 then acc else loop (i / 2) (acc + i)
        in
        loop n 0
    in

    Printf.printf "%d\n" (n * 2 - sum)
)