; the henry used car dealership (define (henry) (display "Enter the sale price: ") (let ((sale (read))) (display "Enter the purchase price: ") (let ((purch (read))) (display "Profit is ") (display (- sale purch)) (newline) (display "Thanks for using this program.") (newline)))) (henry)