Problem 003, Haskell