Evaluated proc checkmemo who { if {[catch "llength \$::memo($who)" res] == 0} { if { $res > 0 } { set out [memos $who]; set ::memo($who) [list]; . [bline [strip_all [nick]], you were left [tc 14 $res] memos while you were away:]\n$out} } }