Evaluated proc revise {expr sub} {string map {> >} [regsub -all $expr [lsearch -regexp -inline [lreverse [chomp [split [irclog 250] \n]]] $expr] $sub]}