module Main (main) where import qualified Data.Text as Text import qualified Data.Text.IO as TextIO import qualified Language.Json as Json import Language.Json.Parser (runParser) main :: IO () main = TextIO.interact (Text.pack . show . runParser Json.document)