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