[Haskell-cafe] Is there a StateT but with resulting pair swapped?