alias masshl {
  if ($left($1,1) == -) { var %massu $iif(a isin $1 || o isin $1 || h isin $1 || v isin $1 || r isin $1,$remove($1,-),a) | tokenize 32 $2- }
  else { var %massu a }
  var %x 1 | var %msg $iif($1,=> $+ $1-) | tokenize 32
  while (%x <= $nick(#,0,%massu)) { if ($nick(#,%x,%massu) != $me) { tokenize 32 $1- $nick(#,%x,%massu) }
    inc %x
  }
  tokenize 32 $1- %msg
  while ($$1-) { say $1-30 | tokenize 32 $31- }
}
menu nicklist {
  .Mass HL {
    var %msg $?="Message?" | var %msg $iif(%msg, :::  $+ %msg) | tokenize 32 $replace($snicks,$chr(44),$chr(32))
    tokenize 32 $1- %msg
    while ($$1-) { say $1-30 | tokenize 32 $31- }
  }