Solve 39 with Haskell.