CODE EXAMPLE FOR C

Fahrenheit to Celsius

(defun farhcelconv()
(format t "Enter degrees in fahrenheit ")
  (Let (f)
    (setq f (read f))
    (APPEND '(celsius is)(*(- f 32)(/ 5 9))')
  )
)