any_fold => sub {
        while ( $data =~ /^(\d+) (\d+)/mg ) {
            next if any { $1 == $_ || $2 == $_ } @skip;
        }
        return 1
    },
    any_cr_fold => sub {
        while ( $data =~ /^(\d+) (\d+)/mg ) {
            my ( $c, $r ) = ( $1, $2 );
            next if any { $c == $_ || $r == $_ } @skip;
        }
        return 1
    },