alias autojoinchans {
  var %jr $hget(nth,joinchans), %n $numtok(%jr,4), %i $1
  inc %i
  if (%i > %n) { return }
  join $gettok(%jr,%i,4)
  .timer 1 2 autojoinchans %i
}
alias join {
  set -u10 %lastjoin $1-
  if ($network == Buzzen) {
    join $gettok($1-,1,44)
    .timer 1 2 join $gettok($1-,2-,44)
    ;join $chr(37) $+ $remove($1-,$chr(37)) | halt
  }
  else { join $1- }
}