offsetMemoryInExp offsets (Op (Inner (GroupReduce w lam input))) =
  Op (Inner (GroupReduce w lam' input))
  where lam' = lam { lambdaBody = offsetMemoryInBody offsets $ lambdaBody lam }
offsetMemoryInExp offsets (Op (Inner (GroupReduce w lam input))) =
  Op (Inner (GroupReduce w lam' input))
  where lam' = lam { lambdaBody = offsetMemoryInBody offsets $ lambdaBody lam }
offsetMemoryInExp offsets (Op (Inner (GroupReduce w lam input))) =
  Op (Inner (GroupReduce w lam' input))
  where lam' = lam { lambdaBody = offsetMemoryInBody offsets $ lambdaBody lam }