Scanf.scanf "%d %d" (fun a b ->
    let rec loop i acc =
        if i > b then acc else
            let acc = if (a + b + i) mod 3 = 0 then acc + 1 else acc in
            loop (i + 1) acc
    in
    loop a 0 |> Printf.printf "%d\n"
)