-- | Evaluate a `ExtendedExpr` value.
evalExtendedExpr :: ExtendedExpr -> Int
evalExtendedExpr (Fix expr) =
  evalExprExt evalUniOp evalBinOpExt evalExtendedExpr expr
evalExtendedExpr :: ExtendedExpr -> Int
evalExtendedExpr (Fix expr) =
  evalExprExt evalUniOp evalBinOpExt evalExtendedExpr expr
evalExtendedExpr (Fix expr) =
  evalExprExt evalUniOp evalBinOpExt evalExtendedExpr expr