#! /usr/bin/env perl
use v5.10.1;
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use lib "..";
use ACU::Grading;
use ACU::Trace;
my $grade = Grading->new();
do {
my $xml;
open $xml, "<", shift or die $!;
binmode $xml;
my $trace = Trace->new($xml);
close $xml unless $xml eq *STDIN;
$grade->create_from_trace("rendu_1", "rendu-1", $trace);
} while ($#ARGV >= 0);
print $grade->to_string();