alias millet { if $active == $$chan { .remove nikler.txt | var %a 1 
    while %a <= $nick(#,0) { bwrite nikler.txt -1 -1 $iif(!$regex($nick(#,%a).pnick,/^(@|&|\.|~|%)/),$nick(#,%a)) $+ $chr(160) $+ $iif(50 // %a,$crlf) | inc %a } 
    var %b 1 | while %b <= $lines(nikler.txt) { say $replace($read(nikler.txt,%b),$chr(160),$chr(32)) | inc %b }  
  }
}