struct syl{	int op,p1,p2,p3;};#define RET 1#define REVERT 2#define GOTO 3#define X 4#define SLASH 5#define STACK 6#define I 7#define ED 8#define NED 9#define IM 10#define APOS 11#define H 12#define TL 13#define TR 14#define T 15#define COLON 16#define S 17#define SP 18#define SS 19#define P 20#define BN 21#define BZ 22#define F 23#define E 24#define EE 25#define D 26#define G 27#define GE 28#define L 29#define A 30#define AW 31#define O 32extern struct syl syl[];extern int pc,parenlvl,revloc;extern int (*doed)(),(*doned)();extern int (*dorevert)(),(*donewrec)(),(*doend)();extern flag cblank,cplus,workdone;extern int dummy();extern char *fmtbuf;extern int scale;typedef union{	float pf;	double pd;} ufloat;typedef union{	short is;	char ic;	long il;} uint;#define GET(x) if((x=(*getn)())<0) return(x)#define VAL(x) (x!='\n'?x:' ')#define PUT(x) (*putn)(x)extern int cursor;