let add_in_match_message_story (name : string) (state : string) (m1 : string) (name2 : string) (state2 : string) (m2 : string) (untyped_variable : bool) (boolean : (string * string * string * string) list) : unit = 
        Hashtbl.add (!match_message_story) (name,state,m1,name2,state2,m2,untyped_variable) boolean