Valuestype ('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 | 
| | Varray of 'value Parray.t |