Update a.hs

asd