compoblast {
  var %i = 1
  var %line = COMPO:
  while (%i <= $nick($chan,0)) {
    if (; $+ $nick($chan,%i) $+ ; !isin ;joule;GIRUGAMESH;m0d;TMAnna;tumult;) {
      set %line %line $nick($chan,%i)
    }
    if ($len(%line) > 250) {
      say %line
      set %line COMPO:
    }
    inc %i
  }
  say %line
}