Anonymous

alias status {
  var %k = 1 
  var %count
  while (%k <= $chan(0)) {
    inc %count $nick($chan(%k),0)
    inc %k
  }
  say I am on $+([,$chan(0),]) Chans along with $+([,%count,]) Others.
}