He actualizado las soluciones del ejercicio Poner en mayúscula la primera letra y las restantes en minúsculas cuyo enunciado es

Definir la función

mayusculaInicial :: String -> String

tal que (mayusculaInicial xs) es la palabra xs con la letra inicial en mayúscula y las restantes en minúsculas. Por ejemplo,

mayusculaInicial "sEviLLa"  ==  "Sevilla"