                          (rest raindeers))))
 
 (defn day14
-  "Expects sequence of lines from file - easily achieved by using day-input-line-seq like (day-input-line-seq 14)"
-  [input]
-  (let [collector (agent (into {} (map #(identity [% []]) (range 2 2504))))
+  []
+  (let [input (day-input-line-seq 14)
+        collector (agent (into {} (map #(identity [% []]) (range 2 2504))))
         watcher (fn [_ _ _ new]
                   (send collector d14-part2-reporter new))
         raindeers (map #(let [a (agent (d14-single-line-extractor %))]

      {:part1 (find-longest-distance-travelled values)
       :part2 (find-max-points @collector)})))

;day 15
;preparation
(filter #(= 100 (apply + %)) (iterate (odometer-generator 4 1 97) [1 1 1 97]))
            (conj % (first endpoints) (last endpoints))) #{} deltas))

(defn day13
  []
  (let [deltas (into {} (map d13-single-line-extractor (day-input-line-seq 13)))
        persons (d13-persons deltas)
        arrangements (permutations persons)
        happiness (fn [members]
