!752

sclass Token {

  int originalIndex;

  S t;

  new L<Token> pointers;

  *() {}

  *(int *originalIndex, S *t) {}

}

sclass Ptr {

  int from, to; // token indices

  *() {}

  *(int *from, int *to) {}

  public S toString() {

    ret from + " -> " + to + " (" + quote(get(tok, from)) + "/" + quote(get(tok, to)) + ")";

  }

}

static L<S> tok;

static new L<Token> tokens;

static new L<Ptr> pointers;

static new HashMap<Int, S> stringDefs;

p {

  S text = [[

    consider the string "abc"

    what is the string's length?

  ]];

  tok = nlTok3(text);

  printStructure(codeTokens(tok));

  for (int i = 1; i < l(tok); i += 2)

    tokens.add(new Token(i, tok.get(i)));

  for (int i : jfindAll(tok, "the string <quoted>")) {

    S s = get(tok, i+4);

    if (isProperlyQuoted(s))

      print("String found: " + s);

    stringDefs.put(i+2, unquote(s));

  }

  for (int 

  pointers.add(new Ptr(

    indexOfOccurrence(tok, "string", 1),

    indexOfOccurrence(tok, "string", 0)));

  printAll(pointers);

}