String
bmiTell4 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 = 18.5
          normal = 25.0
          over = 30.0

bmiTell5 :: (RealFloat a) => a -> a -
bmiTell4 :: (RealFloat a) => a -> a -> String
bmiTell4 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 = 18.5
          normal = 25.0
          over = 30.0
bmiTell4 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 = 18.5
          normal = 25.0
          over = 30.0