Solution R-prog016 assigment2