list_free( (*p->right->func)( p->right, frame ) );
list_free( parse_evaluate( p->right, frame ) );
compile_while(    PARSE   *p,    FRAME *frame ){    while ( evaluate_if( p->left, frame ) )    {        list_free( (*p->right->func)( p->right, frame ) );    }    return L0;}