Call RegItems RP ( Row, Row_number : 
                                     Row.
                                      Say Row_number  "\t" ''
                                          Region_name "\t" ''     
                                          Items_by_region
                                     ;
                 )
Where RP = < Region : Name, PL : Product_level >