parseDic :: FilePath -> IO Dictionary
parseDic fp = do
  Right dic <- parseDictionary <$> T.readFile fp
  return dic
parseDic :: FilePath -> IO Dictionary
parseDic fp = do
  Right dic <- parseDictionary <$> T.readFile fp
  return dic
parseDic fp = do
  Right dic <- parseDictionary <$> T.readFile fp
  return dic