#!/bin/sh

PATH="bin:$PATH"

{
echo 'W	L	Rnd	Winner	Loser'
munge-scores "$@" | sort +1nr 
} | head -25 | tcat

# while (<>) {
#   s/#.*//;
#   next unless /\S/;
#   my ($name, @d) = split(/\s+/);
#   for my $i (0..2) {
#     my $ms = shift @d;
#     my $os = shift @d;
#     my $opp = shift @d;
#     next unless $opp ne '-' && $ms < $os;
#     print "$ms $name $os $opp\n";
#     }
#   }
