#!/usr/local/bin/perl -w

my $buf = '';
my $buflabel = '';
while (<>) {
  next unless /^\d+:\s*\((\S+)/;
  if ($buf) {
    if ($buflabel eq $1) {
      print ' '.$_;
    } else {
      print '-'. $buf;
      print '+' . $_;
    }
    $buf = '';
  } else {
    $buflabel = $1;
    $buf = $_;
  }
}
