for (y = 1; y <= Bottom; y++) {
  p = pos([x,y], "\n\n");
  if (p > 0) {
    first = left([x,y], p - 1);
    third = mid([x,y], p + 2);
    [x,y] = third + "\n\n" + first;
  }
}