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