parent $foundation
object $event_handler

var $root child_index 0
var $root owners [$event_handler]
var $root owned [$event_handler]
var $root fertile 0
var $root inited 1
var $root manager $event_handler
var $root writable [$event_handler]
var $root readable ['parameters, 'methods, 'code]
var $described prose #[]
var $has_verbs verbs 0
var $root dbref 'event_handler

method event
    arg frob;
    
.

method announce_event
    arg frob;
    var x;
    
    for x in (.environment())
        (| x.event(frob) |);
.