xml parsing in arexx

Can someone help me parse the attached xml file with arexx, please ?

[thomas]

/* rexx */

if Open(in,"jamendo.xml",read) then do
	xml = ReadCh(in,65535)
	call Close(in)
end

x = index(xml,"<album>")
do while (x > 0)
	y = index(xml,"</album>",x)
	album = substr(xml,x+7,y-x-7)
	parse var album,
		1 "<id>" id "</",
		1 "<name>" name "</",
		1 "<url>" url "</",
		1 "<image>" image "</",
		1 "<artist_name>" artist "</"

	say "id     =" id
	say "name   =" name
	say "url    =" url
	say "image  =" image
	say "artist =" artist
	say ""

	x = index(xml,"<album>",y)
end

Thanks a lot, Thomas !!