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)