Personal project in Haskell