Solve #67 in Haskell.