{-# LANGUAGE MagicHash #-} {-# LANGUAGE UnboxedTuples #-} module Main where import Control.Concurrent (forkOS) import Control.Monad (forM_) import GHC.Prim (packInt64X4#, plusInt64X4#, unpackInt64X4#) import GHC.Types (Int(I#)) main :: IO () main = do forM_ [1 .. 4] $ \_ -> forkOS $ do let xs = packInt64X4# (# 1#, 2#, 3#, 4# #) let ys = packInt64X4# (# 2#, 3#, 4#, 5# #) let zs = xs `plusInt64X4#` ys let (# a, b, c, d #) = unpackInt64X4# zs print (I# a, I# b, I# c, I# d) return ()