of " ++ all ++ " is " ++ [x]

bmiTell :: (RealFloat a) => a -> Stri
capital all@(x:xs) = "The first letter of " ++ all ++ " is " ++ [x]
capital all@(x:xs) = "The first letter of " ++ all ++ " is " ++ [x]