JRET
#define isret(n) ((n)->csub == JRET)
static Cell retcell ={ OJUMP, JRET, 0, 0, 0.0, NUM, NULL, NULL };