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