let
access a ks =
List
.fold_left e_access a ks