let choose_escape str xs = let rec loop = function | c::cs -> if String.contains str c then loop cs else c | _ -> Pervasives.raise Not_found in loop xs