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