parent $thing_class object $wearable_class var $root child_index 3 var $root owners [$wearable_class] var $root owned [$wearable_class] var $root fertile 1 var $root inited 1 var $root manager $wearable_class var $root writable [$wearable_class] var $root readable ['parameters, 'methods, 'code] var $root dbref 'wearable_class method new arg [args]; var name, prose; name = [@args, ["", 'none, []]][1]; prose = [@args, [], []][2]; if (type(name) != 'list) throw(~type, "Names must be submitted as a list ([\"name\", 'type, [aliases]]."); if (type(prose) != 'list) throw(~type, "Prose must be submitted as a list."); return <this(), #[['name, name], ['prose, prose]]>; . method wear arg dict; sender().wear(.to_frob(dict)); .