# Pastebin oMZ9YSfA
(defn get-status []
  (let [x (slurp save-path)]
    (if (= x "on")
      (do
        (str "on2"))
      (str "off2"))))