Problem 004, Haskell