type ('value, 'vaccu, 'vfun, 'vprod, 'vfix, 'vcofix, 'vblock) kind = | Vaccu of 'vaccu| Vfun of 'vfun| Vprod of 'vprod| Vfix of 'vfix| Vcofix of 'vcofix| Vconst of int| Vblock of 'vblock| Vint64 of int64| Vfloat64 of float| Vstring of Pstring.t| Varray of 'value Parray.t