1{-# LANGUAGE MagicHash #-} 2{-# LANGUAGE UnboxedTuples #-} 3 4module Main where 5 6import GHC.Base 7 8main :: IO () 9main = do 10 -- Overflow. 11 let (# w1, i1 #) = subWordC# 1## 3## 12 print (W# w1, I# i1) 13 14 -- No overflow. 15 let (# w2, i2 #) = subWordC# 3## 1## 16 print (W# w2, I# i2) 17