let minus x y = let pattern=("\\(.*\\)"^y^"\\(.*\\)") in match (extract_groups (Str.regexp pattern) x) with | [] -> x | l -> String.big (^) l