program echo; type pstrg = ^string; var p : pstrg; external function @cmd : pstrg; begin (* echo *) p := @cmd; writeln(p^) end.