gistfile1.txt

(define %word ($->rope ($do [h ($one-of #[A-Za-z_$])]
                            [t ($many-chars #[A-Za-z0-9_$])]
                            ($return (cons h t)))))

(define %key ($or %word %string))

(define %object
  (let1 %member ($do [k %key] %ws
                     %name-separator
                     [v %value]
                     ($return (cons k v)))
    ($between %begin-object
              ($fmap ($ build-object $ rope-finalize $)
                     ($sep-by %member %value-separator))
              %end-object)))