let
load_with fmt mem loc =
decode fmt (
F
.e_access mem (addr loc))