/* REXX */                                                                      
PARSE ARG parm                                                                  
                                                                                
PARSE VAR parm url '?' query                                                    
                                                                                
DO x = 1 BY 1 WHILE LENGTH(query) > 0                                           
   PARSE VAR query pair '&' query                                               
   PARSE VAR pair name.x '=' value.x                                            
END /* WHILE */                                                                 
                                                                                
name.0 = x - 1                                                                  
                                                                                
DO x = 1 TO name.0                                                              
   SAY name.x 'has a value of' value.x                                          
END /* WHILE */