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