(let [{
  : flatten
  : create-corpus 
  } (require :src.story.story)]

  (let [corpus (create-corpus "src/story/story.test.dat")
        get-story (partial flatten corpus corpus.start)]
      (print "\n== POEMS ==")
      (for [_ 1 10] (print (get-story))))

  (let [corpus (create-corpus "src/story/cards.dat")
        get-story (partial flatten corpus corpus.draw)]
      (print "\n== CARDS ==")
      (for [_ 1 10] (print (get-story)))))