dest_pair : term -> term * term
# dest_pair `(1,2),(3,4),(5,6)`;; val it : term * term = (`1,2`, `(3,4),5,6`)