#!/usr/bin/perl

open IN,"gier.debug" or die;

$lastsign = -2;
$lastexecute = "";

while($l=<IN>)
{
  chomp($l);
  if($l =~ /^Execute/)
  {
    $lastexecute = $l;
  }
  if($l =~ /AC: (\d)/)
  {
    $sign = $1;
    if($sign != $lastsign)
    {
      print "$sign $lastexecute\n";
      $lastsign = $sign;
    }
  }
}