(def known-edits2 (word) (accum add (each e (edits1 word) (map add (keep [*nwords* _] (edits1 word))))))
-----