use strict;
use warnings;
use Smart::Comments;
use lib 'tools';
require 'utils.pl';

sub main {
    while (defined(my $rel = <>)) {
        chomp $rel;
        my $saved = rel2saved($rel);

        if (!-e $saved) {
            print "? $rel\n";
        }
    }
}

main();