%
% stack: prod-index
%
"Products" *hiertone
{
 first\?
 {
  !\
  dup - *treefwrd
 } if
} if
pop
select*