/*
GP;install("test_func", "vDG", "test", "path/to/test.gp.so");
*/
void
test_func(GEN x) {
  if (x == NULL)
    pari_printf("Argument omitted.\n");
  else
    pari_printf("Argument was: %Ps\n", x);
}