void initialize();
void zoutdigs();
#define outdigs(j) zoutdigs((integer) (j))
void zprintdigs();
#define printdigs(j) zprintdigs((integer) (j))
void zprintoctal();
#define printoctal(c) zprintoctal((byte) (c))
void outln();
void left();
void right();
void zoutBCPL();
#define outBCPL(k) zoutBCPL((index) (k))
void zoutoctal();
#define outoctal(k, l) zoutoctal((index) (k), (index) (l))
void zoutchar();
#define outchar(c) zoutchar((byte) (c))
void zoutface();
#define outface(k) zoutface((index) (k))
void zoutfix();
#define outfix(k) zoutfix((index) (k))
void zcheckBCPL();
#define checkBCPL(k, l) zcheckBCPL((index) (k), (index) (l))
void hashinput();
index zffn();
#define ffn(h, x, y) zffn((index) (h), (index) (x), (index) (y))
index zeval();
#define eval(x, y) zeval((index) (x), (index) (y))
index zffn();
#define ffn(h, x, y) zffn((index) (h), (index) (x), (index) (y))
boolean organize();
void dosimplethings();
void docharacters();