on $*:TEXT:/^[!@.]channels/Si:#:{
  var %a = 1
  while (%a <= $scon(0)) {
    scon %a
    var %c = 1
    while (%c <= $chan(0)) {
      var %chans = $iif(%chans,$ifmatch) $chan(%c)
      inc %c
    }
    inc %a
  }
  scon -r
  notice $nick Channels: %chans
}