functor
(
X
:
sig
val
value :
Slap_Z
.num_type list
end
)
->
CNTVEC