after   append   apply   array   binary   break
catch   chan   clock   close   concat   continue
dict   eof   error   eval   expr   fblocked
fcopy   fileevent   flush   for   foreach   format
gets   global   if   incr   info   interp
join   lappend   lassign   lindex   linsert   list
llength   lrange   lrepeat   lreplace   lsearch
lset   lsort   namespace   package   pid   proc
puts   read   regexp   regsub   rename   return
scan   seek   set   split   string   subst
switch  tell   time   trace   unset   update
uplevel   upvar   variable   vwait   while

bind pub n !tcl tcleval
 
proc tcleval {nick host hand chan arg} {
    catch [list uplevel #0 $ag] error
    foreach line [split $error "\n"] {
        if {$line!=""} {
            putserv "PRIVMSG $chan :\002TCL ->\002 $line"
        }
    }
    putserv "PRIVMSG $chan :\002Done.\002"
}