(define make-args-vals
  (lambda (args vals)
    (if (symbol? args)
	(cons (list args) (list (list vals)))
	(let ([result (make-args-vals (cdr args) (cdr vals))])
	  (list (cons (car args) (car result))
		(cons (car vals) (cadr result)))))))