   (:Agency (extended-data icao)))
 
 
-(defn type [icao]
+(defn vehicle-type [icao]
   (:Type (extended-data icao)))
-
 
 
 (defn has-position? [r]

(defn -main [& args]
  (let [args (gflags/parse-flags (cons nil args))]
    (load-extended-data)
    (let [tracks (->> args
                      (mapcat orbdet/read-log)
                      (filter-icaos (gflags/flags :icaos))
                      (filter has-position?)
                      (print-count)
                      (partition-all 1000)
                      (mapcat distinct)
                      (print-count)
                      (group-by :icao)
                      (map second)
                      (map #(filter-speed 30000.0 %))
                      (mapcat #(partition-sessions 600000 %))
                      (map distinct)
                      (filter #(> (count %) 10))
                      (map-indexed kmltrack))]
      (-> (kmldoc tracks)
          xml/sexp-as-element
          xml/emit-str
          println))))

         [:width 4]]
        [:PolyStyle
         [:color "7f00ff00"]]])
     (take 100 path-colors))
    tracks]])


