mem_map = (
Hashtbl
.create 50: (int,int)
Hashtbl
.t)