     assert(0);
   return x_nil;
 }
-
-x_any read_head(FILE*);
 
 x_any read_tail(FILE *infile) {
   x_any token;

  }
}

x_any read_sexpr(FILE*);
x_any read_token(FILE*);

x_any read_cdr(FILE *infile) {
  x_any cdr;
  x_any token;

  flags(cell) = TOKEN;
  return cell;
}

int hash(const char *name) {
  int value = 0;
