service namespace quote="www.ethz.ch" port:2001;

import service namespace ws="www.namespace.ch" from "http://www.webservicex.net/stockquote.asmx?WSDL";
declare execution sequential;
declare namespace tns = "http://www.webserviceX.NET/";

declare function quote:CompanyFinance($a) {
let $quoteResult := ws:GetQuote(<tns:symbol>{data($a)}</tns:symbol>)
return
<result> <quote>{data($quoteResult )}</quote><news>
{for $b in doc(data(concat("http://finance.yahoo.com/rss/headline?s=",data($a))))/rss/channel/item
return 
	<newsItem><title>{data($b/title)}</title><link>{data($b/link)}</link></newsItem>}
</news></result>
};