1 files changed, 12 insertions, 0 deletions
diff --git a/src/bundles.adb b/src/bundles.adb
index 9701c40..50741ee 100644
--- a/src/bundles.adb
+++ b/src/bundles.adb
@@ -86,6 +86,18 @@ package body Bundles is
 
 
 
+    procedure Count_Both
+           (This   : in     Bundle;
+            Votes  :    out Natural;
+            Papers :    out Natural) is
+    begin
+        Papers := Count_Papers (This);
+        Votes := Rationals.Floor (Papers * This.Worth);
+    end Count_Both;
+
+
+
+
     function "<"
            (Left, Right : in Bundle)
         return Boolean is