{-#   OPTIONS_GHC -Wall #-}
{-#       LANGUAGE  OverloadedStrings #-}
{-#      OPTIONS_GHC -Wno-deferred-type-errors #-}

tupleSection = (1, ) <$> Just 2