sig
  type event = Types.date * Expr.value
  type stimuli = Types.date * (Ident.t * Expr.value) list
  val mk_spor_event : Types.date list -> (Types.date * Expr.value) list
  val mk_per_event :
    Types.date -> Types.date -> Types.date -> (Types.date * Expr.value) list
  val mk_val_changes :
    (Types.date * Expr.value) list -> (Types.date * Expr.value) list
  val mk_stimuli :
    string ->
    Types.date * Expr.value -> Types.date * (Ident.t * Expr.value) list
  val merge_stimuli : Stimuli.stimuli list list -> Stimuli.stimuli list
  val events_of : Global.stim_desc -> Stimuli.event list
  val string_of_event : Stimuli.event -> string
  val string_of_events : Stimuli.event list -> string
  val string_of_stimuli : Stimuli.stimuli -> string
end