sub record { # 1234567890123456789012345678901234567890 $w=($_[1]-($t=$_[1]%3))/3,$_[0]-$w-$t,$t }