Simple haskell exercises