let
access v poff =
List
.fold_left get_offset v poff