V1.CobStoreOpttype k = | COB_STORE_ROUND| COB_STORE_KEEP_ON_OVERFLOW| COB_STORE_TRUNC_ON_OVERFLOW| COB_STORE_AWAY_FROM_ZERO| COB_STORE_NEAR_AWAY_FROM_ZERO| COB_STORE_NEAR_EVEN| COB_STORE_NEAR_TOWARD_ZERO| COB_STORE_PROHIBITED| COB_STORE_TOWARD_GREATER| COB_STORE_TOWARD_LESSER| COB_STORE_TRUNCATION| COB_STORE_NO_SIZE_ERRORval of_int : int -> tval to_int : t -> int