АТ>Smart_Keeper::~Smart_Keeper()
АТ>{
АТ>    list <list <string>* >::iterator l = Data.begin();
АТ>    while (l != Data.end()) delete *l++;
АТ>}
АТ>

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

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