String
bmiTell5 weight height
    | bmi <= under = "You're underweight."
    | bmi <= normal = "You're normal weighted."
    | bmi <= over = "You're overweight."
    | otherwise = "You're obese."
    where bmi = weight / height ^ 2
          (under, normal, over) = (18.5, 25.0, 30.0)

-- bmiTell5 109 1.83

initials :: String -> String -> Strin
bmiTell5 :: (RealFloat a) => a -> a -> String
bmiTell5 weight height
    | bmi <= under = "You're underweight."
    | bmi <= normal = "You're normal weighted."
    | bmi <= over = "You're overweight."
    | otherwise = "You're obese."
    where bmi = weight / height ^ 2
          (under, normal, over) = (18.5, 25.0, 30.0)

-- bmiTell5 109 1.83
bmiTell5 weight height
    | bmi <= under = "You're underweight."
    | bmi <= normal = "You're normal weighted."
    | bmi <= over = "You're overweight."
    | otherwise = "You're obese."
    where bmi = weight / height ^ 2
          (under, normal, over) = (18.5, 25.0, 30.0)

-- bmiTell5 109 1.83