#!/usr/bin/perl

$init = 36;

if ($#ARGV == 0) 
{
    $init = ($ARGV[0] =~ /1/) ? 30 : 36;
}
else 
{
    die "Usage: checkrand 0|1 for regular|initial rollouts\n";
}
while (<STDIN>)
{
    s/\s+$//;
    @r = split (/\s/);
    $game = $r[5];
    if (($game > 0) && (($game % $init) == 0))
    {
        foreach $k (sort keys %roll1) 
        {
            $n = $roll1{$k};
            if (($n != 1) && ($n != 2) )
            {
                print "$k $roll1{$k}  $n $game\n";
            }
                       
            $roll1{$k} = 0;
        }
    }
    if (($game > 0) && (($game % ($init * 36)) == 0))
    {
        foreach $k (sort keys %roll2) 
        {
            $n = $roll2{$k};
            if (($n != 1) && ($n != 2) && ($n != 4) )
            {
                print "$k $roll2{$k}  $n $game\n";
            }
                       
            $roll2{$k} = 0;
        }

        if (($game % ($init * 1296)) == 0) 
        {
            foreach $k (sort keys %roll3) 
            {
                $n = $roll3{$k};
                if (($n != 1) && ($n != 2) && ($n != 4) && ($n != 8))
                {
                    print "$k $n $game\n";
                }      

                $roll3{$k} = 0;
            }
        }
    }
    $roll1{"$r[0]"} += 1;
    $roll2{"$r[0]$r[1]"} += 1;
    $roll3{"$r[0]$r[1]$r[2]"} += 1;
    $roll4{"$r[0]$r[1]$r[2]$r[3]"} += 1;
}

if (($game + 1) % ($init * 36) == 0) 
{
    foreach $k (sort keys %roll2) 
    {
        $n = $roll2{$k};
        if (($n != 1) && ($n != 2) && ($n != 4))
        {
            print "$k $roll2{$k} $game\n";
        }
    }
}


if (($game + 1) % ($init * 1296) == 0)
{
    foreach $k (sort keys %roll3) 
    {
        $n = $roll3{$k};
        if (($n != 1) && ($n != 2) && ($n != 4) && ($n != 8))
        {
            print "$k $n $game\n";
        }      
    }
}

if (($game + 1) % ($init * 36 * 1296) == 0)
{
    foreach $k (sort keys %roll4) 
    {
        $n = $roll4{$k};
        if (($n != 1) && ($n != 2) && ($n != 4) && ($n != 8) && ($n != 16))
        {
            print "$k $roll4{$k} $game\n";
        }
    }
}
print "Done\n";