Create A.hs