Mine

/hl {
set -lu0 %x $nick(#,0) | while (%x) { set -lu0 %y %y $nick(#,%x) | dec %x } | msg # %y : $1-
}