Code for RBC Model with Endogenous Labor and Partial Depreciation