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