#define BLK sizeof(struct blk)
#define PTRSZ sizeof(int *)
#define length(p) ((p)->wt-(p)->beg)
#define rewind(p) (p)->rd=(p)->beg
#define create(p) (p)->rd = (p)->wt = (p)->beg
#define fsfile(p) (p)->rd = (p)->wt
#define truncate(p) (p)->wt = (p)->rd
#define sfeof(p) (((p)->rd==(p)->wt)?1:0)
#define sfbeg(p) (((p)->rd==(p)->beg)?1:0)
#define sungetc(p,c) *(--(p)->rd)=c
#define MASK (-1 & ~0377)
#define sgetc(p) ( ((p)->rd==(p)->wt) ? EOF :( ((*(p)->rd & NEGBYTE) != 0) ? ( *(p)->rd++ | MASK): *(p)->rd++ ))
#define slookc(p) ( ((p)->rd==(p)->wt) ? EOF :( ((*(p)->rd & NEGBYTE) != 0) ? (*(p)->rd | MASK) : *(p)->rd ))
#define sbackc(p) ( ((p)->rd==(p)->beg) ? EOF :( ((*(--(p)->rd) & NEGBYTE) != 0) ? (*(p)->rd | MASK): *(p)->rd ))
#define sgetc(p) (((p)->rd==(p)->wt)?EOF:*(p)->rd++)
#define slookc(p) (((p)->rd==(p)->wt)?EOF:*(p)->rd)
#define sbackc(p) (((p)->rd==(p)->beg)?EOF:*(--(p)->rd))
#define sputc(p,c) {if((p)->wt==(p)->last)more(p); *(p)->wt++ = c; }
#define salterc(p,c) {if((p)->rd==(p)->last)more(p); *(p)->rd++ = c; if((p)->rd>(p)->wt)(p)->wt=(p)->rd;}
#define sunputc(p) (*( (p)->rd = --(p)->wt))
#define zero(p) for(pp=(p)->beg;pp<(p)->last;)*pp++='\0'
#define OUTC(x) {printf("%c",x); if(--count == 0){printf("\\\n"); count=ll;} }
#define TEST2 {if((count -= 2) <=0){printf("\\\n");count=ll;}}
#define EMPTY if(stkerr != 0){printf("stack empty\n"); continue; }
#define EMPTYR(x) if(stkerr!=0){pushp(x);printf("stack empty\n");continue;}
#define EMPTYS if(stkerr != 0){printf("stack empty\n"); return(1);}
#define EMPTYSR(x) if(stkerr !=0){printf("stack empty\n");pushp(x);return(1);}
#define error(p) {printf(p); continue; }
#define errorrt(p) {printf(p); return(1); }
struct blk
*scalptr
, *basptr
, *tenptr
, *inbas
;
struct blk
*sqtemp
, *chptr
, *strptr
, *divxyz
;
struct blk
*stack
[STKSZ
];
struct blk
**stkptr
,**stkbeg
;
struct blk
*readstk
[RDSKSZ
];
struct blk
*pop(),*readin(),*add0(),*mult();
struct blk
*add(),*div(),*removr();
struct blk
*salloc(),*copy();
struct sym
*stable
[TBLSZ
];