let grep ?(opt="") regexp text = textfilter ~at:Treat.quote "grep" ~opt ~args:(Some(regexp)) text