(* Instrumentation for afl-fuzz *) val instrument_function : Cmm.expression -> Cmm.expression val instrument_initialiser : Cmm.expression -> Cmm.expression