Update a.hs

andando