String
bmiTell2 weight height
    | weight / height ^ 2 <= 18.5 = "You're underweight."
    | weight / height ^ 2 <= 25.0 = "You're normal weighted."
    | weight / height ^ 2 <= 30.0 = "You're overweight."
    | otherwise = "You're obese."

max' :: (Ord a) => a -> a -> a
max' a
bmiTell2 :: (RealFloat a) => a -> a -> String
bmiTell2 weight height
    | weight / height ^ 2 <= 18.5 = "You're underweight."
    | weight / height ^ 2 <= 25.0 = "You're normal weighted."
    | weight / height ^ 2 <= 30.0 = "You're overweight."
    | otherwise = "You're obese."
bmiTell2 weight height
    | weight / height ^ 2 <= 18.5 = "You're underweight."
    | weight / height ^ 2 <= 25.0 = "You're normal weighted."
    | weight / height ^ 2 <= 30.0 = "You're overweight."
    | otherwise = "You're obese."