Welcome to the CHICKEN Scheme pasting service

 
/* next: execute itc, forths inner interpreter */
void next() {
loop:
	w = (cell *)*((cell *)ip)++;
#if PCC
	(**w)();
#else
	(*(void(*)())*w)();
#endif
	goto loop;
}