A>template<class T>
A>class scalar_delete
A>{
A>    void operator() (T* p) { returndelete p;}
A>};

A>Smart_Keeper::~Smart_Keeper()
A>{
A>    for_each(Data.begin(), Data.end(), scalar_delete< <list<string> >());
A>}
A>