From 5c05d80b6b8d2523fe1bb47761e4b745fc774687 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 11 May 2023 16:43:52 +0100
Subject: [PATCH] more

---
 cpdfdraw.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index d39cc87..d648e1f 100644
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@@ -313,7 +313,7 @@ let draw_single ~filename ~bates ~batespad fast range pdf drawops =
   in
   let pdf = ref pdf in
     iter2
-      (fun n s -> if mem n range then pdf := Cpdftweak.append_page_content s false fast [n] !pdf)
+      (fun n s -> Printf.printf "Page %i\n%!" n; if mem n range then pdf := Cpdftweak.append_page_content s false fast [n] !pdf)
       (ilist 1 endpage)
       ss;
   let pdf = !pdf in