let previous_message_stack (() : unit) :unit =
         previous_add_stack ();
        previous_remove_stack ()