Update prog1.r

Online change