let _ = () in -1;;

(**
       0 CONST0 
       1 PUSHCONSTINT -1
       3 POP 1
       5 ATOM0 
       6 SETGLOBAL T022-pushconstint
       8 STOP 
**)