First attempt at using haskell