Save and Load Program State

(def db (atom {...}))

(defn save-data []
  (spit "program-state.txt" (prn-str @db)))

(defn load-data []
  (reset! db (read-string (slurp "program-state.txt"))))