let access a ks = List.fold_left e_access a ks