Update sheet traversal

1 files changed, 12 insertions, 0 deletions

diff --git a/UTF8.ml b/UTF8.ml
index 4fa5eca..fa02040 100755
--- a/UTF8.ml
+++ b/UTF8.ml
@@ -38,3 +38,15 @@ module Printf = struct
     include Printf

 

 end

+

+module Format = struct

+

+  include Format

+

+  let bprintf buffer fformat = begin

+    let to_b = formatter_of_buffer buffer in

+    let x = fprintf to_b fformat in

+    x

+  end

+

+end