forth implementation on C(only for education)