Update comprog1.c