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