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