alias ochans {
  var %a = 1
  while ($chan(%a)) {
    if ($me isop $chan(%a)) inc %b
    inc %a
  }
  return %b
}