let rec update_pointers (levs: level list) (p: pointer) (ie:input_event)
: pointer =
match levs with
[] -> p
| lev::tl -> let p' = (update_pointer lev p ie) in
(update_pointers tl p' ie)