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