Update fact1.c