let allocator space base = try Hashtbl.find space.alloc base with Not_found -> let a = { index=0 ; based=false ; free=[] ; count=0 } in Hashtbl.add space.alloc base a ; a