sig
  type results
  val get_results : unit -> Eva.Eva_results.results
  val set_results : Eva.Eva_results.results -> unit
  val merge :
    Eva.Eva_results.results ->
    Eva.Eva_results.results -> Eva.Eva_results.results
  val change_callstacks :
    (Value_types.callstack -> Value_types.callstack) ->
    Eva.Eva_results.results -> Eva.Eva_results.results
end