a = [x,y];
while (a != "") {
  p = pos(a, ":");
  if (p > 0) {
    a1 = left(a, p - 1);
    a = mid(a, p + 1);
  } else {
    a1 = a;
    a = "";
  }

  b = [x+1,y];
  while (b != "") {
    p = pos(b, ":");
    if (p > 0) {
      b1 = left(b, p - 1);
      b = mid(b, p + 1);
    } else {
      b1 = b;
      b = "";
    }

    writeln(a1 + b1);
  }
}