alias nbul {
  var %nbul $+(*,$1,*)
  var %+ $lines(nick.txt) | while %+ {
    if %nbul iswm $read(nick.txt,%+) {
    msg #kanal $read(nick.txt,$readn) }
    dec %+
  }
}