munput
void munput(int t, CHR *p);
munput('c',&ch);
munput('s',(CHR *)(subs[i]));
munput('c',&token[--i]);