{-# LANGUAGE MagicHash, UnboxedTuples #-}
module MagicHashUnboxedTuples where

f (#x, y #) = (# a#, b #) where
  a# = a#
  b = b