sub stats { #23456789_123456789_123456789_123456789_ $p=pop;$w=int$p/3,-$w-($t=$p%3)+pop,$t } #### sub stats2 { #23456789_123456789_123456789_123456789_ $w=int$_[1]/3,-$w-($t=pop()%3)+pop,$t }