Create a.hs