----------------------------

-- | Show the tree that implements the map.
showTree :: Show a => IntMap a -> String
showTree (IntMap m) = W.showTree m
showTree :: Show a => IntMap a -> String
showTree (IntMap m) = W.showTree m
showTree (IntMap m) = W.showTree m