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