second rprog-a3 script