(* *)
(***********************************************************************)
-(*
- Time-stamp: <Last modified on 2013-03-09 10:41:32 CET by Kim Nguyen>
-*)
-
exception InvalidUtf8Codepoint of int
val subscript : int -> string
val right_arrow : string
val left_arrow : string
val epsilon : string
+val bullet : string
val big_sigma : string
val cap : string
val cup : string
val pp_superscript : Format.formatter -> int -> unit
val pp_print_list :
- ?sep:(Format.formatter -> unit -> unit) -> (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a list -> unit
+ ?sep:(Format.formatter -> unit -> unit) -> (Format.formatter -> 'a -> unit)
+ -> Format.formatter -> 'a list -> unit
+
val pp_print_array :
- ?sep:(Format.formatter -> unit -> unit) -> (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a array -> unit
-val print_list : ?sep:string -> (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a list -> unit
-val print_array : ?sep:string -> (Format.formatter -> 'a -> unit) -> Format.formatter -> 'a array -> unit
+ ?sep:(Format.formatter -> unit -> unit) -> (Format.formatter -> 'a -> unit)
+ -> Format.formatter -> 'a array -> unit
+
+val pp_print_range :
+ ?sep:(Format.formatter -> unit -> unit) -> (Format.formatter -> int -> unit)
+ -> Format.formatter -> (int * int) -> unit
+
+
+val print_list : ?sep:string -> (Format.formatter -> 'a -> unit)
+ -> Format.formatter -> 'a list -> unit
+
+val print_array : ?sep:string -> (Format.formatter -> 'a -> unit)
+ -> Format.formatter -> 'a array -> unit
+
+val print_range :
+ ?sep:string -> (Format.formatter -> int -> unit)
+ -> Format.formatter -> (int * int) -> unit