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