main :: IO ()
main = do
  (f:fs) <- getArgs
  cont <- readFile f
  let ffmap = tail $ lines cont
      expanded = nub $ concatMap (fromFF . expandEntry ffmap) ffmap 
  BSL.putStr $ compress . encode $ Map.fromList $ expanded ++ redundantKana expanded
  return ()
main :: IO ()
main = do
  (f:fs) <- getArgs
  cont <- readFile f
  let ffmap = tail $ lines cont
      expanded = nub $ concatMap (fromFF . expandEntry ffmap) ffmap 
  BSL.putStr $ compress . encode $ Map.fromList $ expanded ++ redundantKana expanded
  return ()
main = do
  (f:fs) <- getArgs
  cont <- readFile f
  let ffmap = tail $ lines cont
      expanded = nub $ concatMap (fromFF . expandEntry ffmap) ffmap 
  BSL.putStr $ compress . encode $ Map.fromList $ expanded ++ redundantKana expanded
  return ()