<% $last = 0 %>

<%FETCH CATEGORY_TREEx DISPLAY PRINT '

' x ($last-$Level)%> <%IF $num_categories THEN%>

$*GroupName <%PRINT '

'%> <%ELSE%>
• $*GroupName
<%ENDIF%> <%FETCH Product IF $Numrows THEN%>
<%ENDIF DISPLAY%>
• $*Name
<%NEXTROW IF $Numrows THEN%>
<%ENDIF ENDFETCH%> <%$last=$Level NEXTROW PRINT '

' x $last ENDFETCH%>