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