let
find_mem_at env l =
List
.assoc l env.memories