#!perl -w

#manually edited to remove depth 37
open FI,"before.02" or die;
while(<FI>){
    chomp;
    s/^\s*(\d+) //;
    $d=$1;
    $before{$d}=$_;
}

open FI,"after.02" or die;
while(<FI>){
    chomp;
    s/^\s*(\d+) //;
    $d=$1;
    $after{$d}=$_;
}

open FI,"color-scheme" or die;
while(<FI>){
    chomp;
    @F=split;
    $color{$F[0]}=$F[1];
}
for$i(1..36){
    print "<h2>Depth $i</h2><table>\n";
    @F=split for $before{$i};    &out(@F);
    @F=split for $after{$i};    &out(@F);
    print "</table>\n";
}

sub out {
    print "<tr>";
    for(@_){
        print qq(<td style="background-color:#$color{$_};color:black;text-align:right">$_</td>);
    }
    print "</tr>\n";
}