1call (foo, a)
2     int (**foo) ();
3{
4
5  (foo)[1] = call;
6
7  foo[a] (1);
8}
9