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