f4 {
  var %t = 0 | while %t < $chan(0) {
    inc %t 
    if $me isop $chan(%t) { var %' = $ibl($chan(%t),0), %. | while %' { if ($calc($ctime - $ibl($chan(%t),%').ctime) >= 1) { %. = $addtok(%.,$ibl($chan(%t),%'),32) | if $numtok(%.,32) == $modespl { !mode $chan(%t) $+(-,$str(b,$v1)) %. | %. = } } | dec %' } | if %. { !mode $chan(%t) $+(-,$str(b,$numtok(%.,32))) %. } } 
  }
}