function T2 = Prune(T,v,d)
        Tsub = Subtree(T,v);
        [nsub dump] = size(Tsub);
        list = [];
        for i = 1:(nsub-1)
            list = [list string(Tsub.Properties.RowNames{i})];
        end
        T(list,:) = [];
        T{v,"Type"} = "BAS";
        T{v,"Children"}{1} = [];
        T{v,"Duration"} = d;
        T2 = T;
end