Update a.hs

Funcion loca 2 agregada