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