Solve #75 in Haskell.