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

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

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

0 ARRAY BINARY-OPS ] < <= = <> >= > [
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