ales :: ExprTree Rational -> ExprTree Rational -> Ordering
-- ^ like the antque ones, /scales/ measure /GT/,/LQ/ or /EQ/
scales = Data.Ord.comparing foldTree


scales :: ExprTree Rational -> ExprTree Rational -> Ordering
scales = Data.Ord.comparing foldTree
scales = Data.Ord.comparing foldTree