let rec repr e = try let r = repr(ElemTable.find table e) in ElemTable.replace table e r; r with Not_found -> e