{-# LANGUAGE TupleSections
             #-}

module InTupSecElem where

f = ((1,),(1,)) {-* TupleSections, TupleSections *-}