module EmptyError: sig .. end
sig
end
type t = unit
unit
exception E of t
t
val print : 'a -> 'b
'a -> 'b
val to_string : 'a -> 'b