SimpleJSON Example from Real World Haskell