Add solutin for problem 03 in Haskell.