Вызов функции-члена элементов списка

class A{
public:
    virtual int f1( int k ){printf("%d: aprint:%d\n",k,a);return a;}
    void f2( int k ){printf("%d: avoid:%d\n",k,a);}
    int a;
};
class B: public A{
public:
    B( int a, int b ):b(b){A::a=a;}
    virtual int f1( int k ){printf("%d: bprint:%d %d\n",k,a,b);return a;}
    void f2( int k ){printf("%d: bvoid:%d %d\n",k,a,b);}
    int b;
};
class L{
public:
    L(){
        for(int i = 0; i < s; i++ ){
            p[i] = new B( rand() % 10, rand() % 10 );
        }
    }
    ~L(){
        for(int i = 0; i < s; i++ ){
            if( p[i] ) delete p[i];
        }
    }
    template <typename T, typename F> void exe( F f ){
        for(int i = 0; i < s; i++ ){
            // + добавить проверку типа и наличия функции
            if( p[i] ) ( ( (T*)p[i] )->*f )( i );
        }
    }
private:
    enum{s=3};
    int n = 0;
    A *p[s];
};
int _tmain(int argc, _TCHAR* argv[])
{
    srand(134);
    L base;
    base.exe<A>( &A::f1 );
    base.exe<B>( &B::f1 );
    base.exe<A>( &A::f2 );
    base.exe<B>( &B::f2 );
    getchar();
    return 0;
}