Update q6.hs