(use medea)

(define keylist '(name foo))
 
(define (build-alist-from-user-input key)
   (printf "~A: " key)
   (cons key (read-line)))
 
 (define (ask)
   (with-output-to-string
     (lambda ()
       (write-json
         (map get-value keylist)))))