Started Haskell - Problem 1