BEGIN {
    # Get the id's
    var = 0;
    while(( getline line < "E0.txt") > 0) {
        ids[var++] = "^>" line ".*";
    }
    protein = "";
    doProcess = 0; # False
}
{
    if (!doProcess || substr($, 1, 1) == ">") {
        doProcess = 0;
        for (id in ids) {
            if (match($0, ids[id])) {
                doProcess = 1; # True
                print $0;
                break;
            }
        }
    } else if (doProcess) {
        print $0;
    }
}