let add_in_variable_story (() : unit) : unit = 
        variable_story:=((!variable_current_change)::(!variable_story));
        variable_current_change:=[]