start = 0;
end = 0;
for (y = 1; y <= Bottom; y++) {
  if (y > end) {
    start = y;
    end = y;
    while ([5,end+1] == [5,start] && end < Bottom) {
      end++;
    }
  }
  [23,y] = end - start + 1;
}