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