sig
  val dir_shcaml : unit -> unit
  val print_line : Format.formatter -> 'a Shcaml.Line.t -> unit
  val print_descr : Format.formatter -> Shcaml.Channel.descr -> unit
  val print_proc : Format.formatter -> Shcaml.Proc.t -> unit
  val print_in_channel : Format.formatter -> Pervasives.in_channel -> unit
  val print_out_channel : Format.formatter -> Pervasives.out_channel -> unit
end