content: -- | Test for GHC 7.10+'s @BinaryLiterals@ extensions (see GHC #9224)
  
  {-# LANGUAGE BinaryLiterals #-}
  {-# LANGUAGE MagicHash #-}
  {-# LANGUAGE NegativeLiterals #-}
  
  module Main where
  
  import GHC.Base
  import GHC.Types
  import GHC.Int
  
  main = do
      print [ I# 0B0#, I# -0B0#, I# 0B1#, I# -0B1#
            , I# 0B00000000000000000000000000000000000000000000000000000000000000000000000000001#
            , I# -0B00000000000000000000000000000000000000000000000000000000000000000000000000001#
            , I# -0B11001001#, I# -0B11001001#
            , I# -0B11111111#, I# -0B11111111#
            ]
      print [ W# 0B0##, W# 0B1##, W# 0B11001001##, W# 0B11##, W# 0B11111111##
            , W# 0B00000000000000000000000000000000000000000000000000000000000000000000000000001##
            ]
  
      print [ 0B0, 0B1, 0B10, 0B11, 0B100, 0B101, 0B110, 0B111 :: Integer
            , -0B0, -0B1, -0B10, -0B11, -0B100, -0B101, -0B110, -0B111
            , 0B11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
            , -0B11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
            ]
  
      print [ I8# (intToInt8# -0B10000000#), I8# (intToInt8# 0B1111111#) ]
  