[ 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    (   --> )