Added solution to problem 40 in haskell.