18 lines
390 B
Text
18 lines
390 B
Text
|
[ say "The word "
|
||
|
|
dup echo$
|
||
|
|
names find names found iff
|
||
|
|
[ say " exists." ]
|
||
|
|
else
|
||
|
|
[ say " does not exist." ] ] is exists? ( $ --> )
|
||
|
|
|
||
|
|
|
||
|
|
[ $ "Please enter a name: " input
|
||
|
|
cr
|
||
|
|
dup exists?
|
||
|
|
cr cr
|
||
|
|
dup say "Creating " echo$
|
||
|
|
say "..."
|
||
|
|
$ "[ stack ] is " over join quackery
|
||
|
|
cr cr
|
||
|
|
exists? cr ] is task ( --> )
|