(use medea) (define keylist '(name foo)) (define (build-alist-from-user-input key) (printf "~A: " key) (cons key (read-line))) (define (ask) (let ((alist (map build-alist-from-user-input keylist))) (with-output-to-string (lambda () (write-json alist)))))