#lang racket/base

(require racket/string
         racket/stream)

(for/list ([l (in-lines (open-input-file "/tmp/bible.txt"))])
  (string-split l))