let
open_out ?(level = 6) filename =
of_out_channel ~level (
Pervasives
.open_out_bin filename)