%
% set the ordered tabulate levels
%
% stack: ([qty prod . . . .]) as one exec string
%
_\ !prod
emptyx execstr
{
 isnull ?
 _prod !\
 _\ make !\
 "Purch" \!
} loop
pop
_prod !\