fork download
  1. ; the henry used car dealership
  2.  
  3. (define (henry)
  4. (display "Enter the sale price: ") (let ((sale (read)))
  5. (display "Enter the purchase price: ") (let ((purch (read)))
  6. (display "Profit is ") (display (- sale purch)) (newline)
  7. (display "Thanks for using this program.") (newline))))
  8.  
  9. (henry)
Success #stdin #stdout 0.02s 50288KB
stdin
1100
800
stdout
Enter the sale price: Enter the purchase price: Profit is 300
Thanks for using this program.