module Graphics_subject: sig .. end
sig
end
type identity = {
ty : string option;
string option
(*
Type of identity
*)
name : string option;
Identity value
}
type t = identity list
identity list
val to_string : t -> string
t -> string