#! perl -w
while(<>){
    chomp;
    next if /later-profile/;
    next if /-debug/;
    die unless /x\.(4.\d)-(profile|baseline) (.*)/;
    $time{$1.$2}=1.0/$3;
}
$scale=$time{"4.4baseline"};
print << 'EOF';
<table border="1">
<tr><th>g++ Version</th><th>Baseline speed</th><th>Profile-guided optimization</th></tr>
EOF
foreach $version (qw(4.4 4.5 4.6 4.7)){
    print "<tr><td>$version</td> ";
    printf('<td>%.3f</td>',$time{$version."baseline"}/$scale);
    printf(' <td>%.3f</td>',$time{$version."profile"}/$scale);
    print "</tr>\n";
}
print "</table>\n";
