#!/usr/bin/perl

use warnings;
use strict;

while(my $c = <>){
	$_ = <>;
	s/
	.*?(\b\d+)[ ]
	(?=(\d+)\b)
	(??{
		print "[$1 $2]\n";
		$2 - $1 <= $c ? 'X' : ''
	})
	/
	(print "DELETED:[$&] REMAINS:[$']\n"),
	''
	/egx;
	printf "NUMBERS:[%d:%s]\n", (length s/\d//gr), $_;
	print '-' x 10, "\n";
	}