known :: Words -> Set.Set ByteString -> Set.Set ByteString
known ws = Set.filter (`Trie.member` ws)
known :: Words -> Set.Set ByteString -> Set.Set ByteString
known ws = Set.filter (`Trie.member` ws)
known ws = Set.filter (`Trie.member` ws)