DB<14> $i=4; for $x (1..9) { next if $x==$i; $p = $i*$x; $C=int($p/10); $S=$p%10;  print "$i * $x = $p \t$C $S\n" }
4 * 1 = 4       0 4
4 * 2 = 8       0 8
4 * 3 = 12      1 2
4 * 5 = 20      2 0
4 * 6 = 24      2 4
4 * 7 = 28      2 8
4 * 8 = 32      3 2
4 * 9 = 36      3 6

##</code><code>##

#                                 987654321
@carry0 = (1,2)   , $carry0 =        vec(11)
@carry1 = (3)     , $carry1 =      vec(0100) 
@carry2 = (5,6,7) , $carry2 =   vec(1110000) 
@carry3 = (8,9)   , $carry3 = vec(110000000)