2048 game implementation in Mathematica for class