module Main (
    main
    ) where

import SimpleJSON
import PutJSON

j1 = JObject [("foo", JNumber 1), ("bar", JBool False)]

j2 = JObject [
  ("query", JString "awkward squad haskell"),
  ("estimatedCount", JNumber 3920),
  ("moreResults", JBool True),
  ("results", JArray [
     JObject [
      ("title", JString "Simon Peyton Jones: papers"),
      ("snippet", JString "Tackling the awkward ..."),
      ("url", JString "http://.../marktoberdorf/")
     ]])
  ]

-- main = putStrLn (renderJValue j1)
main = putStrLn (renderJValue j2)

-- THE END
