/* Declare SCM types for calling a function and reading its output */SCMfunc_symbol;SCMfun;SCMret_val;/* Look up the symbol */func_symbol=scm_c_lookup("function-name");func=scm_variable_ref(func_symbol);/* Call a Scheme function taking one argument */ret_val=scm_call_1(func,scm_from_locale_string("string argument"));/* ret_val now holds the return value from the function */