# computation f camlEffects.f caml_runstack camlEffects.entry caml_program # perform effect (E 0) # caught effect (E 0). continuing... camlEffects.h_effect_e camlEffects.entry caml_program # perform returns 1 camlEffects.f caml_runstack camlEffects.h_effect_e camlEffects.entry caml_program # done 2 camlEffects.v_retc camlEffects.h_effect_e camlEffects.entry caml_program # continue returns 3 camlEffects.h_effect_e camlEffects.entry caml_program # result=4