alias hlall {
  var %a 1, %c #Zenith
  while (%a <= $nick(%c,0,vho)) {
    var %names %names $nick(%c,%a,vho)
    inc %a
  }
  msg %c $gettok(%names,1-30,32)
  if ($gettok(%names,0,32) > 30) {
    msg %c $gettok(%names,31-,32)
  }
}