exam2.1.2

;; mht created on Nov 8, 2011

;; Fahrenheit-Celsius : number -> number
;; to translate Fahrenheit to Celsius
;; example : (Fahrenheit-Celsius 100) should produce 37
(define (Fahrenheit->Celsius fah)
  (* (/ 5 9) (- fah 32)))

;; test
(= (Fahrenheit->Celsius 32) 0)

 ;(convert-gui Fahrenheit->Celsius)

 ;(convert-repl Fahrenheit->Celsius)

 (convert-file "in.dat" Fahrenheit->Celsius "out.dat")