exam2.3.1

;; mht created on Nov 8, 2011

;; tax : number -> number
;; to compute the tax on the gross pay
(define (tax gp)
  (* (/ 15 100) gp))

;(tax 100)


;; grosspay : number -> number
(define (grosspay h)
  (* h 12))

;; netpay : number -> number
;; to compute the net pay of an employee
;; from the number of hours worked
(define (netpay h)
  (- (grosspay h) (tax (grosspay h))))
;(tax (* 12 20))
(= (netpay 20) 204)