#!/usr/bin/perl
$i = 0;
while(<>) {
    if(/i= (\d+) /) {
        if(defined $line{$1}) {
            print"duplicate\n$_$line{$1}";
        }
        $line{$1}=$_;
    }
}
for($i=0;$i<1000;$i++) {
    my $s = sprintf("%04d",$i);
    if(!defined $line{$s}){
        print"missing $s\n";
    }
}