." https://github.com/skx/forth - enter BYE to exit"

CR

\

\ Define "(" as a comment-character, which just reads the next word until we reach

\ closure.

\

\ Stolen from jonesforth.

\

: ( IMMEDIATE

1

BEGIN

KEY

DUP '(' = IF

DROP

1+

ELSE

')' = IF

1-

THEN

THEN

DUP 0= UNTIL

DROP

;

: BL 32 ;

: SPACE BL EMIT ;

: SPACES 0 do SPACE loop ;

: BELL 7 emit ;

: NIP SWAP DROP ;

: TUCK SWAP OVER ;

: != = invert ;

: EVEN? 2 mod 0 = ;

: ODD? 2 mod 1 = ;