exam2.2.2

;; mht created on Nov 8, 2011

;; assume the exchange rate is : 0.633
(define er 0.633)

;; dollar->euro : number -> number
;; to produce the euro equivalent to the given dollor
(define (dollar->euro d)
  (* er d))

;; tests
(= (dollar->euro 100) 63.3)