1{-# LANGUAGE BinaryLiterals #-} 2{-# LANGUAGE MagicHash #-} 3 4import GHC.Types 5 6main = do 7 print [ I# 0b0#, I# -0b0#, I# 0b1#, I# -0b1# 8 , I# 0b00000000000000000000000000000000000000000000000000000000000000000000000000001# 9 , I# -0b00000000000000000000000000000000000000000000000000000000000000000000000000001# 10 , I# -0b11001001#, I# -0b11001001# 11 , I# -0b11111111#, I# -0b11111111# 12 ] 13 print [ W# 0b0##, W# 0b1##, W# 0b11001001##, W# 0b11##, W# 0b11111111## 14 , W# 0b00000000000000000000000000000000000000000000000000000000000000000000000000001## 15 ] 16 17 print [ 0b0, 0b1, 0b10, 0b11, 0b100, 0b101, 0b110, 0b111 :: Integer 18 , -0b0, -0b1, -0b10, -0b11, -0b100, -0b101, -0b110, -0b111 19 , 0b11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 20 , -0b11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111 21 ] 22 23 print [ I8# -0B10000000#, I8# 0B1111111# ] 24