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