Solve #65 in Haskell.