Update 2048.rkt

Pretty much seems to work now.