#!/usr/bin/perl -w

use strict;
use Bridge::File;

if (!@ARGV) {
	push @ARGV, "-";
}

foreach my $f (@ARGV) {
	my $t = Bridge::File::read($f);
	#print $t->print;
	$t->score;
	print $t->print;
	print "\nResults:\n";
	print $t->print_results;
}