/* evaluate program */
answer = 0;
element_t *elements = dupelement (programs[n]->root);
ret = evaluate_element (elements, 0);
/* evaluate program */
answer = 0;
element_t *elements = dupelement (programs[n]->root);
ret = evaluate_element (elements, 0);