let next_remove_stack (() : unit) : unit = remove_stack_story := ((List.rev (!remove_of_stack))::(!remove_stack_story)); remove_of_stack:=[]