[Haskell-cafe] using Map rather than FiniteMap