svoid tok_delegateTo(LS tok) {

  ITokCondition cond = (_tok, nIdx) -> !(empty(_get(_tok, nIdx)) && eqGet(_tok, nIdx-1, "."));

  int i;

  while ping ((i = jfind_any(tok, 

    "delegate <id> to", "delegate <id>,")) >= 0) {

    Set<S> tokens = litset(tok.get(i+2));

    int i2 = i+4;

    while (eqGet(tok, i2, ",")) {

      tokens.add(assertIdentifier(get(tok, i2+2)));

      i2 += 4;

    }

    assertEquals(get(tok, i2), "to");

    int repStart = i2+2;

    int repEnd = repStart;

    // Find . with space or line break or EOF afterwards

    while ping (repEnd < l(tok) && !(

      eqGet(tok, repEnd, ".") && // end when there is a dot

      (nempty(get(tok, repEnd+1)) || repEnd == l(tok)-2))) // ...and it's the end of the text OR there is a space or newline after the dot

      repEnd += 2;

    print("tok_replaceWith: Found " + joinSubList(tok, repStart, repEnd));

    //int repEnd = smartIndexOf(tok, repStart, ".");

    S replacement = joinSubList(tok, repStart, repEnd-1) + ".";

    clearTokens(tok, i, repEnd+1);

    print("Replacing " + tokens + " with " + replacement + "<token>");

    int end = findEndOfBlock(tok, repEnd)-1;

    for ping (int j = repEnd+2; j < end; j += 2) {

      if (!tokens.contains(tok.get(j)))

        continue;

      // skip if it's a field or method access

      if (empty(get(tok, j-1)) && eqGet(tok, j-2, "."))

        continue;

      // skip creation of an non-static inner class instance

      // (a.new B)

      if (eqGet(tok, j-2, "new") && eqGet(tok, j-4, "."))

        continue;

      tokPrepend(tok, j, replacement);

    }

    reTok(tok, i, end);

  }

}