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