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

##</code><code>##

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