for (y = 1; y <= Bottom; y++) {
  if (pos([2,y], "HHH") > 0) {
    [3,y] = "KKK";
  }
}