   (log/info "Programmes: " @programme-loc))
 
 (defn- post-project []
-  (reset! project-loc 
-          (get-in (:headers 
+  (reset! project-loc
+          (get-in (:headers
                    (let [sample (last (sg/generate-examples amon/BaseProject))]
                      (reset! poster-map (assoc-in @poster-map [:project-name] (:name sample)))
                      (client/post (apply str "http://127.0.0.1:8010" @programme-loc "/projects/") {:accept :json :content-type :json :basic-auth ["support@mastodonc.com" "password"] :body (json/write-str (assoc-in sample [:programme_id]  (clojure.string/replace @programme-loc  #"/4/programmes/(.*?)" "$1")))})))

(def ^:private entity-loc (atom ""))
(def ^:private device-loc (atom ""))
(def ^:private measurement-loc (atom ""))
(def ^:private type (atom ""))

(def ^:private gen-date-time
  (gen/fmap (partial apply t/date-time)

;; -------------------

(defn- post-programme []
  (reset! programme-loc
          (get-in (:headers
                   (let [sample (last (sg/generate-examples amon/BaseProgramme))]
                     (reset! poster-map (assoc-in @poster-map [:programme-name] (:name sample)))
