18 lines
390 B
Plaintext
18 lines
390 B
Plaintext
[ 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 ( --> )
|