Support.Tuple
val nest3 : ('a * 'b * 'c) -> 'a * ('b * 'c)
nest3 converts a triple to nested pairs.
nest3
val unnest3 : ('a * ('b * 'c)) -> 'a * 'b * 'c
unnest3 converts nested pairs to a triple.
unnest3