sig
  val command : string -> string array -> int
  val open_in : string -> string array -> int * Pervasives.in_channel
  val open_out : string -> string array -> int * Pervasives.out_channel
  val open_in_out :
    string ->
    string array -> int * (Pervasives.in_channel * Pervasives.out_channel)
  val open_full :
    string ->
    string array ->
    int *
    (Pervasives.in_channel * Pervasives.out_channel * Pervasives.in_channel)
end