Mine

alias chans {
  var %s = $scon(0),%g = 1
  while (%g <= %s) {
    scid $scon(%g)
    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
    }
    inc %g
  }
  echo -a 3 $+ %chano 4 $+ %chanv 7 $+ %chanr
}