sub record {
#        1         2         3         4
#2345678901234567890123456789012345678901234567
($a,$b)=@_;$d=$b%3;$c=($b-$d)/3;$c,$a-$c-$d,$d;
}