Update a.hs

agregué y