let find_struct_name ~env id = let rec iter e = match e with [] -> Printf.sprintf "_anonstruct_%d" id | (name,StructName id')::_ when id = id' -> name | _::tl -> iter tl in iter env.struct_name_table