let _ = () in 0.01;;

(**
       0 CONST0 
       1 PUSHGETGLOBAL 0.01
       3 POP 1
       5 ATOM0 
       6 SETGLOBAL T050-pushgetglobal
       8 STOP 
**)