   [data]
   (println "Flatting and cleaning data...")
   (let [fcdata (time (doall (remove nil? (reduce into data))))]
-    (println "Number of rows:" (count fcdata))
+    (print-nitems fcdata)
     (newline)
     fcdata))
 

  [data f name]
  (println (format "Flatting data with %s..." name))
  (let [fdata (time (doall (f data)))]
    (println "Number of rows:" (count fdata))
    (newline)
    fdata))


        (norm fcdata rollup to pmap (get-fill-in map) "pmap/map")
        ;;(norm fcdata rollup to map (get-fill-in pmap) "map/pmap")
        ;;(norm fcdata rollup to pmap (get-fill-in pmap) "pmap/pmap")
        (new-norm paths fcdata rollup to "primal")
        ))))

(defn run-bench
