Update 2.hs