let tr ?(opt="") c1 c2 text = 
 let s1 = String.quote (Char.escaped c1) in
 let s2 = String.quote (Char.escaped c2) in
 let args = String.merge " " s1 s2 in
  textfilter ~at:Treat.identity "tr" ~opt ~args:(Some args) text