Someone

alias find { 
  if ($comchan($1,0)) { 
    var %y = 1 
    while (%y <= $scon(0)) { 
      .scon %y 
      var %string, %x = 1 
      while ($comchan($1,%x)) { 
        var %string = %string $+ $iif(%string,$chr(44)) $comchan($1,%x) 
        inc %x 
      } 
      if (%string) //echo -a $server $+ : $1 is on: %string 
      inc %y 
    } 
    .scon -r 
  } 
  else echo -a $1 is not on any channels I am on. 
}