                 (recur rstrecords
                        (assoc previous-ping-time icao ping-ts)
                        (inc num-inserted)
-                       num-skipped))
-              (recur rstrecords
-                     previous-ping-time
-                     num-inserted
-                     (inc num-skipped))))
+                       num-skipped))))
           (do
             (println "Inserted" num-inserted "records")
-            (println "Skipped" num-skipped "records")))))))
+            (println "Skipped:" (reduce + (map second num-skipped)) "total")
+            (pprint/print-table [num-skipped])))))))
 
 
 

            [clj-time.core :as time]
            [clj-time.format :as timefmt]
            [clojure.java.jdbc :as jdbc]
            [com.lemondronor.orbital-detector.planeplotter :as planeplotter]
            [com.lemonodor.gflags :as gflags]))


  (let [args (gflags/parse-flags (cons nil args))
        db (db-spec (first args))]
    (create-tables db)
    (add-records
     db
     (mapcat
      (fn [log-path]
        (println "Reading " log-path)
        (planeplotter/read-log log-path))
      (rest args)))))
