pretty printing markov generated books

1 files changed, 8 insertions, 1 deletions

diff --git a/toplevel.scm b/toplevel.scm
index ee7bcca..d000af8 100644
--- a/toplevel.scm
+++ b/toplevel.scm
@@ -17,10 +17,17 @@
                         '()
                         limits))
 
+
 (define (make-a-bible-verse)
   (generate-until-word '("startofverse" "startofchapter" "startofbook")))
 
 (define (make-a-book-of-the-bible)
   (generate-until-word '("startofbook")))
 
-(display "Try (make-a-bible-verse) and (make-a-book-of-the-bible).\n")
+(define (display-a-book-of-the-bible)
+  (display (join-verses (make-a-book-of-the-bible))))
+
+(display "Seeding from truly random source...\n")
+(seed-from-entropy)
+(display "Try (make-a-bible-verse) and (display-a-book-of-the-bible).\n")
+