(use medea)

(define keylist '(name foo))

(define (build-alist-from-user-input key)
   (printf "~A: " key)
   (cons key (read-line)))

(define (ask)
  (let ((alist (map build-alist-from-user-input keylist)))
    (with-output-to-string
      (lambda ()
	(write-json alist)))))