Fix principal.c
WIP