Create q1.hs