Create 4.hs