Update a.hs

modificado mama