Evaluated proc lastblob who { if { [nick] == $who } { set ok [chomp [lreverse [lastblob___ $who]]] } { set ok [lreverse [lastblob___ $who]] }; join [map $ok {x {. <[second $x]> [last $x]}}] \n }