first rprog-a3 script