let sed ?(opt="-e") prog text = textfilter ~at:Treat.quote "sed" ~opt ~args:(Some(prog)) text