(let (handle (open "readings.txt" "read"))
  (setq all-lines (collect (read-line handle)))
  (close handle))