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