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));
.