let
swap (p,q) = (min p q, max p q)