2048 Implemented in Emacs Lisp