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