open Str let () = let a, b = read_line () |> split (regexp_string " ") |> List.map int_of_string |> fun lst -> (List.nth lst 0, List.nth lst 1) in print_int (a - (-b))