#!/usr/bin/perl


$good=0;
$bad=0;

while($l = <>)
{
  chomp($l);
  if($l =~ /^[RW]\s+(\d+)\s+(\d+)$/)
  {
    $tromleplads = $1;
    $len = $2;
    if(($tromleplads+1)%40==0 && $len==40)
    {
      $good++;
    }
    else
    {
      $bad++;
    }
  }
}

print "good: $good\n";
print "bad:  $bad\n";