sig
  val horiz_vertic : (unit -> 'a) -> (unit -> 'a) -> 'a
  val sprintf : ('a, unit, string) Pervasives.format -> 'a
  val line_length : int Pervasives.ref
  val horizontally : unit -> bool
end