add rprog assignment 2