unionx

#include <stdio.h>
#include <libguile.h>

int main(int argc, char** argv) {
  SCM func;

  scm_init_guile();
  scm_c_primitive_load("c_call_guile.scm");
  func = scm_variable_ref(scm_c_lookup("show-me"));
  scm_call_0(func);