alias chans {
  var %x = 1
  while (%x <= $chan(0)) {
    var %chano = $iif($me isop $chan(%x),%chano @ $+ $chan(%x),%chano)
    var %chanv = $iif($me isvoice $chan(%x),%chanv + $+ $chan(%x),%chanv)
    var %chanr = $iif($me isreg $chan(%x),%chanr %chanr,%chanr)
    inc %x
  }
  echo -a 3 $+ %chano 4 $+ %chanv 7 $+ %chanr
}