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