diff --git a/2023/src/day09.clj b/2023/src/day09.clj
index 69ae6d7..b3427f3 100644
--- a/2023/src/day09.clj
+++ b/2023/src/day09.clj
@@ -12,9 +12,7 @@
         (recur (conj pyramid (mapv - (rest last-line) last-line)))))))
 
 (defn solve [reduction] (->> (get-puzzle-input 9)
-                             (map parse-line)
-                             (map generate-pyramid)
-                             (map reverse)
+                             (map (comp reverse generate-pyramid parse-line))
                              (map #(reduce reduction 0 %))
                              (reduce +)))