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