1{-# LANGUAGE BinaryLiterals #-} 2{-# LANGUAGE MagicHash #-} 3import GHC.Types 4main 5 = do print 6 [I# 0#, I# - 0#, I# 1#, I# - 1#, I# 1#, I# - 1#, I# - 201#, 7 I# - 201#, I# - 255#, I# - 255#] 8 print [W# 0##, W# 1##, W# 201##, W# 3##, W# 255##, W# 1##] 9 print 10 [0, 1, 2, 3, 4, 5, 6, 7 :: Integer, -0, -1, -2, -3, -4, -5, -6, -7, 11 340282366920938463463374607431768211455, 12 -340282366920938463463374607431768211455] 13 print [I8# - 128#, I8# 127#] 14