Initial commit haskell exercise