sub Value_eq {
        my ($target_value) = @_;
        sub { $_[0] eq $target_value ? 0 : undef }
    }
    
    sub Negative {
        sub { $_[0] < 0 ? 0 : undef }
    }