(use medea)

(define keylist '(name foo))
 
(define (get-value key)
  (printf "~A: " key)
  (cons key (read-line)))

(define (ask)
  (call-with-output-string
      (lambda (out) 
        (write-json (map get-value keylist) out))))