(define fahrenheit 72)
(define celsius (* (- fahrenheit 32.0) 5.0 1/9))
(display fahrenheit)
(display " degrees fahrenheit = ")
(display celsius)
(display " degrees celsius")
(newline)