#!/usr/bin/perl
my %R, %S, %Any;
while (<>) {
  if (m/^([0-9]+).* R:([0-9]+)/) {
    my ($dst, $src) = ($1, $2);
    $R{$src,$dst}++;
    $Any{$src,$dst} = 1;
  } elsif (m/^([0-9]+).* S:([0-9]+)/) {
    my ($src, $dst) = ($1, $2);
    $S{$src,$dst}++;
    $Any{$src,$dst} = 1;
  }
}

printf "# SRC\tDST\tSEND\tRECV\tDIFF\n";
foreach (sort {$a <=> $b} keys %Any) {
  my ($key, $s,$r) = ($_, $S{$_}, $R{$_});
  $key =~ s/\034/\t/;
  printf "%s\t%d\t%d\t%d\n", $key, $s, $r, ($s-$r);
}