let R() = stdin.ReadLine() let rec score = function | 0L -> 0L | x -> x + score(x / 2L) let N = R() |> int64 (N * 2L) - (score N) |> stdout.WriteLine