strip_pair : term -> term list
- strip_pair (Term `((1,2),(3,4))`); > val it = [`1`, `2`, `3`, `4`] : term list