DouKaku?

: PRINT ( i j -- , print formated i * j = i*j )
2DUP SWAP . ." *" SPACE . ." =" SPACE * 2 .R CR ;

: KUKU ( -- , print all kuku )
10 1 DO
  10 1 DO J I
    PRINT
  LOOP
LOOP ;

KUKU