let message_stack = (Hashtbl.create 600 : (string * string * string, string) Hashtbl.t)