let clear_message_story (() : unit) : unit = let tmp = (!match_message_story) in match_message_story:=(!latest_message_story); latest_message_story:=tmp; Hashtbl.clear (!match_message_story)