complete problem 003 in haskell