Untitled

let $program_ID := 
                        for $c in $sr/sr/broadcasts/broadcast 
                        where $c/duration < 143 
                        return $c/program 
                        
                    let $unique_program_ID := distinct-values($program_ID) 
                    let $unique_program_ID_list := 
                        for $unique_program_ID in $unique_program_ID 
                        return <li>{string($unique_program_ID)}</li> 
                        
                     
                    for $prog in $sr/sr/programs/program[@id = $unique_program_ID_list]
                    return $prog/editor