Add solution for problem 0004 in Haskell