procedure test (option, my_string)

local ret_string, input_value, input_string;

input_value     := option;
input_string    := my_string;

ret_string := call_user (input_value, input_string);
message (fao ("input value = !SL", input_value));
message (fao ("input string = !AS", input_string));
message (fao ("return string = !AS", ret_string));

endprocedure;