Cleaned p1.c