let split_on_char sep s =
  let open String in
  let r = ref [] in
  let j = ref (length s) in
  for i = length s - 1 downto 0 do
    if get s i = sep then begin
      r := sub s (i + 1) (!j - i - 1) :: !r;
      j := i
    end
  done;
  sub s 0 !j :: !r

let () =
  let rec doit () =
    match List.map int_of_string (split_on_char ' ' (read_line ())) with
    | [a; b] -> Printf.printf "%d\n" (a + b); doit ()
    | _ -> () in
  try doit () with _ -> ()