int main(string arg) { /* clean up first */ if (file_size("/tmp_eval_file.c") != -1) rm ("/tmp_eval_file.c"); if (find_object("/tmp_eval_file")) destruct(find_object("/tmp_eval_file")); write_file("/tmp_eval_file.c","mixed eval() { "+arg+"; }\n"); printf("Result = %O\n", "/tmp_eval_file"->eval()); return 1; }