let in_message_stack (name_in_session : string) (state : string) (message : string) : bool = Hashtbl.mem message_stack (name_in_session,state,"_message_stack")