Book template 'bookName';

Watch template 'watchName';

Item template 'itemName';

object template 'name';

Book 'book 1';

book2: Book 'book2';

Watch 'watch 1';

watch2: Watch 'watch 2';

Stopwatch 'stopwatch 1';

stopwatch2: Stopwatch 'stopwatch 2';

Item 'item 1';

item2: Item 'item 2';

Thing 'thing 1';

thing2: Thing 'thing 2';

Box 'box 1';

box2: Box 'box 2';

modify Thing

    sdesc = "name = <<name>>\n"

;

modify Watch

    sdesc = "modified watch sdesc: <<inherited.sdesc>>"

;

#if 0

extern class Foo;

Foo 'foo 1';

foo2: Foo 'foo 2';

#endif

main(args)

{

    for (local obj = firstObj(Thing) ; obj != nil ; obj = nextObj(obj, Thing))

        obj.sdesc;

    for (local obj = firstObj(Item) ; obj != nil ; obj = nextObj(obj, Item))

        obj.sdesc;

}