Monadic JSON Uglifier written in Haskell