%
% stack: empty [ prod . . . ]
%
% set the quantities for products
%
% stack: empty [ prod . . . ]
%
empty !tally
{
 isnull ?
"OrdHa" log)(
 dup
 " " "_" replall ^"Prods." _
%
% stack: empty [ prod . . . ] prod sum-qty
%
 &" " exch squoter &&;
 ^:tally
%
% stack: empty [ prod . . . ]
%
} loop
pop

_tally