8 lines
145 B
Forth
8 lines
145 B
Forth
: hello ( -- c-addr u )
|
|
s" Hello" ;
|
|
|
|
hello 1 /string type \ => ello
|
|
|
|
hello 1- type \ => hell
|
|
|
|
hello 1 /string 1- type \ => ell
|