first r program