Update 04-union.hs