Update prog.r
Update README.md code