1function r = parent (a)
2  __trace__ ('begin derived/parent');
3  if (isa (a, 'parent'))
4    r = parent (a.parent);
5  else
6    error ('foo');
7  end
8  __trace__ ('end derived/parent');
9end
10