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