   (if (re-matches #"(?i)windows*" (get item :platform)) true false))
 
 (defn create-final-list
-  "create a list of windows machines with successful ping"
+  "create a list of windows machines with successful ping that fail compliance check"
   [item]
   (let [windows-machines (filter windows? item)
         ping-successful-list (filter ping-successful? windows-machines)]

          wireless (second file-names)
          detail (nth file-names 2)
          wired-list (create-final-list (map create-data-map (read-csv wired)))
          wireless-list (create-final-list (map create-data-map (read-csv wireless)))]
      (println "=============== Wired List: ===============")
      (pp/pprint wired-list)
      (println "\n=============== Wireless List: ===============")
      (pp/pprint wireless-list)))

    {:ip ip
     :off-scan-status off-scan-status
     :ping ping
     :platform platform}))

(defn parse-line
  "parse each line of a large file"
