ldTree :: ExprTree Rational -> Rational
-- ^ folds Rational Trees - to get one Rational number
foldTree (Leaf l a) = a
f
foldTree :: ExprTree Rational -> Rational
foldTree (Leaf l a) = a
foldTree (Leaf l a) = a