first p = x
  where 
    (x,y) = p
    
main = first (3 :: Integer,4 :: Integer)
--
3