{-# LANGUAGE UnboxedTuples #-}
foo a = (# a #)