Solve #69 in Haskell.