; heron's formula

(define (area a b c)
  (let ((s (/ (+ a b c) 2)))
    (sqrt (* s (- s a) (- s b) (- s c)))))

(display (area 3 4 5)) (newline)