1module Main where 2 3import Control.Monad 4import System.Mem.StableName 5import Control.Exception 6 7main = do 8 mapM_ evaluate list 9 stable_list1 <- mapM makeStableName list 10 stable_list2 <- mapM makeStableName list 11 unless (stable_list1 == stable_list2) $ do 12 let l1 = map hashStableName stable_list1 13 let l2 = map hashStableName stable_list2 14 print $ zip l1 l2 15 16list = [1..10000] :: [Integer] 17