Update a.hs

a