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