Площадь треугольника

(define (area-of-triangle x1 y1 x2 y2 x3 y3)
  (let* (
         (a (sqrt(+ (* (- x2 x1) (- x2 x1)) (* (- y2 y1) (- y2 y1)))))
         (b (sqrt(+ (* (- x3 x2) (- x3 x2)) (* (- y3 y2) (- y3 y2)))))
         (c (sqrt(+ (* (- x3 x1) (- x3 x1)) (* (- y3 y1) (- y3 y1)))))
         (p (/ (+ a b c) 2)))
         (sqrt (* p (- p a) (- p b) (- p c)))))