sub r{
#        1         2         3         4
#234567890123456789012345678901234567890123456789
$w=($_[1]-($t=$_[1]%3))/3;$l=$_[0]-$w-$t;$w,$l,$t
}