typedef struct {
    FILE *f;
    char tokbuf[256];
    int singlechar;
    int is_double;
    double d;
} sexp_reader;

int
sexp_token(sexp_reader *sr);