1 2 3 4 5 6 7 8 9 10 11 12 13
type t = { mutable a : int; };; { a = 0 };; (** 0 CONST0 1 MAKEBLOCK1 0 3 ATOM0 4 SETGLOBAL T040-makeblock1 6 STOP **)