A jtspella(J jt,A w){C c,s[3];V*v; RZ(w); v=VAV(w); c=v->id; if(c==CFCONS)R over(thorn1(v->h),chr[':']); spellit(c,s); R str(s[2]?3L:s[1]?2L:1L,s); }
static void dspell(C id){C c,s[3]; s[2]=0; spellit(id,s); c=s[0]; if(c==CESC1||c==CESC2||nflag&&CA==ctype[c])jputc(' '); jputs(s); }
A jtspellout(J jt,C c){C s[3]; spellit(c,s); R str(s[2]?3L:s[1]?2L:1L,s);}