Update a.hs

3ra funcion loca agregada