let get_message_stack (name_in_session : string) (state : string) : string list = Hashtbl.find_all message_stack (name_in_session,state,"_message_stack")