 (fn [tileid]
   (parse-ints
    (map (partial apply str)
-        (partition 3 (s/drop 2 tileid)))))+        (partition 3 (s/drop 2 tileid)))))
+
+;; The referenced one, with the threading macro. (This is the one I
+;; ended up going with.) As you can see, it takes each thing, evaluates
+;; it, and inserts it as the last thing in the next entry. So, here we
+;; have tileid inserted, making (s/drop 2 tileid). The whole thing
+;; expands to the code above.
+(fn [tileid]
+  (parse-ints
+   (map (partial apply str)
+        (->> tileid
+             (s/drop 2)
+             (partition 3)))))
        sample (+ line index)]
    (vector line sample)))

;; TODO -- add some good documentation here about what the next
;; section is accomplishing. I want to check marginalia to see the
;; best way to do this stuff.

   ((juxt tileid->res
          tileid->xy) tileid)))

;; ## Fun Examples!

;; Guys, are a few ways to accomplish the task solved by tileid->xy,
;; shown above. I'm not sure I'm happy with the final version, so I've
