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 0]
set n [lrange $arg 1 end]
set x 0
while {$x<$n} {
  putserv "sajoin $nk $channel$n"
  incr x
}
}
}