let match_message_story = (ref (Hashtbl.create 600) : (string * string * string * string * string * string * bool, (string * string * string * string) list) Hashtbl.t Pervasives.ref)