A_project_scheme

(define (list-change total denoms) (define (cons-all num ls) (let ((num-val num)) (cond ((null? ls) nil) (else (cons (cons num (car ls)) (cons-all num ......