(import sql-de-lite)

(define (!= x y)
  (not (= x y)))

(with-output-to-file "kjv.txt"
  (lambda ()
    (call-with-database "bible-sqlite.db"
      (lambda (db)
        (let ((previous-book 0)
            (previous-chapter 0)
            (previous-verse 0))
          (query (for-each-row
                (lambda (row)
                  (let ((book (car row))
                        (chapter (cadr row))
                        (verse (caddr row))
                        (text (cadddr row)))
                    (when (!= book previous-book)
                      (display "startofbook\n"))
                    (when (!= chapter previous-chapter)
                      (display "startofchapter\n"))
                    (when (!= verse previous-verse)
                      (display "startofverse\n"))
                    (set! previous-book book)
                    (set! previous-chapter chapter)
                    (set! previous-verse verse)
                    (display text)
                    (newline))))
                 (sql db "select b,c,v,t from t_kjv")))))))