!752

static O interpret(S java) {

  ret new JavaInterpreter().interpret(java);

}

// to trigger function inclusion

static void dummy() {

  eq(null, null);

  collapseWord(null);

}

static class JavaInterpreter {

  int i;

  L<S> tok;

  L<S> allowedFunctions = litlist("eq", "collapseWord");

  O interpret(S java) {

    i = 1;

    tok = javaTok(java);

    if (litlist("ret", "returns").contains(get(tok, i))) {

      i += 2;

      O result = expression();

      consume(";");

      ret result;

    }

    throw fail("huh? " + i + " " + get(tok, i));

  }

  void consume(S x) {

    assertEquals(get(tok, i), x);

    i += 2;

  }

  S consume() {

    S t = t();

    assertNotNull(t);

    i += 2;

    ret t;

  }

  S t() {

    ret get(tok, i);

  }

  O expression() {

    if (isQuoted(t()))

      ret unquote(consume());

    if (isIdentifier(t())) {

      S fname = consume();

      consume("(");

      new L args;

      while (neq(t(), ")")) {

        args.add(expression());

        if (eq(t(), ","))

          consume();

      }

      consume(")");

      ret call(mainClass(), fname, toObjectArray(args));

    }

    throw fail(t());

  }

}