1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE MagicHash #-} module Main (main) where import GHC.Prim import GHC.Types main :: IO () main = print (I# (1# +# 2# *# 3# +# 4#))