Updated forth/main.c, forgot to do that in previous commit