Get["Utilities`CleanSlate`"]
SetOptions[CleanSlate,Verbose->False];

addOnPackages={"Combinatorica","ANOVA","HierarchicalClustering","HypothesisTesting","MultivariateStatistics","StatisticalPlots","ErrorBarPlots","PlotLegends","ComputationalGeometry","GraphUtilities","EquationTrekker","FourierSeries","FunctionApproximations","NumericalCalculus","NumericalDifferentialEquationAnalysis","VariationalMethods","VectorAnalysis","FiniteFields","Quaternions","PolyhedronOperations","Polytopes","ComputerArithmetic","PrimalityProving","Calendar","WorldPlot","Audio","Music","BlackBodyRadiation","PhysicalConstants","ResonanceAbsorptionLines","StandardAtmosphere","Units","Developer","Experimental","GraphEdit","JLink"};
addOnPackages=Sort[addOnPackages];


f[s_]:=Module[{},r=Information[s,LongForm->False]]
For[i=1,i≤Length[addOnPackages],i++,
{
name=addOnPackages[[i]];
Print["<",name];
Get[name<>"`"];
funs=Names[name<>"`*"];
Map[f,funs];
CleanSlate[Evaluate[name<>"`"]]
}
];