Update q3.hs