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