sig val ( << ) : Pervasives.out_channel -> string -> unit end