何も説明してはいませんが

以上の知識の応用として、Hello Worldを書いてみましょう。

: add + ;
: sub - ;
: > 4 add ;
: < 4 sub ;
: + dup dup @ 1 add swap ! ;
: - dup dup @ 1 sub swap ! ;
: . dup @ emit ;
: , dup key swap ! ;
macro
: [ p: repeat ['] dup compile ['] @ compile p: if ;
: ] 1 literal, p: else 0 literal, p: then p: while ;
forth
1024 allocate dup 1024 add
: clr repeat 4 sub dup 0 swap ! over over = not while drop ; clr
: main

> + + + + + + + + + [ < + + + + + + + + > - ] < . > + + + + + + + [ < + + + + >
- ] < + . + + + + + + + . . + + + . [ - ] > + + + + + + + + [ < + + + + > - ] <
. > + + + + + + + + + + + [ < + + + + + > - ] < . > + + + + + + + + [ < + + + >
- ] < . + + + . - - - - - - . - - - - - - - - . [ - ] > + + + + + + + + [ < + +
+ + > - ] < + . [ - ] + + + + + + + + + + .

; main bye