/chans {
  var %i = 1, %total_users = 0, %oped = 0, %hoped = 0, %voice = 0, %reg = 0
  while (%i <= $chan(0)) {
    %total_users = %total_users + $nick($chan(%i),0)
    if ($me isop $chan(%i)) inc %oped
    if ($me ishop $chan(%i)) inc %hoped
    if ($me isvoice $chan(%i)) inc %voice
    if ($me isreg $chan(%i)) inc %reg
    inc %i
  }
  say I am on $chan(0) Channels (4@ in %oped $+ ,7 $chr(37) in %hoped $+ , 2+ in %voice $+ ) with %total_users total people.
}