let lookup id =
  let model = the_model () in
  Ihmap.find model.model_index id