alias power {
  var %x = 1, %n = $scon(0), %msg, %p, %t
  while (%x <= %n) {
    scon %x
    var %msg = %msg $+([,%x,] $scon(%x).network [,$chan(0) $(#,) --), %z = 1, %c, %@ = 0, %% = 0, %+ = 0
    while ($chan(%z)) {
      %c = $v1
      inc %t $nick(%c,0)
      if ($left($nick(%c,$me).pnick,1) isin $prefix) {
        inc % $+ $v1
        inc %p $nick(%c,0,a,$replace($v1,@,o,%,oh,+,ohv))
      }
      inc %z
    }
    %msg = %msg $+(@:,%@ - %,:,%% - +:,%+,]) <>
    inc %x
  }
  say $regsubex(%msg Power: $+([,%p,/,%t,]) ( $+ $calc(%p / %t) $+ % $+ ),/([][:-])/g,4\1)
}