diff --git a/cndict.cabal b/cndict.cabal
--- a/cndict.cabal
+++ b/cndict.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                cndict
-version:             0.4.0
+version:             0.4.1
 synopsis:            Chinese/Mandarin <-> English dictionary, Chinese lexer.
 -- description:
 license:             PublicDomain
diff --git a/src/Data/Chinese/CCDict.hs b/src/Data/Chinese/CCDict.hs
--- a/src/Data/Chinese/CCDict.hs
+++ b/src/Data/Chinese/CCDict.hs
@@ -17,7 +17,7 @@
 import           Control.Monad       (guard)
 import           Data.Char
 import           Data.FileEmbed
-import           Data.List           (foldl')
+import           Data.List           (foldl', nub)
 import           Data.IntMap (IntMap)
 import qualified Data.IntMap.Strict as IntMap
 import qualified Data.Map.Strict            as M
@@ -69,10 +69,11 @@
 
 -- | Load dictionary from unicode text.
 parse :: Text -> CCDict
-parse txt = fromList $ concat
-  [ [ (entrySimplified entry, line), (entryTraditional entry, line) ]
+parse txt = fromList
+  [ (key, line)
   | line <- T.lines txt
-  , Just entry <- [parseLine line] ]
+  , Just entry <- [parseLine line]
+  , key <- nub [entrySimplified entry, entryTraditional entry] ]
 
 -- | O(n). Lookup dictionary entry for a string of simplified chinese.
 lookup :: Text -> CCDict -> Maybe Entry
@@ -269,7 +270,7 @@
 joinTrie (CCTrieEntryEnd e1) (CCTrieEntryEnd e2) = CCTrieEntryEnd (joinRawEntry e1 e2)
 
 joinRawEntry :: RawEntry -> RawEntry -> RawEntry
-joinRawEntry e1 e2 = T.unlines [e1,e2]
+joinRawEntry e1 e2 = T.concat [e1, "\n", e2]
 
 joinEntry :: Entry -> Entry -> Entry
 joinEntry e1 e2 = Entry