let add_in_variable_change (var : string * string) : unit = variable_current_change:=(var::(!variable_current_change))