int
main(string arg)
{
    /* clean up first */
    if (file_size("/tmp_eval_file.lpc") != -1)
	rm ("/tmp_eval_file.lpc");
    if (find_object("/tmp_eval_file.lpc"))
	destruct(find_object("/tmp_eval_file.lpc"));

    write_file("/tmp_eval_file.lpc","mixed eval() { "+arg+"; }\n");
    printf("Result = %O\n", "/tmp_eval_file.lpc"->eval());
    return 1;
}
