let regexp ?(flags = []) pat = let opts = List.map (function | `CASELESS -> `Caseless ) flags in Re_perl.compile_pat ~opts pat