R_prog_ass2_c