(servlet (a b c) (case a ((#null) {enter a,b,c}) (else (let* ((p (+ a b c)) (s (/ p 2.0)) (area (sqrt (* s (- s a) (- s b) (- s c)))) ) {The area of an [a],[b],[c] triangle is [area]} ))))