#!/usr/bin/perl -w

foreach $i (0..9) {
    foreach $j (0..9) {
	open(OUT, "owari 8 $i 8 $j 1 20 0 |") or die;
	while (<OUT>) {
	    chomp;
	    /8 8 ([01])/ or die;
	    ++ $result{$i}{$j}[$1];
	    ++ $result_{$i}[$1];
	}
	die if $result{$i}{$j}[0] + $result{$i}{$j}[1] != 20;
	print "$i vs $j: won ", $result{$i}{$j}[0] / 20, "\n";
    }
    die if $result_{$i}[0] + $result_{$i}[0] != 20 * 10;
    print "$i: won ", $result_{$i}[0] / (20 * 10), "\n";
}