2048-3D Game and AI, written in Haskell