let () =
  let replace s1 s2 =
    Str.global_replace (Str.regexp_string s1) s2
  in
  let line = read_line () in
  replace "apple" "APPLE" line
  |> replace "peach" "apple"
  |> replace "APPLE" "peach"
  |> print_endline
;;