functor
(
M
:
sig
val
element_ns : string
val
element_name : string
end
)
->
PersonConstruct