Evaluated proc lastblob who { join [map [lreverse [lastblob___ $who]] {x {. <[second $x]> [last $x]}}] \n }