Block 5056
( workload-5-lite.4th -- bounded CHAOS-FIELD, SXXXIII. )
( workload-5.4th's RUN-CHAOS5 is ~2.4T words -- unusable )
( as a touch. Same CHAOS-BLOCK body, bounded self-exec. )
: CHAOS-BLOCK
  256 0 DO
    I 4 MOD 0= IF
      64 0 DO  I J + J * DROP  LOOP
    ELSE
      64 0 DO  I J * I + DROP  LOOP
    THEN
    I 8 MOD 0= IF
      128 0 DO  I J + J * I + DROP  LOOP
    THEN
  LOOP
;

Block 5057
: CHAOS-FIELD
  24 0 DO
    CHAOS-BLOCK
  LOOP
;
CHAOS-FIELD