extern int pc
,parenlvl
,revloc
;
extern int (*doed
)(),(*doned
)();
extern int (*dorevert
)(),(*donewrec
)(),(*doend
)();
extern flag cblank
,cplus
,workdone
;
#define GET(x) if((x=(*getn)())<0) return(x)
#define VAL(x) (x!='\n'?x:' ')
#define PUT(x) (*putn)(x)