haskell problem 18
problem 67 haskell