     diff))
 
 (defn analyze-plans-for-all-queries [all-plans]
-  (map analyze-plans-for-query all-plans))
+  (map
+    #(map analyze-plans-for-query %)
+    all-plans))
 
 (defn- save-parse-result [file-name parse-result]
   (let [file-path (str parse-results-dir file-name)]

  (* (count (:samplesizes opts))
     (:repetitions opts)))

(def relation-accesses (atom []))

;; Not the best solution, but the easiest in this case
(defn- save-if-relation-access [o]
  (if (and (map? o) (contains? o "Relation Name"))
    (swap! relation-accesses conj o))
  o)


(defn- group-by-relation [accesses]
  (apply merge-with concat
         (map
           (fn [l] (group-by #(get % index-access-identifier) l))
           accesses)))

(defn- diff-relation-access [access-by-relation]
