Update 02.hs