Haskell implementation of Langton's Ant using Gloss libraries