Update a.hs

Funcion nueva