alias chans {
  var %x 1
  if ($1 == o) {
    while (%x <= $chan(0)) { 
      if ($me isop $chan(%x)) var %chano %chano @ $+ $chan(%x)
      inc %x
    }
  }
  if ($1 == v) {
    while (%x <= $chan(0)) { 
      if ($me isvoice $chan(%x)) var %chanv %chanv + $+ $chan(%x)
      inc %x
    }
  }
  if ($1 == r) {
    while (%x <= $chan(0)) { 
      if ($me isreg $chan(%x)) var %chanr %chanr $chan(%x)
      inc %x
    }
  }
  if ($1 == a) {
    while (%x <= $chan(0)) { 
      if ($me isop $chan(%x)) var %chano %chano @ $+ $chan(%x)
      if ($me isvoice $chan(%x)) var %chanv %chanv + $+ $chan(%x)
      if ($me isreg $chan(%x)) var %chanr %chanr $chan(%x)
      inc %x
    }
  }
  return %chano %chanv %chanr
}