type pp = och -> int -> unit
val export_entity: ('term -> pp) -> 'term Entity.entity -> unit
-(*
-val export_csys: Ccs.csys -> unit
-*)
+
val tag: string -> attr list -> ?contents:pp -> pp
val sort: string
val uri: Entity.uri -> attr
-val level: Level.level -> attr
+val level: Level.status -> Level.level -> attr
val name: Entity.node_attrs -> attr