WJElement doc = NULL;
    WJElement person = NULL;
    doc = WJEObject(NULL, NULL, WJE_NEW);
    WJEString(doc, "name", WJE_SET, "Serenity");
    WJEString(doc, "class", WJE_SET, "firefly");
    WJEArray(doc, "crew", WJE_SET);
    WJEObject(doc, "crew[$]", WJE_NEW);
    WJEString(doc, "crew[-1].name", WJE_SET, "Malcolm Reynolds");
    WJEString(doc, "crew[-1].job", WJE_SET, "captain");
    WJEInt64(doc, "crew[-1].born", WJE_SET, 2468);
    WJEObject(doc, "crew[$]", WJE_NEW);
    WJEString(doc, "crew[-1].name", WJE_SET, "Kaywinnet Lee Fry");
    WJEString(doc, "crew[-1].job", WJE_SET, "mechanic");
    WJEInt64(doc, "crew[-1].born", WJE_SET, 2494);
    WJEObject(doc, "crew[$]", WJE_NEW);
    WJEString(doc, "crew[-1].name", WJE_SET, "Jayne Cobb");
    WJEString(doc, "crew[-1].job", WJE_SET, "public relations");
    WJEInt64(doc, "crew[-1].born", WJE_SET, 2485);
    WJEBool(doc, "shiny", WJE_SET, TRUE);
    WJEInt64(doc, "crew[].born == 2468", WJE_SET, 2486);  /* note: awesome! */
    WJECloseDocument(WJEGet(doc, "shiny", NULL));
    while((person = _WJEObject(doc, "crew[]", WJE_GET, &person))) {
        printf("%s (%s) is %d\n",
               WJEString(person, "name", WJE_GET, ""),
               WJEString(person, "job", WJE_GET, ""),
               2517 - WJEInt64(person, "born", WJE_GET, 0));
    }
    WJEDump(doc);
    WJECloseDocument(doc);