sig
  type 'a fitting = 'a Fitting.t constraint 'a = 'b -> 'c
  type 'a shtream = 'a Shtream.t
  type 'a line = 'a Line.t
  type absent = Line.absent
  type present = Line.present
  val ls :
    string ->
    ('a ->
     < delim : Line.absent; fstab : Line.absent; group : Line.absent;
       key_value : Line.absent; mailcap : Line.absent; passwd : Line.absent;
       ps : Line.absent; seq : Line.absent; source : UsrBin.present;
       stat : < blksize : Line.absent; blocks : Line.absent;
                mode : UsrBin.present > >
     UsrBin.line)
    UsrBin.fitting
  val from_directory :
    string ->
    ('a ->
     < delim : Line.absent; fstab : Line.absent; group : Line.absent;
       key_value : Line.absent; mailcap : Line.absent; passwd : Line.absent;
       ps : Line.absent; seq : Line.absent; source : UsrBin.present;
       stat : Line.absent >
     UsrBin.line)
    UsrBin.fitting
  val ps :
    unit ->
    ('a ->
     < delim : Line.absent; fstab : Line.absent; group : Line.absent;
       key_value : Line.absent; mailcap : Line.absent; passwd : Line.absent;
       ps : UsrBin.present; seq : UsrBin.present; source : UsrBin.present;
       stat : Line.absent >
     UsrBin.line)
    UsrBin.fitting
  val cut :
    ('a UsrBin.line -> string) -> ('a Line.t -> 'a Line.t) UsrBin.fitting
  val head : int -> ('a -> 'a) UsrBin.fitting
  val head_while : ('a -> bool) -> ('a -> 'a) UsrBin.fitting
  val behead : int -> ('a -> 'a) UsrBin.fitting
  val behead_while : ('a -> bool) -> ('a -> 'a) UsrBin.fitting
  val echo : string -> ('a -> Line.empty Line.t) UsrBin.fitting
  val renumber :
    int ->
    (< delim : 'a; fstab : 'b; group : 'c; key_value : 'd; mailcap : 'e;
       passwd : 'f; ps : 'g; seq : 'h; source : 'i; stat : 'j >
     UsrBin.line ->
     < delim : 'a; fstab : 'b; group : 'c; key_value : 'd; mailcap : 'e;
       passwd : 'f; ps : 'g; seq : UsrBin.present; source : 'i; stat : 'j >
     UsrBin.line)
    UsrBin.fitting
  val sort :
    ?compare:('a UsrBin.line -> 'a UsrBin.line -> int) ->
    unit -> ('a UsrBin.line -> 'a UsrBin.line) UsrBin.fitting
  val uniq :
    ?equal:('a UsrBin.line -> 'a UsrBin.line -> bool) ->
    unit -> ('a UsrBin.line -> 'a UsrBin.line) UsrBin.fitting
  val isatty : Channel.descr -> bool
  val set_stat :
    ?dir:string ->
    < delim : 'a; fstab : 'b; group : 'c; key_value : 'd; mailcap : 'e;
      passwd : 'f; ps : 'g; seq : 'h; source : 'i; stat : UsrBin.absent >
    UsrBin.line ->
    < delim : 'a; fstab : 'b; group : 'c; key_value : 'd; mailcap : 'e;
      passwd : 'f; ps : 'g; seq : 'h; source : UsrBin.present;
      stat : < blksize : Line.absent; blocks : Line.absent;
               mode : UsrBin.present > >
    UsrBin.line
  val stat :
    string ->
    < delim : Line.absent; fstab : Line.absent; group : Line.absent;
      key_value : Line.absent; mailcap : Line.absent; passwd : Line.absent;
      ps : Line.absent; seq : Line.absent; source : UsrBin.present;
      stat : < blksize : Line.absent; blocks : Line.absent;
               mode : UsrBin.present > >
    UsrBin.line
  module Test :
    sig
      val z : string -> bool
      val n : string -> bool
      val ef : string -> string -> bool
      val nt : string -> string -> bool
      val ot : string -> string -> bool
      val b : string -> bool
      val c : string -> bool
      val d : string -> bool
      val f : string -> bool
      val h : string -> bool
      val p : string -> bool
      val e : string -> bool
      val g : string -> bool
      val k : string -> bool
      val s : string -> bool
      val u : string -> bool
      val t : int -> bool
      val tfile : string -> bool
      val r : string -> bool
      val w : string -> bool
      val x : string -> bool
      val test :
        ([< `And of 'a * 'a
          | `Char
          | `Dir
          | `Equal of string
          | `Execute
          | `Exists
          | `Link
          | `Newer of string
          | `NonEmpty
          | `Older of string
          | `Or of 'a * 'a
          | `Pipe
          | `Read
          | `Reg
          | `Sgid
          | `Sticky
          | `Suid
          | `Tty
          | `Write ]
         as 'a) ->
        string -> bool
    end
  val backquote : string -> string
  val cd : string -> unit
  val mkdir : string -> unit
  val mkpath : string -> unit
  val pwd : unit -> string
  val sleep : int -> unit
end