let solve a b = let a' = a - 23 |> max 0 |> min 3 and b' = 25 - b |> max 0 |> min 3 in a' + b' let () = let a, b = read_line () |> fun l -> Scanf.sscanf l "%d %d" (fun a b -> (a, b)) in solve a b |> string_of_int |> print_endline