(defn spit-lines [path lines] (spit path (string/join lines "\n")))