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
;
( FABRIC-3.8 3.9: defs only; the DoE SENDs WL-RUN )
: WL-RUN CHAOS-FIELD CHAOS-FIELD CHAOS-FIELD ;
: WL-DONE-ARGS S" MU-DONE" S" Hera" ;