Update 03-intersect.hs