%
% load customer purchased items
%
empty
"Products" *hiertone
{
 _Customer.Orders &".fin"

 read

 *tabursrt

 0 !counter
 first\?
 {
  {
   !\
   "ProdPurch(" +counter & &"," \_Purch zeronull &
   jspend
   &
   final\? ?
  } loop
  pop
 } if
} if
%
% stack: cart-prod-js
%