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