#include "IPUlisp.h"
#include <stdio.h>
#include <stdlib.h>
int main(void) {
    static char source[65536], output[1048576];
    size_t n = fread(source, 1, sizeof(source), stdin);
    if (!feof(stdin)) return 1;
    const char *stress = getenv("MINILISP_ALWAYS_GC");
    int rc = IPUlisp_eval(source, n, output, sizeof(output), 0, 1, stress && *stress);
    fputs(output, rc ? stderr : stdout);
    return rc;
}