-- Convert a list of triples into a sorted list of unique triples.
uordered :: Triples -> Triples
uordered  =  map head . group . sortTriples
uordered :: Triples -> Triples
uordered  =  map head . group . sortTriples
uordered  =  map head . group . sortTriples