/* rexx */                       
call syscalls 'ON'               
address syscall                  
say "users:"                     
do forever                       
   "getpwent pw."                
   if retval=0 | retval=-1 then  
      leave                      
   say pw.pw_name                
end                              
say "groups:"                    
do forever                       
   "getgrent gr."                
   if retval=0 | retval=-1 then  
      leave                      
   say gr.gr_name                
end                              
return 0