Someone

if ($1 == %trigger $+ users) {
  .msg $chan %left $me Users %right
  var %a 5
  while (%a > 1) {
    var %p 1,%n = Level %a %equals,%m = %n
    if (!$ulist(*,%a,1)) msg $chan %left %m None %right
    else {
      while ($ulist(*,%a,%p)) {
        var %t = $v1,%t = $+($iif($ial(%t).nick,$v1,%t),5,$chr(44),0)
        if ($len(%m %t) > 800) msg $chan %left $left(%m,-3) %right
        else var %m = %m %t
        inc %p
      }
      if (%m != %n) msg $chan %left $left(%m,-3) %right
    }
    dec %a
  }
}