[Haskell-cafe] Modulo-foo equivalence classes in Haskell?