{-# LANGUAGE TupleSections #-}
module Main where

tupleSection = (1,) <$> Just 2