sub ss{
#23456789_123456789_123456789_123456789_123456789_
$l=-($t=$_[1]%3)-($w=(-$t+pop)/3)+pop;$w,$l,$t
}