let get_entry n =
    match get_kind n with
      Entry en -> en
    | _ -> failwith "Non-Entry in get_entry"