procedure m(c:CString);external name'system';begin m('apt-get moo')end.