%
% stack: empty [ qty prod . . . ]
%
% set the quantities for products
%
{
 isnull ?
 " " "_" replall
 ^"Prods." dup _ rot add exch !
} loop
pop