Scanf.scanf "%f %f" (fun a b ->
    let i x = x *. x *. x /. 3. -. (a +. b) *. x *. x /. 2. +. a *. b *. x in

    Printf.printf "%f\n" @@ i a -. i b
)