x = [0 .. 100000] :: [Int]
:sprint x
x `seq` True
:sprint x