     (GatlingConfiguration/setUp conf)
     (ReportsGenerator/generateFor "out" (FileDataReader. "23"))))
 
-(defn map-request [request]
+(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"]))
+    ["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))

      (bench
        (map #(assoc (bench ((:fn %) id)) :name (:name %) :id id) (:requests scenario)))
      {:result :requests})
    :id id))

(defn run-simulation [users]
  (println (str "Run simulation with " users " users"))

  "OK")

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

(defmacro bench [expr]
