parent $misc
object $filters
var $root child_index 1
var $root owners [$core]
var $root owned [$filters]
var $root fertile 0
var $root inited 1
var $root manager $filters
var $root writable [$filters]
var $root readable ['parameters, 'methods, 'code]
var $root dbref 'filters
method compress
arg input;
var e, output;
// only goes 1 element deep--sorry, anybody sending anything past that will
// be shot.
output = [];
if (type(input) == 'list) {
for e in (input) {
if (type(e) == 'list)
output = [@output, @e];
else
output = [@output, e];
}
} else {
output = [input];
}
return output;
.