First little JSON output working

cpdfcommand.ml

@@ -1,9 +1,9 @@
 (* cpdf command line tools *)
 let demo = false
-let noncomp = true
+let noncomp = false
 let major_version = 2
 let minor_version = 4
-let version_date = "(devel, 24th January 2020)"
+let version_date = "(devel, 30th January 2020)"
 
 open Pdfutil
 open Pdfio

cpdfwriteJSON.ml

@@ -1 +1,12 @@
-let write fh parse_content pdf = ()
+module J = Tjjson
+
+let test = J.Array [J.Number "100"; J.String "foo"]
+
+let write fh parse_content pdf =
+  let b = Buffer.create 256 in
+  let formatter = Format.formatter_of_buffer b in
+    Tjjson.format formatter test;
+    Format.pp_print_flush formatter ();
+    output_string fh (Buffer.contents b)
+
+