/usr/share/doc/libres-ocaml-dev/examples/buffer_ex.ml is in libres-ocaml-dev 4.0.3-3+b1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 | (* Reads a file given as first argument into a buffer and prints it
out again. Uses an exponentially growing read-ahead during reading
(just for demonstration). *)
let _ =
let buf = Res.Buffer.empty ()
and file = open_in Sys.argv.(1) in
Res.Buffer.add_full_channel_f buf file 50000 (( * ) 2);
Res.Buffer.output_buffer stdout buf
|