Update q1.hs