val log: ('a, 'b) specs -> int -> ('a, 'b) item list -> unit
val error: ('a, 'b) specs -> ('a, 'b) item list -> unit
val items1: string -> ('a, 'b) item list
val log: ('a, 'b) specs -> int -> ('a, 'b) item list -> unit
val error: ('a, 'b) specs -> ('a, 'b) item list -> unit
val items1: string -> ('a, 'b) item list
-val ct_items1: string -> 'a -> 'b -> ('a, 'b) item list
+val t_items1: string -> 'a -> 'b -> ('a, 'b) item list
+
+val ct_items1:
+ string -> 'a -> string -> 'b -> ('a, 'b) item list
+
+val ct_items2:
+ string -> 'a -> string -> 'b -> string -> 'b -> ('a, 'b) item list