alias getnicks {
  if ($isid) {
    var %list, %a = 1
    while (%a <= $nick($$1,0)) {
      set %list %list $nick($$1,%a)
      inc %a 1
    }
return %list
  }
}