#!perl -nlw
if(/^\s*(\d+)\s+([^\(]+)(.*) <unfinished \.\.\.>$/){
    die "already ($1$2) $_" if defined($pending{$1.$2});
    $pending{$1.$2}=$3;
} elsif (/^\s*(\d+)\s+<\.\.\. (\S+) resumed> (.*)/) {
    die "not found $_" unless defined($l=$pending{$1.$2});
    delete$pending{$1.$2};
    print"$1 $2$l$3";
} else {
    print;
}