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

@len = ();

$match = "";
foreach (<>) {
  chomp;
  if (/versus/) {
    $match = $_;
  }
  if (/^Player [0-9]+ moves/) {
    $n++;
  } else {
    if ($n) {
      $len[$n] = "" if (!defined($len[$n]));
      $len[$n] .= $match . "\n";
      $n = 0;
    }
  }
}

print $#len, " ", $len[$#len];