A>>template<class T>
A>>struct scalar_delete 
A>>{
A>>    void operator() const (T* p) { return delete p;}
A>>};

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