on 5:TEXT:!channels*:#: {
  var %a = 1
  while $scon(%a) {
    var %b = $ifmatch, %c = 1
    scid %b
    while $chan(%c) {
      set %channels %channels $+($chan(%c),$+ $chr(44),$chr(32),)
      inc %c
    }
    inc %a
  }
  scid -r
  notice $nick 14Channels:4 $deltok(%channels,$numtok(%channels,32),44) | unset %channelsls
}