; bmi calculator
(define bmi
(case-lambda
((feet inches pounds)
(let ((height (+ (* feet 12) inches)))
(* (/ pounds (* height height)) 703.0)))
((centimeters kilograms)
(let ((meters (/ centimeters 100.0)))
(/ kilograms (* meters meters))))))
(define (bmi-class bmi)
(cond ((<= bmi 18.5) "underweight")
((< bmi 25) "normal")
((< bmi 30) "overweight")
((< bmi 40) "obese")
(else "morbidly obese")))
(display (bmi 5 4 125)) (display " ") (display (bmi-class (bmi 5 4 125))) (newline)
(display (bmi 190 95)) (display " ") (display (bmi-class (bmi 190 95))) (newline)