From 5aadf4171505c30873eb9c1cc0deeaa752f095be Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 23 Aug 2016 13:13:51 +0100
Subject: [PATCH] compute-scottish-stv: format output for slightly easier
 comparison

---
 compute-scottish-stv | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compute-scottish-stv b/compute-scottish-stv
index 81dc6ad..a7fb378 100755
--- a/compute-scottish-stv
+++ b/compute-scottish-stv
@@ -201,7 +201,7 @@ sub sv ($) {
 
 sub prf {
     my $fmt = shift;
-    printf "stage %d: ".$fmt, $stage, @_;
+    printf " ".$fmt, @_;
 }
 
 sub countballots () {
@@ -223,7 +223,8 @@ sub computequota () {
     my $totalvalid = 0/1;
     $totalvalid += $_->{Total} foreach values %cands;
     $quota = floor($totalvalid / (1 + $seats) + 1);
-    prf "total valid %s quota %s\n", (sv $totalvalid), (sv $quota);
+    prf "total valid %s\n", sv $totalvalid;
+    prf "quota       %s\n", sv $quota;
 }
 
 sub total_history_cmp () {
@@ -311,6 +312,7 @@ $stage = 0;
 
 for (;;) {
     $stage++;
+    printf "stage %3d:\n", $stage;
 
     sortballots @allvotes if $stage == 1;
 
-- 
2.30.2