Block 4820
: MIXED-OPS ( -- )
  50 0 DO
    I 5 MOD CASE
      0 OF 42 DUP * DROP ENDOF
      1 OF 100 0 DO I DROP LOOP ENDOF
      2 OF 999 123 - ABS . ENDOF
      3 OF HERE @ DROP ENDOF
      4 OF BASE @ DUP . BASE ! ENDOF
    ENDCASE
  LOOP ;

Block 4821
: STACK-CHURN ( -- )
  30 0 DO
    I DUP DUP + SWAP DROP
    I 2 * DUP ROT + DROP DROP
  LOOP ;

Block 4822
: MAIN
  1000 0 DO
    MIXED-OPS
    STACK-CHURN
  LOOP
;

MAIN