let tee ?(opt="") (files:filename list) text = 
  let args = List.map String.quote files in 
  let args = String.big (String.merge " ") args in
  textfilter ~at:Treat.identity "tee" ~opt ~args:(Some args) text