ALSO UTILITY

: X DUP >R >NAME TUCK TYPE 6 SWAP - SPACES
   -1 S>D R@ EXECUTE NEGATE . SPACE
    0 S>D R@ EXECUTE NEGATE . SPACE
    1 S>D R> EXECUTE NEGATE . EOL ;

: Y DUP >R >NAME TUCK TYPE 6 SWAP - SPACES
   -3 S>D -2 S>D R@ EXECUTE NEGATE . SPACE
   -3 S>D -3 S>D R@ EXECUTE NEGATE . SPACE
   -3 S>D -4 S>D R> EXECUTE NEGATE . EOL ;

0 ARRAY UNARY-OPS ] D0< D0<= D0= D0<> D0>= D0> [
HERE 0 UNARY-OPS - CELL / CONSTANT N-UNARY-OPS

0 ARRAY BINARY-OPS ] D< D<= D= D<> D>= D> [
HERE 0 BINARY-OPS - CELL / CONSTANT N-BINARY-OPS

: TEST
   N-UNARY-OPS  0 DO I UNARY-OPS  @ X LOOP
   N-BINARY-OPS 0 DO I BINARY-OPS @ Y LOOP ;

TEST