parent $filters
object $wrap_filter

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

method filter
    arg input;
    var len, output, e, line;
    
    len = sender().linelen();
    output = [];
    input = .compress(input);
    for e in (input) {
        e = $string.wrap_line(e, len);
        output = [@output, e[1]];
        for line in (sublist(e, 2))
            output = [@output, " " + line];
    }
    return output;
.