printf++$c." %s"."%3d"x7 ."%4s
",@$_ for sort{$$b[2]-$$a[2]}map{/ .-./;@s||printf"%@+sP Pt  W  D  L  F  A  GD
";@s=$`;$s[1]++,$s[4-($&<=>$')]++,$s[2]=$s[3]*3+$s[4],($s[8]=($s[6]+=$&)-($s[7]+=$'))=~s/^[1-9]/+$&/while/.-/g;[@s]}sort<>