Update 2048.hs