Update q03.hs