map = {};
for (y = 2; y <= Bottom; y++) {
  map[[3,y]] = [4,y];
}

for (y = 2; y <= Bottom; y++) {
  if ([1,y] in map) {
    [2,y] = map[[1,y]];
  }
}