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