on *:TEXT:@channels:#: { 
  var %chans 1
  while (%chans <= $chan(0)) {
    set %chanlist %chanlist $chan(%chans) -
    inc %chans
  }
  msg $chan %chanlist
}