{-# LANGUAGE TupleSections #-}
module TupleSec where

main = do
    print $ (,2) 1
    print $ (,2,,4,,6) 1 3 5
    print $ fst (((1,),) 3) 2