          (recur found2 board row (inc col)))
        (recur found board row (inc col))))))
 
+(s/def ::dp (s/map-of ::digit (s/tuple integer? integer?)))
 (s/fdef digit-pos-map
         :args (s/cat :numcells ::numbered-cells)
-        :ret  (s/map-of ::digit (s/tuple integer? integer?)))
+        :ret  ::dp)
 
 (defn digit-pos-map
   "Convert the numbered cells into a map with digit lookup.

  (let [cnt (board-cell board row col)]
    (and (not= cnt \#)(not= cnt \.))))

(s/def ::digit #{\# \. \0 \1 \2 \3 \4 \5 \6 \7 \8 \9})
(s/def ::numbered-cell  (s/keys :req-un [::digit ::to]))
(s/def ::numbered-cells (s/coll-of ::numbered-cell))


        all3 (into-assoc-duplicates-reverse all2 kvs)]
    all3))

(s/def ::all (s/map-of ::from (s/coll-of ::path)))
(s/fdef all-paths
        :args (s/cat :board ::board)
        :ret  ::all)

(defn all-paths
  "Get all path from board, split them, reverse them, and add to big map."
