Evaluated proc revise {expr sub} {string map "> >[^O]" [regsub -all $expr [lsearch -regexp -inline [lreverse [lfilter {s/(.+?)/(.+?)/} [ircllog 250]]] $expr] $sub]}