parent $filters
object $ctext_filter

var $root dbref 'ctext_filter
var $root child_index 0
var $root fertile 0
var $root manager $ctext_filter
var $root owned [$ctext_filter]
var $root owners [$]
var $root writable []
var $root readable ['parameters, 'methods, 'code]
var $root inited 1

method filter
    arg what;
    var term, output, dic, t1;
    
    dic = #[['sender, sender()], ['time, 'post], ['evaluator, $format_evaluator]];
    switch (type(what)) {
        case 'frob:
            output = what.eval_ctext(dic);
        case 'list:
            output = [];
            for term in (what) {
                switch (type(term)) {
                    case 'frob:
                        term = term.eval_ctext(dic);
                        if (type(term) == 'list)
                            output = [@output, @term];
                        else
                            output = [@output, term];
                    default:
                        output = [@output, term];
                }
            }
        default:
            output = what;
    }
    return output;
.