 
 (defn sort-table [transposed string]
   (let [s (join (sort (distinct-string string)))]
-    (map #(find-first-starts-with table %) s)))
+    (map #(find-first-starts-with transposed (str %)) s)))
 
 (defn keyword-transposition
 

;; (map #(transpose-row table %) (range (count (first table))))


(def s (join (sort "sport")))

(map identity s)
(first (filter #(str/starts-with? % "o") table))

;; (str/join (set/difference (set (seq "abcdsport")) (set (seq "sport"))))

;;;; transpose-table
;; (def table ["safku" "pbglv" "ochmw" "rdinx" "tejqy"])
;; (def a (map first table))
;; (def b (map second table))
;; (def c (map #(nth % 2) table))
