alias chanlist {
  var %z = $chan(0)
  var %x = 1
  while (%x <= %z ) {
    %chans.im.on = %chans.im.on $chan(%x)
    inc %x
    if (%x > %z) return %chans.im.on | .timer 1 .1 unset %chans.im.on
  }
}