parent $logic_class
object $not

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

method unparse
    arg notlist;
    
    catch any {
        catch ~type, ~methodnf {
            return "!" + ((notlist[1]).unparse());
        } with handler {
            return "!" + tostr(notlist[1]);
        }
    } with handler {
        return "!()";
    }
.

method test
    arg notlist, [args];
    var val;
    
    catch ~range {
        catch ~type, ~methodnf {
            return !((notlist[1]).test(@args));
        } with handler {
            return !(notlist[1]);
        }
    } with handler {
        return 1;
    }
.