(defn read-expressions
  [reader]
  (loop [l []]
    (let [result (read reader true nil)]
      (if (nil? result)
        l
        (recur (conj l result))))))