sig
  type 'a t constraint 'a = 'b -> 'c
  type 'a elem
  type initial
  type 'a shtream
  type 'a coshtream
  type procref = Channel.procref
  type text = Fitting.FITTING.initial Fitting.FITTING.elem
  val ( -| ) :
    ('a -> 'b) Fitting.FITTING.t ->
    ('b -> 'c) Fitting.FITTING.t -> ('a -> 'c) Fitting.FITTING.t
  val pipe :
    ('a -> 'b) Fitting.FITTING.t ->
    ('b -> 'c) Fitting.FITTING.t -> ('a -> 'c) Fitting.FITTING.t
  val from_file : string -> ('a -> Fitting.FITTING.text) Fitting.FITTING.t
  val from_null : ('a -> Fitting.FITTING.text) Fitting.FITTING.t
  val from_gen :
    Channel.dup_in_source -> ('a -> Fitting.FITTING.text) Fitting.FITTING.t
  val from_shtream :
    'a Fitting.FITTING.shtream -> ('b -> 'a) Fitting.FITTING.t
  val to_file :
    ?clobber:Channel.clobber_spec ->
    string -> ('a Fitting.FITTING.elem -> 'b) Fitting.FITTING.t
  val to_null : ('a Fitting.FITTING.elem -> 'b) Fitting.FITTING.t
  val to_stderr : ('a Fitting.FITTING.elem -> 'b) Fitting.FITTING.t
  val to_gen :
    Channel.dup_out_source ->
    ('a Fitting.FITTING.elem -> 'b) Fitting.FITTING.t
  val to_coshtream :
    'a Fitting.FITTING.coshtream -> ('a -> 'b) Fitting.FITTING.t
  val command :
    string ->
    ('a Fitting.FITTING.elem -> Fitting.FITTING.text) Fitting.FITTING.t
  val program :
    ?path:bool ->
    string ->
    ?argv0:string ->
    string list ->
    ('a Fitting.FITTING.elem -> Fitting.FITTING.text) Fitting.FITTING.t
  val thunk :
    (unit -> unit) ->
    ('a Fitting.FITTING.elem -> Fitting.FITTING.text) Fitting.FITTING.t
  val sed : ('a -> 'b) -> ('a -> 'b) Fitting.FITTING.t
  val grep : ('a -> bool) -> ('a -> 'a) Fitting.FITTING.t
  val trans :
    ('a Fitting.FITTING.shtream -> 'b Fitting.FITTING.shtream) ->
    ('a -> 'b) Fitting.FITTING.t
  val sed_string :
    (string -> 'a) -> ('b Fitting.FITTING.elem -> 'a) Fitting.FITTING.t
  val grep_string :
    (string -> bool) ->
    ('a Fitting.FITTING.elem -> 'a Fitting.FITTING.elem) Fitting.FITTING.t
  val ( /</ ) :
    (Fitting.FITTING.text -> 'a) Fitting.FITTING.t ->
    Channel.dup_spec -> (Fitting.FITTING.text -> 'a) Fitting.FITTING.t
  val redirect_in :
    Channel.dup_spec ->
    (Fitting.FITTING.text -> 'a) Fitting.FITTING.t ->
    (Fitting.FITTING.text -> 'a) Fitting.FITTING.t
  val ( />/ ) :
    ('a -> 'b Fitting.FITTING.elem) Fitting.FITTING.t ->
    Channel.dup_spec -> ('a -> 'b Fitting.FITTING.elem) Fitting.FITTING.t
  val redirect_out :
    Channel.dup_spec ->
    ('a -> 'b Fitting.FITTING.elem) Fitting.FITTING.t ->
    ('a -> 'b Fitting.FITTING.elem) Fitting.FITTING.t
  val ( ^>>= ) :
    ('a -> 'b) Fitting.FITTING.t ->
    (Proc.status -> ('a -> 'b) Fitting.FITTING.t) ->
    ('a -> 'b) Fitting.FITTING.t
  val seq :
    ('a -> 'b) Fitting.FITTING.t ->
    (Proc.status -> ('a -> 'b) Fitting.FITTING.t) ->
    ('a -> 'b) Fitting.FITTING.t
  val ( ^>> ) :
    ('a -> 'b) Fitting.FITTING.t ->
    ('a -> 'b) Fitting.FITTING.t -> ('a -> 'b) Fitting.FITTING.t
  val ( &&^ ) :
    ('a -> 'b) Fitting.FITTING.t ->
    ('a -> 'b) Fitting.FITTING.t -> ('a -> 'b) Fitting.FITTING.t
  val ( ||^ ) :
    ('a -> 'b) Fitting.FITTING.t ->
    ('a -> 'b) Fitting.FITTING.t -> ('a -> 'b) Fitting.FITTING.t
  val ( ~>> ) :
    ('a -> 'b) Fitting.FITTING.t list -> ('a -> 'b) Fitting.FITTING.t
  val ( ~&& ) :
    ('a -> 'b) Fitting.FITTING.t list -> ('a -> 'b) Fitting.FITTING.t
  val ( ~|| ) :
    ('a -> 'b) Fitting.FITTING.t list -> ('a -> 'b) Fitting.FITTING.t
  val commands :
    string list ->
    (Fitting.FITTING.text -> Fitting.FITTING.text) Fitting.FITTING.t
  val yield : Proc.status -> ('a -> 'b) Fitting.FITTING.t
  val caml :
    (unit -> ('a -> 'b) Fitting.FITTING.t) -> ('a -> 'b) Fitting.FITTING.t
  val ( ^&= ) :
    (Fitting.FITTING.text -> 'a Fitting.FITTING.elem) Fitting.FITTING.t ->
    (Proc.t -> ('b -> 'c) Fitting.FITTING.t) -> ('b -> 'c) Fitting.FITTING.t
  val par :
    (Fitting.FITTING.text -> 'a Fitting.FITTING.elem) Fitting.FITTING.t ->
    (Proc.t -> ('b -> 'c) Fitting.FITTING.t) -> ('b -> 'c) Fitting.FITTING.t
  val ( ^& ) :
    (Fitting.FITTING.text -> 'a Fitting.FITTING.elem) Fitting.FITTING.t ->
    ('b -> 'c) Fitting.FITTING.t -> ('b -> 'c) Fitting.FITTING.t
  val run_source :
    (Fitting.FITTING.text -> 'a) Fitting.FITTING.t ->
    'a Fitting.FITTING.shtream
  val run_sink :
    ('a -> 'b Fitting.FITTING.elem) Fitting.FITTING.t ->
    'a Fitting.FITTING.coshtream
  val run_list : (Fitting.FITTING.text -> 'a) Fitting.FITTING.t -> 'a list
  val run_shtream :
    ('a -> 'b) Fitting.FITTING.t ->
    'a Fitting.FITTING.shtream -> 'b Fitting.FITTING.shtream
  val run_in :
    ?procref:Fitting.FITTING.procref ->
    (Fitting.FITTING.text -> 'a Fitting.FITTING.elem) Fitting.FITTING.t ->
    Pervasives.in_channel
  val run_out :
    ?procref:Fitting.FITTING.procref ->
    (Fitting.FITTING.text -> 'a Fitting.FITTING.elem) Fitting.FITTING.t ->
    Pervasives.out_channel
  val run_backquote :
    ?procref:Fitting.FITTING.procref ->
    (Fitting.FITTING.text -> 'a Fitting.FITTING.elem) Fitting.FITTING.t ->
    string
  val run_bg :
    (Fitting.FITTING.text -> 'a Fitting.FITTING.elem) Fitting.FITTING.t ->
    Proc.t
  val run :
    (Fitting.FITTING.text -> 'a Fitting.FITTING.elem) Fitting.FITTING.t ->
    Proc.status
  val string_of_elem : 'a Fitting.FITTING.elem -> string
  val elem_of_string : string -> Fitting.FITTING.text
  val int_of_elem : 'a Fitting.FITTING.elem -> int
  val elem_of_int : int -> Fitting.FITTING.text
  val char_of_elem : 'a Fitting.FITTING.elem -> char
  val elem_of_char : char -> Fitting.FITTING.text
  val float_of_elem : 'a Fitting.FITTING.elem -> float
  val elem_of_float : float -> Fitting.FITTING.text
  val bool_of_elem : 'a Fitting.FITTING.elem -> bool
  val elem_of_bool : bool -> Fitting.FITTING.text
end