First attempt on task nr 29
Solution to problem 29 in haskell