Haskell 1501 Final Project