Update progr.c