   "OK")
 
 (def test-scenario
-  {:requests [{:name "Request1" :fn run-request}
+  {:name "Test scenario"
+   :requests [{:name "Request1" :fn run-request}
               {:name "Request2" :fn run-request}]})
 
 (defmacro bench [expr]

(defn map-scenario [scenario]
  (let [start (.toString (:start scenario))
        end (.toString (:end scenario))
        requests (apply concat (map #(vector (map-request %)) (:requests scenario)))]
    (conj requests ["SCENARIO" "Scenario name" (.toString (:id scenario)) start end])))

(defn create-result-lines [result]
  (let [timestamp (unparse-local (formatter "yyyyMMddhhmmss") (LocalDateTime.))

    (GatlingConfiguration/setUp conf)
    (ReportsGenerator/generateFor "out" (FileDataReader. "23"))))

(defn map-request [scenario-name request]
  (let [start (.toString (:start request))
        end (.toString (:end request))
        execution-start start
        request-end start
        response-start end
        execution-end end]
    ["REQUEST" scenario-name (.toString (:id request)) "" (:name request) execution-start request-end response-start execution-end "OK" "\u0020"]))

(defn flatten-one-level [coll]  
  (mapcat #(if (sequential? %) % [%]) coll))
