let access v poff = List.fold_left get_offset v poff