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

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