1import GHC.Compact
2import qualified Data.Map as Map
3
4main = do
5  let m = Map.fromList [(x,show x) | x <- [1..(10000::Integer)]]
6  c <- compactWithSharing m
7  print (length (show (getCompact c)))
8  c <- compact m
9  print (length (show (getCompact c)))
10