import Data.Aeson.Encode.Pretty
import qualified Data.Aeson as J
import Data.ByteString.Lazy.Char8 as B
import Control.Monad
import System.Environment

main = do
    args <- getArgs
    forM_ args $ \fn -> do
        v <- J.decode <$> B.readFile fn
        let _ = v :: Maybe J.Value
        mapM_ B.putStrLn (fmap encodePretty v)