{-# LANGUAGE MagicHash #-}
module Test where

import GHC.Exts

even1 :: Int -> Bool
even1 = even

-- even1# :: Int# -> Int#
-- even1# x = remInt# x 2#

even2 :: Int -> Bool
even2 x = x `mod` 2 == 0

-- even2# :: Int# -> Int#
-- even2# x = andI# x 1#