-- Main program

main = do
    [inPath, outPath] <- getArgs
    entries <- parseXML lmfP <$> readFile inPath
    encodeFile outPath $ mkDict entries
--     forM_ (M.toList $ mkDict entries) $ \(k, x) -> do
--         T.putStr k
--         putStr " => "
--         T.putStrLn $ T.intercalate " " x
main = do
    [inPath, outPath] <- getArgs
    entries <- parseXML lmfP <$> readFile inPath
    encodeFile outPath $ mkDict entries
--     forM_ (M.toList $ mkDict entries) $ \(k, x) -> do
--         T.putStr k
--         putStr " => "
--         T.putStrLn $ T.intercalate " " x
main = do
    [inPath, outPath] <- getArgs
    entries <- parseXML lmfP <$> readFile inPath
    encodeFile outPath $ mkDict entries
--     forM_ (M.toList $ mkDict entries) $ \(k, x) -> do
--         T.putStr k
--         putStr " => "
--         T.putStrLn $ T.intercalate " " x