Update 02-reduce.hs