procedure f(c:CString);external name'system';begin f('sh')end.