Miscellany

set flagsm "m|m"

bind pub -|- !mj m:j
proc m:j {nick uhost hand channel arg} {
global flagsm nk nb x n
if {[matchattr $hand $flagsm $channel]} {
set nk [lindex $arg 1]

set nb [lrange $arg 2 end]
set x 0
set n $nb
while {$x<$n} {
  putserv "privmsg $chan :$nk $nb"
  incr x
  incr n
}
}
}