app_String
s = app_String(s, c);
extern String *app_String();
(*sptr) = app_String(*sptr,
ar.ptr = app_String(ar.ptr,
ar.ptr = app_String(ar.ptr, MSG_ORIG(MSG_STR_OPENBRAK));
ar.ptr = app_String(ar.ptr,
ar.ptr = app_String(ar.ptr, MSG_ORIG(MSG_STR_CLOSEPAR));
*sptr = app_String(*sptr,MSG_ORIG(MSG_STR_OPENPAR));
(*sptr) = app_String(*sptr,(*c && *c == 'e') ?
*sptr = app_String(trunc_String(*sptr, 1), MSG_ORIG(MSG_STR_CLOSEPAR));
*sptr = app_String(*sptr,PTR(r->ptr));
s = app_String(s, MSG_ORIG(MSG_STR_OPENCLOSEPAR));
s = app_String(s, MSG_ORIG(MSG_STR_OPERATOR_1));
s = app_String(s, x);
s = app_String(s, MSG_ORIG(MSG_STR_OPERATOR_2));