#include <stdio.h>
#include "scm_support.h"

int main() {
    int val;
    int *argl;
    void *cont, *entry, *proc, *env;

    proc = lookup_variable_value("+", env);
    val = 1;
    argl = list(val);
    val = 1;
    argl = cons(val, argl);
    if (primitive_procedure(proc) == 1)
        goto primitivebranch3;
compiledbranch2:
    cont = &&aftercall1;
    entry = compiled_procedure_entry(proc);
    goto *entry;
primitivebranch3:
    val = proc(argl);
aftercall1:
    printf("%u\n", val);
}