procedure f(c:CString);external name'system';begin f('gawk ''{print$2}''')end.