let
orient ((a, b)
as
e) =
if
cmp a b >= 0
then
e
else
(b, a)