; 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)
OyB0aGUgaGVucnkgdXNlZCBjYXIgZGVhbGVyc2hpcAoKKGRlZmluZSAoaGVucnkpCiAgKGRpc3BsYXkgIkVudGVyIHRoZSBzYWxlIHByaWNlOiAiKSAobGV0ICgoc2FsZSAocmVhZCkpKQogIChkaXNwbGF5ICJFbnRlciB0aGUgcHVyY2hhc2UgcHJpY2U6ICIpIChsZXQgKChwdXJjaCAocmVhZCkpKQogIChkaXNwbGF5ICJQcm9maXQgaXMgIikgKGRpc3BsYXkgKC0gc2FsZSBwdXJjaCkpIChuZXdsaW5lKQogIChkaXNwbGF5ICJUaGFua3MgZm9yIHVzaW5nIHRoaXMgcHJvZ3JhbS4iKSAobmV3bGluZSkpKSkKCihoZW5yeSk=