
bmiTell bmi
    | bmi <= 18.5 = "You're underweight."
    | bmi <= 25.0 = "You're normal weighted."
    | bmi <= 30.0 = "You're overweight."
    | otherwise = "You're obese."

bmiTell2 :: (RealFloat a) => a -> a -
bmiTell :: (RealFloat a) => a -> String
bmiTell bmi
    | bmi <= 18.5 = "You're underweight."
    | bmi <= 25.0 = "You're normal weighted."
    | bmi <= 30.0 = "You're overweight."
    | otherwise = "You're obese."
bmiTell bmi
    | bmi <= 18.5 = "You're underweight."
    | bmi <= 25.0 = "You're normal weighted."
    | bmi <= 30.0 = "You're overweight."
    | otherwise = "You're obese."