#!/usr/bin/perl
use warnings;
use strict;

my $previous_num = -1;
my $previous_line;
my $print_next = 0;

sub output {
    my $num = shift;
    my $adjacent = abs($previous_num - $num) == 1;
    if ($print_next || $adjacent) {
        print $previous_line;
        $print_next = $adjacent;
    }
}

while (<>) {
    my ($num) = /([0-9]+$)/;
    output($num);
    $previous_num = $num;
    $previous_line = $_;
}
output($previous_num);  # Process the last line.


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,