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)