let get_match_message_story (name : string) (state : string) (m1 : string) (name2 : string) (state2 : string) (m2 : string) (untyped_variable : bool) : (int * (string * string * string * string) list) =
        match (Hashtbl.find_all (!match_message_story) (name,state,m1,name2,state2,m2,untyped_variable))
        with         [] -> (-1,[])
                |([]::_) -> (0,[])
                     |(x::_) -> (1,x)