new file:   chap4/4-5.R