void free_var_array(char *var_array, size_t depth, int *lower_bounds, int *upper_bounds)
{
    size_t i;
    struct variable **array = NULL;
    if (depth == 0)
    {
        free((struct variable *)var_array);
    }
    else
    {
        array = (struct variable **)var_array;
        for (i = 0; i <= (size_t)(*upper_bounds) - (*lower_bounds); ++i)
        {
            free_var_array((char *)array[i], depth - 1, lower_bounds + 1, upper_bounds + 1);
        }
    }
}