Update comprog2c.c