ncurses 2048 written in haskell