(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)))) )