Create q6.hs