Create q4.hs