shen read from text file

\* read a string from stream (EOF and #10 are delimitters) *\
(define read-string-from-file
  {(stream in)--> string}
  Stream -> (let Byte (read-byte Stream)
          (if (or (= Byte -1) (= Byte 10))
          ""
          (cn (byte->string Byte) (read-string-from-file Stream)))))

\* read list of strings from stream *\
(define read-text-stream
  {(stream in) --> (list string)}
  Stream -> (let Str (read-string-from-file Stream)
          (if (= Str "")
          []
          [ Str | (read-text-stream Stream) ])))

\* read list of strings from file *\
(define read-txt-file
  {string --> (list string)}
  Path -> (read-text-stream (open file Path in)))