sig
  val ls : string -> ('a -> Line.t) Fitting.t
  val from_directory : string -> ('a -> Line.t) Fitting.t
  val ps : unit -> ('a -> Line.t) Fitting.t
  val cut : (Line.t -> string) -> (Line.t -> Line.t) Fitting.t
  val head : int -> ('a -> 'a) Fitting.t
  val head_while : ('a -> bool) -> ('a -> 'a) Fitting.t
  val behead : int -> ('a -> 'a) Fitting.t
  val behead_while : ('a -> bool) -> ('a -> 'a) Fitting.t
  val echo : string -> ('a -> Line.t) Fitting.t
  val renumber : int -> (Line.t -> Line.t) Fitting.t
  val sort :
    ?compare:(Line.t -> Line.t -> int) ->
    unit -> (Line.t -> Line.t) Fitting.t
  val uniq :
    ?equal:(Line.t -> Line.t -> bool) -> unit -> (Line.t -> Line.t) Fitting.t
  val isatty : Channel.descr -> bool
  val set_stat : ?dir:string -> Line.t -> Line.t
  val stat : string -> Line.t
  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