Solve #68 in Haskell.