tell application "Address Book"
    set out to "<rdf:RDF xmlns:foaf='http://xmlns.com/foaf/0.1/' "
    set out to out & "xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'>"
    repeat with p in people
        set out to out & "<foaf:Person>"
        set out to out & "<foaf:name>" & name of p & "</foaf:name>"
        repeat with e in emails of p
            set out to out & "<foaf:mbox>mailto:" & value of e & "</foaf:mbox>"
        end repeat
        set out to out & "</foaf:Person>"
    end repeat
    set out to out & "</rdf:RDF>"
    out
end tell