Evaluated proc rquotetopic {{num 25}} {set topic [rpick [lremove [nlsplit [strip_all [irclog_no_tcl $num]] {\n}]]; groove topic [channel] $topic;}