(use medea)
(define keylist '(name foo))
 
 (define (get-value key)
   (printf "~A: " key)
   (read-line))
 
 (define (ask)
   (with-output-to-string
     (write-json
         (map cons keylist
             (map get-value keylist))))
     )