alias channels {
  var %h 1
  while (%h <= $chan(0)) {
    var %channels %channels , $+ $chan(%h)
    inc %h
  }
  msg $chan I am in the following channels - %channels
}