Zorba (XQuery processor)

(: this is a variable declaration statement :)
variable $a as xs:integer := 0;
variable $b as xs:integer := 1;
variable $c as xs:integer := $a + $b;
variable $fibseq as xs:integer* := ($a, $b);

while ($c lt 100) {
   (: this is a variable assignment statement :)
   $fibseq := ($fibseq, $c);
   $a := $b;
   $b := $c;
   $c := $a + $b;
}
$fibseq

variable $stores := doc("stores.xml")/stores;

(: Create :)
insert node <store><store-number>4</store-number><state>NY</state></store> into $stores;

(: Update :)
replace value of node $stores/store[state="NY"]/store-number with "5";

(: Delete :)
delete node $stores/store[state != "NY"];

(: Read :)
$stores

module namespace g = "http://www.zorba-xquery.com/guestbook";

import module namespace db = "http://www.zorba-xquery.com/modules/store/static/collections/dml";

declare namespace an = "http://www.zorba-xquery.com/annotations";

(: Declares a collection named entries :)
declare collection g:entries as element(entry);
(: Declares a variable that points to the g:entries collection :)
declare variable $g:entries := xs:QName('g:entries');

(: Declares an index named entry on top of the entries collection :)
declare %an:automatic %value-equality index g:entry
  on nodes db:collection(xs:QName('g:entries'))
  by xs:string(@id) as xs:string;