sub stats { $p=pop;$w=int$p/3,$t=$p%3,$_[0]-$w-$t }