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