; Read temperature
(display "Input temperature: ")
(define temp (read))

; Convert Fahrenheit to Celcius
(display temp)
(display " degrees Fahrenheit is ")
(display (/ (* (- temp 32) 5) 9))
(display " degrees Celcius")
(newline)

; Convert Celcius to Fahrenheit
(display (string-append
	(number->string temp)
	" degrees Celcius is "
	(number->string (+ (/ (* temp 9) 5) 32))
	" degrees Fahrenheit"))
(newline)