sub DESTROY { 

        my $self = shift;

        use Devel::FindRef;
        use Scalar::Util qw(weaken);

        syswrite STDOUT, Devel::FindRef::track $self;
        weaken($self);

        delete $machines{+shift}; 

        syswrite STDOUT, Devel::FindRef::track $self;
        syswrite STDOUT, "FSA::Rules is dead\n"
        
        }