knownEdits2 :: Words -> ByteString -> Set.Set ByteString
knownEdits2 ws w = Set.fold (\x acc -> Set.union acc (known ws . edits1 $ x))
                       Set.empty (edits1 w)
knownEdits2 :: Words -> ByteString -> Set.Set ByteString
knownEdits2 ws w = Set.fold (\x acc -> Set.union acc (known ws . edits1 $ x))
                       Set.empty (edits1 w)
knownEdits2 ws w = Set.fold (\x acc -> Set.union acc (known ws . edits1 $ x))
                       Set.empty (edits1 w)