added solution to problem 4 (Haskell)