On $*:TEXT:/^[!.]masshl/Si:#: {
  if ($nick ishop $chan || $nick isop $chan) {
    var %l 1
    var %h 15
    var %x $nick($chan,0)
    var %y $ceil($calc(%x / 15))
    while (%y > 0) {
      while (%l <= %h) {
        var %masshl %masshl $+ $chr(32) $+ $nick($chan,%l)
        inc %l
      }
      msg $chan %masshl
      var %masshl
      dec %y
      inc %h 15
    }