offsetMemoryInExp offsets e = mapExp recurse e
  where recurse = identityMapper
                  { mapOnBody = const $ return . offsetMemoryInBody offsets
                  , mapOnBranchType = return . offsetMemoryInBodyReturns offsets
                  }
offsetMemoryInExp offsets e = mapExp recurse e
  where recurse = identityMapper
                  { mapOnBody = const $ return . offsetMemoryInBody offsets
                  , mapOnBranchType = return . offsetMemoryInBodyReturns offsets
                  }
offsetMemoryInExp offsets e = mapExp recurse e
  where recurse = identityMapper
                  { mapOnBody = const $ return . offsetMemoryInBody offsets
                  , mapOnBranchType = return . offsetMemoryInBodyReturns offsets
                  }