current : (
'
a, unit)
Hashtbl
.t = (
Hashtbl
.create size)