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