(story:new "An adventure in text."
           :intro ((fade-in "You blink your eyes and see black.")
                   "No wait, there's something written in the blackness."
                   "You look closer.")
           :places ((place starting-room
                           :description "a bare room"
                           :details ("The paint on the walls is chipped."
                                     "There's a threadbare rug on the floor."
                                     "You don't see any furniture in the room.")
                           :exits ((:south "a crumbling archway" main-garden)))
                    (place main-garden
                           :description "an overgrown mess that would have been impressive in the past."
                           :details ("There are some wild tomatoes growing in the corner."
                                     "Some particularly large fruit trees have broken their containers."
                                     "You smell some rotting fruits.")
                           :contains (item "water fountain"
                                           :description "A large fountain towers over you."
                                           :state "The fountain is dry"
                                           :material "marble")
                           :exits ((:north "A small hut." starting-room)
                                   (:south "a small pathway" main-house)))))