\ 1. Definizione della stringa
: HELLO$ \ -- caddr
C" Hello there " ;
\ 2. Definizione della parola di test che esegue tutte le stampe
: TEST
HELLO$ COUNT TYPE
C" \n" \ Stampa un ritorno a capo esplicito per chiarezza
HELLO$ 3 + C@ EMIT
HELLO$ 4 + 4 TYPE
;
\ 3. Esecuzione della parola di test
TEST
XCAxLiBEZWZpbml6aW9uZSBkZWxsYSBzdHJpbmdhCjogSEVMTE8kIFwgLS0gY2FkZHIgCiAgQyIgSGVsbG8gdGhlcmUgIiA7CgpcIDIuIERlZmluaXppb25lIGRlbGxhIHBhcm9sYSBkaSB0ZXN0IGNoZSBlc2VndWUgdHV0dGUgbGUgc3RhbXBlCjogVEVTVAogIEhFTExPJCBDT1VOVCBUWVBFIAogIEMiIFxuIiBcIFN0YW1wYSB1biByaXRvcm5vIGEgY2FwbyBlc3BsaWNpdG8gcGVyIGNoaWFyZXp6YQogIEhFTExPJCAzICsgQ0AgRU1JVAogIEhFTExPJCA0ICsgNCBUWVBFCjsKClwgMy4gRXNlY3V6aW9uZSBkZWxsYSBwYXJvbGEgZGkgdGVzdApURVNUCg==