1 2 3 4 5 6 7 8 9 10
let _ = () in 0.01;; (** 0 CONST0 1 PUSHGETGLOBAL 0.01 3 POP 1 5 ATOM0 6 SETGLOBAL T050-pushgetglobal 8 STOP **)