{-# LANGUAGE UnboxedTuples #-}
{-# LANGUAGE MagicHash #-}
module IsItAnInt (foo, bar) where

import GHC.Prim

foo :: (# #) -> Int#
foo _ = 3# +# 5#

bar :: Int
bar = 3 + 5