/nmsg {
  set %i 1
  while (%i <= $comchan($1,0)) {
    msg $comchan($1,%i) $2-
    inc %i 1
  }
  unset %i
}