(use irregex)

(define (objects->alists string k)
  (let* ((remainders (irregex-split "{" string))
	 (objects (map (lambda (r) (irregex-split "}" r)) remainders)))
	 (map (lambda (o) (cons 'object (k o))) objects)))