Create ch4.hs