import java.util.*;
import java.util.zip.*;
import java.util.List;
import java.util.regex.*;
import java.util.concurrent.*;
import java.util.concurrent.atomic.*;
import java.util.concurrent.locks.*;
import java.util.function.*;
import javax.swing.*;
import javax.swing.event.*;
import javax.swing.text.*;
import javax.swing.table.*;
import java.io.*;
import java.net.*;
import java.lang.reflect.*;
import java.lang.ref.*;
import java.lang.management.*;
import java.security.*;
import java.security.spec.*;
import java.awt.*;
import java.awt.event.*;
import java.awt.image.*;
import java.awt.geom.*;
import javax.imageio.*;
import java.math.*;
import java.time.Duration;
import java.lang.invoke.VarHandle;
import java.lang.invoke.MethodHandles;
import java.awt.geom.*;
import java.util.function.BiConsumer;
import java.util.function.BiFunction;
import static x30_pkg.x30_util.DynamicObject;
import org.apache.bcel.classfile.ClassParser;
import org.apache.bcel.classfile.JavaClass;
import org.apache.bcel.Const;
import org.apache.bcel.generic.*;
import java.lang.reflect.Type;
import java.nio.file.*;
import static java.nio.file.StandardWatchEventKinds.*;
import org.fife.ui.autocomplete.*;
import org.fife.rsta.ui.CollapsibleSectionPanel;
import org.fife.rsta.ui.GoToDialog;
import org.fife.rsta.ui.SizeGripIcon;
import org.fife.rsta.ui.search.FindDialog;
import org.fife.rsta.ui.search.ReplaceDialog;
import org.fife.rsta.ui.search.ReplaceToolBar;
import org.fife.rsta.ui.search.SearchEvent;
import org.fife.rsta.ui.search.SearchListener;
import org.fife.rsta.ui.search.FindToolBar;
import org.fife.ui.rsyntaxtextarea.ErrorStrip;
import org.fife.ui.rsyntaxtextarea.RSyntaxTextArea;
import org.fife.ui.rsyntaxtextarea.SyntaxConstants;
import org.fife.ui.rtextarea.RTextScrollPane;
import org.fife.ui.rtextarea.SearchContext;
import org.fife.ui.rtextarea.SearchEngine;
import org.fife.ui.rtextarea.SearchResult;
import org.fife.ui.rsyntaxtextarea.RSyntaxDocument;
import org.fife.ui.rsyntaxtextarea.SyntaxScheme;
import java.util.jar.*;
import javax.swing.border.TitledBorder;
import java.awt.datatransfer.*;
import java.awt.dnd.*;
import java.text.*;
import java.nio.file.Path;
import javax.swing.event.AncestorListener;
import javax.swing.event.AncestorEvent;
import javax.swing.Timer;
import org.fife.ui.rsyntaxtextarea.*;
import javax.swing.border.*;
import java.awt.datatransfer.StringSelection;
import java.awt.datatransfer.Transferable;
import java.awt.datatransfer.DataFlavor;
import javax.swing.undo.UndoManager;
import java.text.NumberFormat;
import javax.imageio.metadata.*;
import javax.imageio.stream.*;
import java.text.SimpleDateFormat;
import java.nio.charset.Charset;
import java.util.TimeZone;
import java.awt.datatransfer.UnsupportedFlavorException;
import javax.swing.Icon;

public class main {

  static public void test_LeftArrowScriptAutoCompleter() {
    GazelleV_LeftArrowScriptParser parser = new GazelleV_LeftArrowScriptParser();
    LeftArrowScriptAutoCompleter completer = new LeftArrowScriptAutoCompleter(parser);
    completer.globalMethodNames = () -> ll("add", "pat", "lol");
    completer.parser.noImports();
    assertEmpty(completer.parser.globalClassNames());
    completer.seek("a", 1);
    assertEqualsVerbose("a", completer.typedCharacters());
    assertEqualsVerbose(ll("add", "pat", "false"), completer.getCompletions());
    parser = new GazelleV_LeftArrowScriptParser();
    completer = new LeftArrowScriptAutoCompleter(parser);
    completer.globalMethodNames = () -> ll("add", "pat", "lol");
    completer.parser.importedPackages = () -> null;
    completer.seek("add", 3);
    assertFalseVerbose(contains(completer.getCompletions(), "add"));
    parser = new GazelleV_LeftArrowScriptParser();
    completer = new LeftArrowScriptAutoCompleter(parser);
    completer.globalMethodNames = () -> ll("add", "pat", "lol");
    completer.parser.importedPackages = () -> null;
    completer.seek("add ", 4);
    assertContainsAll(completer.getCompletions(), ll("true", "false", "null"));
    for (String text : ll("Mat", "Mat ")) {
      parser = new GazelleV_LeftArrowScriptParser();
      completer = new LeftArrowScriptAutoCompleter(parser);
      completer.seek(printQuoted("text", text), 3);
      var completions = completer.getCompletions();
      pnlReversed(takeFirst(10, completions));
      assertEquals(0, indexOf(completions, "Math"));
    }
    parser = new GazelleV_LeftArrowScriptParser();
    completer = new LeftArrowScriptAutoCompleter(parser);
    completer.seek(print("new Inte"), 8);
    var completions = completer.getCompletions();
    pnlReversed(takeFirst(10, completions));
    assertEquals(0, indexOf(completions, "Integer"));
    parser = new GazelleV_LeftArrowScriptParser();
    parser.allowTheWorld(test_LeftArrowScriptAutoCompleter_FunctionContainer.class);
    completer = new LeftArrowScriptAutoCompleter(parser);
    completer.seek(print("MyN"), 3);
    completions = completer.getCompletions();
    pnlReversed(takeFirst(10, completions));
    assertEquals(0, indexOf(completions, "MyName"));
    parser = new GazelleV_LeftArrowScriptParser();
    parser.functionDefs.put("hello", new GazelleV_LeftArrowScript.FunctionDef());
    completer = new LeftArrowScriptAutoCompleter(parser);
    completer.seekEnd("he");
    completions = completer.getCompletions();
    assertContains(completions, "hello");
    test_LeftArrowScriptAutoCompleter_testVars();
    test_LeftArrowScriptAutoCompleter_testMethodsOfNewInstance();
    test_LeftArrowScriptAutoCompleter_testMethodsOfNewInstanceInVar();
    test_LeftArrowScriptAutoCompleter_testMethodsOfFunctionResultInVar();
    test_LeftArrowScriptAutoCompleter_testMethodsOfLambdaParameter();
    printWithPrecedingNL("Auto-completer works!");
  }

  static public void test_LeftArrowScriptAutoCompleter_testVars() {
    var parser = new GazelleV_LeftArrowScriptParser();
    parser.noImports();
    var completer = new LeftArrowScriptAutoCompleter(parser);
    completer.seekEnd("a <- 1\n");
    pnl("knowVarsByTokenIdx", completer.knownVarsByTokenIdx);
    assertSetsEqual(print(listPlus(completer.predefinedExpressions(), "a")), print(completer.getCompletions()));
  }

  static public void test_LeftArrowScriptAutoCompleter_testMethodsOfNewInstance() {
    var parser = enableScaffolding(new GazelleV_LeftArrowScriptParser());
    var completer = enableScaffolding(new LeftArrowScriptAutoCompleter(parser));
    completer.seekEnd("new Double, ");
    assertContains(print(completer.getCompletions()), "doubleValue");
  }

  static public void test_LeftArrowScriptAutoCompleter_testMethodsOfNewInstanceInVar() {
    var parser = enableScaffolding(new GazelleV_LeftArrowScriptParser());
    parser.onTypeHook(type -> print("TypeHook at " + parser.t() + " (" + parser.tokIdx() + ": " + type));
    var completer = (new LeftArrowScriptAutoCompleter(parser));
    completer.seekEnd("x <- new Double; x ");
    assertContains(print(completer.getCompletions()), "doubleValue");
  }

  static public void test_LeftArrowScriptAutoCompleter_testMethodsOfFunctionResultInVar() {
    var parser = enableScaffolding(new GazelleV_LeftArrowScriptParser());
    var completer = (new LeftArrowScriptAutoCompleter(parser));
    completer.seekEnd(" def myFunc: S { \"\" }; x <- myFunc; x ");
    assertContains(print(completer.getCompletions()), "length");
  }

  static public void test_LeftArrowScriptAutoCompleter_testMethodsOfLambdaParameter() {
    var parser = enableScaffolding(new GazelleV_LeftArrowScriptParser());
    parser.allowTheWorld(test_LeftArrowScriptAutoCompleter_FunctionContainer.class);
    var completer = (new LeftArrowScriptAutoCompleter(parser));
    completer.seekEnd(" IVF1 a: S -> a ");
    assertContains(print(completer.getCompletions()), "length");
  }

  static public class test_LeftArrowScriptAutoCompleter_FunctionContainer {

    public class MyName {
    }

    public interface IVF1<A> {

      public void get(A a);
    }
  }

  static public Method findMethod(Object o, String method, Object... args) {
    return findMethod_cached(o, method, args);
  }

  static public boolean findMethod_checkArgs(Method m, Object[] args, boolean debug) {
    Class<?>[] types = m.getParameterTypes();
    if (types.length != args.length) {
      if (debug)
        System.out.println("Bad parameter length: " + args.length + " vs " + types.length);
      return false;
    }
    for (int i = 0; i < types.length; i++) if (!(args[i] == null || isInstanceX(types[i], args[i]))) {
      if (debug)
        System.out.println("Bad parameter " + i + ": " + args[i] + " vs " + types[i]);
      return false;
    }
    return true;
  }

  static public String concat(Object... l) {
    return concatStrings(l);
  }

  static public String concat(Iterable l) {
    return concatStrings(l);
  }

  static public Throwable getException(Runnable r) {
    try {
      callF(r);
      return null;
    } catch (Throwable e) {
      return e;
    }
  }

  static public RuntimeException fail() {
    throw new RuntimeException("fail");
  }

  static public RuntimeException fail(Throwable e) {
    throw asRuntimeException(e);
  }

  static public RuntimeException fail(Object msg) {
    throw new RuntimeException(String.valueOf(msg));
  }

  static public RuntimeException fail(Object... objects) {
    throw new Fail(objects);
  }

  static public RuntimeException fail(String msg) {
    throw new RuntimeException(msg == null ? "" : msg);
  }

  static public RuntimeException fail(String msg, Throwable innerException) {
    throw new RuntimeException(msg, innerException);
  }

  static public char[] chars(String s) {
    return asChars(s);
  }

  static public Class _getClass2(Object o) {
    return o == null ? null : o.getClass();
  }

  static public Duration daysToDuration(double days) {
    return msToDuration(daysToMS(days));
  }

  static public <A> A getVar(IF0<A> v) {
    return v == null ? null : v.get();
  }

  static public <A> A getVar(Optional<A> v) {
    return v == null ? null : v.orElse(null);
  }

  static public double[] litdoublearray(double... l) {
    return cloneDoubleArray(l);
  }

  static public BigInteger mul(BigInteger a, BigInteger b) {
    return a.multiply(b);
  }

  static public BigInteger mul(BigInteger a, long b) {
    return a.multiply(bigint(b));
  }

  static public int mul(int a, int b) {
    return a * b;
  }

  static public double mul(double a, double b) {
    return a * b;
  }

  static public void nop() {
  }

  static public byte toByte(Object o) {
    if (o == null)
      return (byte) 0;
    if (o instanceof Number)
      return ((Number) o).byteValue();
    if (o instanceof String)
      return toByte(parseInt((String) o));
    throw fail("not convertible to byte: " + getClassName(o));
  }

  static public byte toByte(int i) {
    return (byte) i;
  }

  static public byte[] litbytearray(byte... l) {
    return cloneByteArray(l);
  }

  static public List<String> splitAtSpace(String s) {
    return empty(s) ? emptyList() : asList(s.split("\\s+"));
  }

  static public Pt neg(Pt p) {
    return p == null ? null : new Pt(-p.x, -p.y);
  }

  static public int neg(int i) {
    return -i;
  }

  static public double neg(double i) {
    return -i;
  }

  static public void sleepSeconds(double s) {
    if (s > 0)
      sleep(round(s * 1000));
  }

  static public float[] newFloatArray(int n) {
    return new float[n];
  }

  static public long nanoTime() {
    return System.nanoTime();
  }

  static public <A> List<A> reversed(Iterable<A> l) {
    return reversedList(l);
  }

  static public <A> List<A> reversed(A[] l) {
    return reversedList(asList(l));
  }

  static public String reversed(String s) {
    return reversedString(s);
  }

  static public <A> AutoCloseable tempAdd(Collection<A> l, A a) {
    if (l == null || l.contains(a))
      return null;
    l.add(a);
    return new tempAdd_undo(l, a);
  }

  static public class tempAdd_undo<A> implements AutoCloseable, IFieldsToList {

    public Collection<A> l;

    public A a;

    public tempAdd_undo() {
    }

    public tempAdd_undo(Collection<A> l, A a) {
      this.a = a;
      this.l = l;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + l + ", " + a + ")";
    }

    public Object[] _fieldsToList() {
      return new Object[] { l, a };
    }

    public void close() {
      try {
        l.remove(a);
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }
  }

  static public AutoCloseable tempAdd(Container a, Component b) {
    if (a == null || b == null)
      return null;
    {
      return swing(() -> {
        if (b.getParent() == a)
          return null;
        a.add(b);
        return () -> {
          swing(() -> {
            if (b.getParent() == a)
              removeFromParent(b);
          });
        };
      });
    }
  }

  static public String concatStrings(Object... l) {
    return join("", l);
  }

  static public String concatStrings(Iterable l) {
    return join("", l);
  }

  static public BigInteger plus(BigInteger a, BigInteger b) {
    return a.add(b);
  }

  static public BigInteger plus(BigInteger a, long b) {
    return a.add(bigint(b));
  }

  static public long plus(long a, long b) {
    return a + b;
  }

  static public int plus(int a, int b) {
    return a + b;
  }

  static public float plus(float a, float b) {
    return a + b;
  }

  static public double plus(double a, double b) {
    return a + b;
  }

  static public <A> List<A> minus(Collection<A> a, Object... b) {
    Set set = asSet(b);
    List l = new ArrayList();
    for (Object s : unnull(a)) if (!set.contains(s))
      l.add(s);
    return l;
  }

  static public BigInteger minus(BigInteger a, BigInteger b) {
    return a.subtract(b);
  }

  static public Complex minus(Complex c) {
    return c == null ? null : complex(-c.re(), -c.im());
  }

  static public int minus(int a, int b) {
    return a - b;
  }

  static public int minus(int a) {
    return -a;
  }

  static public double minus(double a, double b) {
    return a - b;
  }

  static public double minus(double a) {
    return -a;
  }

  static public long minus(long a, long b) {
    return a - b;
  }

  static public long minus(long a) {
    return -a;
  }

  static public boolean lessThan(int a, int b) {
    return a < b;
  }

  static public boolean lessThan(double a, double b) {
    return a < b;
  }

  static public boolean lessThan(Object a, Object b) {
    return cmp(a, b) < 0;
  }

  static public boolean greaterThan(Object a, Object b) {
    return cmp(a, b) > 0;
  }

  static public boolean greaterThan(int a, int b) {
    return a > b;
  }

  static public boolean greaterThan(double a, double b) {
    return a > b;
  }

  static public BufferedImage newImage(int w, int h) {
    return whiteImage(w, h);
  }

  static public BufferedImage newImage(int w, Color color) {
    return newImage(w, w, color);
  }

  static public BufferedImage newImage(int w, int h, Color color) {
    return bufferedImage(w, h, color);
  }

  static public BufferedImage newImage(int size) {
    return whiteImage(size);
  }

  static public BufferedImage newImage(Pt size) {
    return whiteImage(size.x, size.y);
  }

  static public BufferedImage newImage(WidthAndHeight size) {
    return whiteImage(size.w(), size.h());
  }

  static public BufferedImage newImage(Dimension size) {
    return whiteImage(size.width, size.height);
  }

  static public Rect randomRect(Rect outer) {
    var w = random_incl(outer.w);
    var h = random_incl(outer.h);
    return randomRect(w, h, outer);
  }

  static public Rect randomRect(int w, int h, Rect outer) {
    return translateRect(outer.x, outer.y, randomRect(outer.w, outer.h, 0, w, h));
  }

  static public Rect randomRect(Rect outer, int w, int h) {
    return randomRect(w, h, outer);
  }

  static public Rect randomRect(int w, int h, int rw, int rh) {
    return randomRect(w, h, 0, rw, rh);
  }

  static public Rect randomRect(int w, int h, int border, int rw, int rh) {
    if (rw > w - border * 2 || rh > h - border * 2)
      return null;
    int ww = random(border, w - border - rw);
    int hh = random(border, h - border - rh);
    return new Rect(ww, hh, rw, rh);
  }

  static public Rect randomRect(int w, int h) {
    int rw = random(w);
    int rh = random(h);
    return randomRect(w, h, 0, rw, rh);
  }

  static public Rect randomRect(RGBImage img, int rw, int rh) {
    return randomRect(img.w(), img.h(), 0, rw, rh);
  }

  static public Rect randomRect(RGBImage img) {
    return randomRect(img.w(), img.h());
  }

  static public Rect randomRect() {
    return randomRect(currentImage().getWidth(), currentImage().getHeight());
  }

  static public Rect randomRect(BufferedImage img, int rw, int rh) {
    return randomRect(img.getWidth(), img.getHeight(), 0, rw, rh);
  }

  static public long longPlus(long a, long b) {
    return a + b;
  }

  static public int intSum(Collection c, String field) {
    int sum = 0;
    for (Object o : unnull(c)) sum += toInt(getOpt(o, field));
    return sum;
  }

  static public int intSum(Iterable<Integer> l) {
    int sum = 0;
    for (Integer i : unnull(l)) if (i != null)
      sum += i;
    return sum;
  }

  static public int intSum(int... l) {
    int sum = 0;
    for (int i : unnull(l)) sum += i;
    return sum;
  }

  static public List repF(int n, Object f, Object... args) {
    List l = emptyList(n);
    for (int i = 0; i < n; i++) l.add(callF(f, args));
    return l;
  }

  static public List repF(Object f, int n) {
    return repF(n, f);
  }

  static public <A> List<A> repF(int n, IF0<A> f) {
    List<A> l = emptyList(n);
    for (int i = 0; i < n; i++) l.add(f.get());
    return l;
  }

  static public <A> List<A> repF(IF0<A> f, int n) {
    return repF(n, f);
  }

  static public IterableIterator<Integer> iota(final int n) {
    return new IterableIterator<Integer>() {

      public int i = 0;

      public boolean hasNext() {
        return i < n;
      }

      public Integer next() {
        return ++i;
      }
    };
  }

  static public <A, C extends Collection<A>> C assertContains(C c, A y) {
    return assertContains(null, c, y);
  }

  static public <A, C extends Collection<A>> C assertContains(String msg, C c, A y) {
    if (!contains(c, y))
      throw fail((msg != null ? msg + ": " : "") + y + " not contained in " + c);
    return c;
  }

  static public String assertContains(String a, String b) {
    if (!contains(a, b))
      throw fail(quote(b) + " not contained in " + quote(a));
    return a;
  }

  static public void assertNotEquals(String msg, Object a, Object b) {
    if (eq(a, b))
      throw fail(msg);
  }

  static public void assertNotEquals(Object a, Object b) {
    if (eq(a, b))
      throw fail(str(a));
  }

  static public File userDir() {
    return new File(userHome());
  }

  static public File userDir(String path) {
    return new File(userHome(), path);
  }

  static public String f2s(File f) {
    return f == null ? null : f.getAbsolutePath();
  }

  static public String f2s(String s) {
    return f2s(newFile(s));
  }

  static public String f2s(java.nio.file.Path p) {
    return p == null ? null : f2s(p.toFile());
  }

  static public File newFile(File base, String... names) {
    for (String name : names) base = new File(base, name);
    return base;
  }

  static public File newFile(String name) {
    return name == null ? null : new File(name);
  }

  static public File newFile(String base, String... names) {
    return newFile(newFile(base), names);
  }

  static public <A> List<A> ll(A... a) {
    ArrayList l = new ArrayList(a.length);
    if (a != null)
      for (A x : a) l.add(x);
    return l;
  }

  static public void assertEmpty(Object o) {
    if (!empty(o))
      throw fail("not empty: " + o);
  }

  static public <A> A assertEqualsVerbose(Object x, A y) {
    assertEqualsVerbose((String) null, x, y);
    return y;
  }

  static public <A> A assertEqualsVerbose(String msg, Object x, A y) {
    if (!eq(x, y)) {
      throw fail((nempty(msg) ? msg + ": " : "") + "expected: " + x + ", got: " + y);
    } else
      print("OK" + (empty(msg) ? "" : " " + msg) + ": " + (x));
    return y;
  }

  static public void assertEqualsVerbose(Scorer scorer, Object x, Object y) {
    assertEqualsVerbose(scorer, "", x, y);
  }

  static public void assertEqualsVerbose(Scorer scorer, String msg, Object x, Object y) {
    if (scorer == null) {
      assertEqualsVerbose(x, y);
      return;
    }
    if (!eq(x, y)) {
      print(appendColonIfNempty(msg) + y + " != " + x);
      scorer.add(false);
    } else {
      print("OK: " + appendColonIfNempty(msg) + x);
      scorer.add(true);
    }
  }

  static public void assertFalseVerbose(Object o) {
    assertEqualsVerbose(false, o);
  }

  static public void assertFalseVerbose(String msg, Object o) {
    assertEqualsVerbose(msg, false, o);
  }

  static public boolean contains(Collection c, Object o) {
    return c != null && c.contains(o);
  }

  static public boolean contains(Iterable it, Object a) {
    if (it != null)
      for (Object o : it) if (eq(a, o))
        return true;
    return false;
  }

  static public boolean contains(Object[] x, Object o) {
    if (x != null)
      for (Object a : x) if (eq(a, o))
        return true;
    return false;
  }

  static public boolean contains(String s, char c) {
    return s != null && s.indexOf(c) >= 0;
  }

  static public boolean contains(String s, String b) {
    return s != null && s.indexOf(b) >= 0;
  }

  static public boolean contains(BitSet bs, int i) {
    return bs != null && bs.get(i);
  }

  static public <A> boolean contains(Producer<A> p, A a) {
    if (p != null && a != null)
      while (true) {
        A x = p.next();
        if (x == null)
          break;
        if (eq(x, a))
          return true;
      }
    return false;
  }

  static public boolean contains(Rect r, Pt p) {
    return rectContains(r, p);
  }

  static public <A> void assertContainsAll(Collection<? extends A> a, Collection<A> b) {
    for (var x : unnullForIteration(b)) if (!contains(a, x))
      throw fail("Collection doesn't contain " + x + ": " + str_shorten(a));
  }

  static public <A> A printQuoted(A a) {
    return printQuoted("", a);
  }

  static public <A> A printQuoted(String prefix, A a) {
    return printQuote(prefix, a);
  }

  static public <A extends Iterable> A pnlReversed(A l) {
    return pnlReversed("", l);
  }

  static public <A extends Iterable> A pnlReversed(String prefix, A l) {
    if (l != null) {
      List<A> list = reversed(l);
      int i = l(list);
      for (Object a : list) print(prefix + (i--) + ". " + str(a));
    }
    return l;
  }

  static public <A> List<A> takeFirst(List<A> l, int n) {
    return l(l) <= n ? l : newSubListOrSame(l, 0, n);
  }

  static public <A> List<A> takeFirst(int n, List<A> l) {
    return takeFirst(l, n);
  }

  static public String takeFirst(int n, String s) {
    return substring(s, 0, n);
  }

  static public String takeFirst(String s, int n) {
    return substring(s, 0, n);
  }

  static public CharSequence takeFirst(int n, CharSequence s) {
    return subCharSequence(s, 0, n);
  }

  static public <A> List<A> takeFirst(int n, Iterator<A> it) {
    if (it == null)
      return null;
    List l = new ArrayList();
    for (int _repeat_0 = 0; _repeat_0 < n; _repeat_0++) {
      if (it.hasNext())
        l.add(it.next());
      else
        break;
    }
    return l;
  }

  static public <A> List<A> takeFirst(int n, Iterable<A> i) {
    if (i == null)
      return null;
    return i == null ? null : takeFirst(n, i.iterator());
  }

  static public <A> List<A> takeFirst(int n, IterableIterator<A> i) {
    return takeFirst(n, (Iterator<A>) i);
  }

  static public int[] takeFirst(int n, int[] a) {
    return takeFirstOfIntArray(n, a);
  }

  static public short[] takeFirst(int n, short[] a) {
    return takeFirstOfShortArray(n, a);
  }

  static public byte[] takeFirst(int n, byte[] a) {
    return takeFirstOfByteArray(n, a);
  }

  static public byte[] takeFirst(byte[] a, int n) {
    return takeFirstOfByteArray(n, a);
  }

  static public double[] takeFirst(int n, double[] a) {
    return takeFirstOfDoubleArray(n, a);
  }

  static public double[] takeFirst(double[] a, int n) {
    return takeFirstOfDoubleArray(n, a);
  }

  static public <A> A assertEquals(Object x, A y) {
    return assertEquals("", x, y);
  }

  static public <A> A assertEquals(String msg, Object x, A y) {
    if (assertVerbose())
      return assertEqualsVerbose(msg, x, y);
    if (!(x == null ? y == null : x.equals(y)))
      throw fail((msg != null ? msg + ": " : "") + y + " != " + x);
    return y;
  }

  static public void assertEquals(Scorer scorer, Object x, Object y) {
    assertEquals(scorer, "", x, y);
  }

  static public void assertEquals(Scorer scorer, String msg, Object x, Object y) {
    if (scorer == null) {
      assertEquals(msg, x, y);
      return;
    }
    scorer.add(eq(x, y), nullIfEmpty(msg));
  }

  static public <A> int indexOf(List<A> l, A a, int startIndex) {
    if (l == null)
      return -1;
    int n = l(l);
    for (int i = startIndex; i < n; i++) if (eq(l.get(i), a))
      return i;
    return -1;
  }

  static public <A> int indexOf(List<A> l, int startIndex, A a) {
    return indexOf(l, a, startIndex);
  }

  static public <A> int indexOf(List<A> l, A a) {
    if (l == null)
      return -1;
    return l.indexOf(a);
  }

  static public int indexOf(String a, String b) {
    return a == null || b == null ? -1 : a.indexOf(b);
  }

  static public int indexOf(String a, String b, int i) {
    return a == null || b == null ? -1 : a.indexOf(b, i);
  }

  static public int indexOf(String a, char b) {
    return a == null ? -1 : a.indexOf(b);
  }

  static public int indexOf(String a, int i, char b) {
    return indexOf(a, b, i);
  }

  static public int indexOf(String a, char b, int i) {
    return a == null ? -1 : a.indexOf(b, i);
  }

  static public int indexOf(String a, int i, String b) {
    return a == null || b == null ? -1 : a.indexOf(b, i);
  }

  static public <A> int indexOf(A[] x, A a) {
    int n = l(x);
    for (int i = 0; i < n; i++) if (eq(x[i], a))
      return i;
    return -1;
  }

  static public <A> int indexOf(Iterable<A> l, A a) {
    if (l == null)
      return -1;
    int i = 0;
    for (A x : l) {
      if (eq(x, a))
        return i;
      i++;
    }
    return -1;
  }

  static volatile public StringBuffer local_log = new StringBuffer();

  static public boolean printAlsoToSystemOut = true;

  static volatile public Appendable print_log = local_log;

  static volatile public int print_log_max = 1024 * 1024;

  static volatile public int local_log_max = 100 * 1024;

  static public boolean print_silent = false;

  static public Object print_byThread_lock = new Object();

  static volatile public ThreadLocal<Object> print_byThread;

  static volatile public Object print_allThreads;

  static volatile public Object print_preprocess;

  static public void print() {
    print("");
  }

  static public <A> A print(String s, A o) {
    print(combinePrintParameters(s, o));
    return o;
  }

  static public <A> A print(A o) {
    ping_okInCleanUp();
    if (print_silent)
      return o;
    String s = o + "\n";
    print_noNewLine(s);
    return o;
  }

  static public void print_noNewLine(String s) {
    try {
      Object f = getThreadLocal(print_byThread_dontCreate());
      if (f == null)
        f = print_allThreads;
      if (f != null)
        if (isFalse(f instanceof F1 ? ((F1) f).get(s) : callF(f, s)))
          return;
    } catch (Throwable e) {
      System.out.println(getStackTrace(e));
    }
    print_raw(s);
  }

  static public void print_raw(String s) {
    if (print_preprocess != null)
      s = (String) callF(print_preprocess, s);
    s = fixNewLines(s);
    Appendable loc = local_log;
    Appendable buf = print_log;
    int loc_max = print_log_max;
    if (buf != loc && buf != null) {
      print_append(buf, s, print_log_max);
      loc_max = local_log_max;
    }
    if (loc != null)
      print_append(loc, s, loc_max);
    if (printAlsoToSystemOut)
      System.out.print(s);
    vmBus_send("printed", mc(), s);
  }

  static public void print_autoRotate() {
  }

  static public <A> A printWithPrecedingNL(A o) {
    return printWithPrecedingNL("", o);
  }

  static public <A> A printWithPrecedingNL(String prefix, A o) {
    return nlPrint(prefix, o);
  }

  static public <A extends Iterable> A pnl(A l) {
    return pnl("", l);
  }

  static public <A extends Iterable> A pnl(String prefix, A l) {
    printNumberedLines(prefix, l);
    return l;
  }

  static public <A> A[] pnl(A[] l) {
    return pnl("", l);
  }

  static public <A> A[] pnl(String prefix, A[] l) {
    printNumberedLines(prefix, l);
    return l;
  }

  static public <A extends Map> A pnl(A map) {
    printNumberedLines(map);
    return map;
  }

  static public <A extends Map> A pnl(String prefix, A map) {
    printNumberedLines(prefix, map);
    return map;
  }

  static public String pnl(String s) {
    printNumberedLines(lines(s));
    return s;
  }

  static public <A> MultiSet<A> pnl(MultiSet<A> ms) {
    pnl(ms == null ? null : ms.asMap());
    return ms;
  }

  static public <A, B> MultiMap<A, B> pnl(MultiMap<A, B> mm) {
    pnl(mm == null ? null : mm.asMap());
    return mm;
  }

  static public void assertSetsEqual(Collection l1, Collection l2) {
    assertSetsEqual("", l1, l2);
  }

  static public void assertSetsEqual(String msg, Collection l1, Collection l2) {
    assertEquals("Set sizes", l(l1), l(l2));
    Set set2 = asSet(l2);
    for (Object o : unnullForIteration(l1)) if (!contains(set2, o))
      throw fail("Set 2 doesn't contain " + o);
    Set set1 = asSet(l1);
    for (Object o : unnullForIteration(l2)) if (!contains(set1, o))
      throw fail("Set 1 doesn't contain " + o);
  }

  static public <A> List<A> listPlus(Collection<A> l, A... more) {
    return concatLists(l, asList(more));
  }

  static public <A> A enableScaffolding(A o) {
    return enableScaffolding(o, true);
  }

  static public <A> A enableScaffolding(A o, boolean b) {
    if (o instanceof IMeta)
      ((IMeta) o).metaPut("scaffolding", trueOrNull(b));
    return o;
  }

  static public AutoCloseable tempInterceptPrintIfNotIntercepted(F1<String, Boolean> f) {
    return print_byThread().get() == null ? tempInterceptPrint(f) : null;
  }

  static public Method findMethod_cached(Object o, String method, Object... args) {
    try {
      if (o == null)
        return null;
      if (o instanceof Class) {
        _MethodCache cache = callOpt_getCache((Class) o);
        List<Method> methods = cache.cache.get(method);
        if (methods != null)
          for (Method m : methods) if (isStaticMethod(m) && findMethod_checkArgs(m, args, false))
            return m;
        return null;
      } else {
        _MethodCache cache = callOpt_getCache(o.getClass());
        List<Method> methods = cache.cache.get(method);
        if (methods != null)
          for (Method m : methods) if (findMethod_checkArgs(m, args, false))
            return m;
        return null;
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public boolean isInstanceX(Class type, Object arg) {
    if (type == boolean.class)
      return arg instanceof Boolean;
    if (type == int.class)
      return arg instanceof Integer;
    if (type == long.class)
      return arg instanceof Long;
    if (type == float.class)
      return arg instanceof Float;
    if (type == short.class)
      return arg instanceof Short;
    if (type == char.class)
      return arg instanceof Character;
    if (type == byte.class)
      return arg instanceof Byte;
    if (type == double.class)
      return arg instanceof Double;
    return type.isInstance(arg);
  }

  static public Map<Class, ArrayList<Method>> callF_cache = newDangerousWeakHashMap();

  static public <A> A callF(F0<A> f) {
    return f == null ? null : f.get();
  }

  static public <A, B> B callF(F1<A, B> f, A a) {
    return f == null ? null : f.get(a);
  }

  static public <A> A callF(IF0<A> f) {
    return f == null ? null : f.get();
  }

  static public <A, B> B callF(IF1<A, B> f, A a) {
    return f == null ? null : f.get(a);
  }

  static public <A, B> B callF(A a, IF1<A, B> f) {
    return f == null ? null : f.get(a);
  }

  static public <A, B, C> C callF(F2<A, B, C> f, A a, B b) {
    return f == null ? null : f.get(a, b);
  }

  static public <A, B, C> C callF(IF2<A, B, C> f, A a, B b) {
    return f == null ? null : f.get(a, b);
  }

  static public <A> void callF(VF1<A> f, A a) {
    if (f != null)
      f.get(a);
  }

  static public <A> void callF(A a, IVF1<A> f) {
    if (f != null)
      f.get(a);
  }

  static public <A> void callF(IVF1<A> f, A a) {
    if (f != null)
      f.get(a);
  }

  static public Object callF(Runnable r) {
    {
      if (r != null)
        r.run();
    }
    return null;
  }

  static public Object callF(Object f, Object... args) {
    return safeCallF(f, args);
  }

  static public Object safeCallF(Object f, Object... args) {
    if (f instanceof Runnable) {
      ((Runnable) f).run();
      return null;
    }
    if (f == null)
      return null;
    Class c = f.getClass();
    ArrayList<Method> methods;
    synchronized (callF_cache) {
      methods = callF_cache.get(c);
      if (methods == null)
        methods = callF_makeCache(c);
    }
    int n = l(methods);
    if (n == 0) {
      if (f instanceof String)
        throw fail("Legacy call: " + f);
      throw fail("No get method in " + getClassName(c));
    }
    if (n == 1)
      return invokeMethod(methods.get(0), f, args);
    for (int i = 0; i < n; i++) {
      Method m = methods.get(i);
      if (call_checkArgs(m, args, false))
        return invokeMethod(m, f, args);
    }
    throw fail("No matching get method in " + getClassName(c));
  }

  static public ArrayList<Method> callF_makeCache(Class c) {
    ArrayList<Method> l = new ArrayList();
    Class _c = c;
    do {
      for (Method m : _c.getDeclaredMethods()) if (m.getName().equals("get")) {
        makeAccessible(m);
        l.add(m);
      }
      if (!l.isEmpty())
        break;
      _c = _c.getSuperclass();
    } while (_c != null);
    callF_cache.put(c, l);
    return l;
  }

  static public RuntimeException asRuntimeException(Throwable t) {
    if (t instanceof Error)
      _handleError((Error) t);
    return t instanceof RuntimeException ? (RuntimeException) t : new RuntimeException(t);
  }

  static public char[] asChars(String s) {
    return s == null ? null : s.toCharArray();
  }

  static public Duration msToDuration(double ms) {
    return Duration.ofNanos(lround(msToNanos(ms)));
  }

  static public long daysToMS(double days) {
    return round(days * 24 * 60 * 60 * 1000);
  }

  static public double[] cloneDoubleArray(double[] a) {
    if (a == null)
      return null;
    double[] b = new double[a.length];
    System.arraycopy(a, 0, b, 0, a.length);
    return b;
  }

  static public BigInteger bigint(String s) {
    return new BigInteger(s);
  }

  static public BigInteger bigint(long l) {
    return BigInteger.valueOf(l);
  }

  static public int parseInt(String s) {
    return emptyString(s) ? 0 : Integer.parseInt(s);
  }

  static public int parseInt(char c) {
    return Integer.parseInt(str(c));
  }

  static public String getClassName(Object o) {
    return o == null ? "null" : o instanceof Class ? ((Class) o).getName() : o.getClass().getName();
  }

  static public byte[] cloneByteArray(byte[] a) {
    if (a == null)
      return null;
    byte[] b = new byte[a.length];
    System.arraycopy(a, 0, b, 0, a.length);
    return b;
  }

  static public boolean empty(Collection c) {
    return c == null || c.isEmpty();
  }

  static public boolean empty(Iterable c) {
    return c == null || !c.iterator().hasNext();
  }

  static public boolean empty(CharSequence s) {
    return s == null || s.length() == 0;
  }

  static public boolean empty(Map map) {
    return map == null || map.isEmpty();
  }

  static public boolean empty(Object[] o) {
    return o == null || o.length == 0;
  }

  static public boolean empty(BitSet bs) {
    return bs == null || bs.isEmpty();
  }

  static public boolean empty(Object o) {
    if (o instanceof Collection)
      return empty((Collection) o);
    if (o instanceof String)
      return empty((String) o);
    if (o instanceof Map)
      return empty((Map) o);
    if (o instanceof Object[])
      return empty((Object[]) o);
    if (o instanceof byte[])
      return empty((byte[]) o);
    if (o == null)
      return true;
    throw fail("unknown type for 'empty': " + getType(o));
  }

  static public boolean empty(Iterator i) {
    return i == null || !i.hasNext();
  }

  static public boolean empty(double[] a) {
    return a == null || a.length == 0;
  }

  static public boolean empty(float[] a) {
    return a == null || a.length == 0;
  }

  static public boolean empty(int[] a) {
    return a == null || a.length == 0;
  }

  static public boolean empty(long[] a) {
    return a == null || a.length == 0;
  }

  static public boolean empty(byte[] a) {
    return a == null || a.length == 0;
  }

  static public boolean empty(short[] a) {
    return a == null || a.length == 0;
  }

  static public boolean empty(MultiSet ms) {
    return ms == null || ms.isEmpty();
  }

  static public boolean empty(IMultiMap mm) {
    return mm == null || mm.size() == 0;
  }

  static public boolean empty(File f) {
    return getFileSize(f) == 0;
  }

  static public boolean empty(IntRange r) {
    return r == null || r.empty();
  }

  static public boolean empty(IntBuffer b) {
    return b == null || b.isEmpty();
  }

  static public boolean empty(Rect r) {
    return !(r != null && r.w != 0 && r.h != 0);
  }

  static public boolean empty(Chain c) {
    return c == null;
  }

  static public boolean empty(AppendableChain c) {
    return c == null;
  }

  static public boolean empty(IntSize l) {
    return l == null || l.size() == 0;
  }

  static public ArrayList emptyList() {
    return new ArrayList();
  }

  static public ArrayList emptyList(int capacity) {
    return new ArrayList(max(0, capacity));
  }

  static public ArrayList emptyList(Iterable l) {
    return l instanceof Collection ? emptyList(((Collection) l).size()) : emptyList();
  }

  static public ArrayList emptyList(Object[] l) {
    return emptyList(l(l));
  }

  static public <A> ArrayList<A> emptyList(Class<A> c) {
    return new ArrayList();
  }

  static public <A> ArrayList<A> asList(A[] a) {
    return a == null ? new ArrayList<A>() : new ArrayList<A>(Arrays.asList(a));
  }

  static public ArrayList<Character> asList(char[] a) {
    if (a == null)
      return null;
    ArrayList<Character> l = emptyList(a.length);
    for (var i : a) l.add(i);
    return l;
  }

  static public ArrayList<Byte> asList(byte[] a) {
    if (a == null)
      return null;
    ArrayList<Byte> l = emptyList(a.length);
    for (var i : a) l.add(i);
    return l;
  }

  static public ArrayList<Integer> asList(int[] a) {
    if (a == null)
      return null;
    ArrayList<Integer> l = emptyList(a.length);
    for (int i : a) l.add(i);
    return l;
  }

  static public ArrayList<Long> asList(long[] a) {
    if (a == null)
      return null;
    ArrayList<Long> l = emptyList(a.length);
    for (long i : a) l.add(i);
    return l;
  }

  static public ArrayList<Float> asList(float[] a) {
    if (a == null)
      return null;
    ArrayList<Float> l = emptyList(a.length);
    for (float i : a) l.add(i);
    return l;
  }

  static public ArrayList<Double> asList(double[] a) {
    if (a == null)
      return null;
    ArrayList<Double> l = emptyList(a.length);
    for (double i : a) l.add(i);
    return l;
  }

  static public ArrayList<Short> asList(short[] a) {
    if (a == null)
      return null;
    ArrayList<Short> l = emptyList(a.length);
    for (short i : a) l.add(i);
    return l;
  }

  static public <A> ArrayList<A> asList(Iterator<A> it) {
    ArrayList l = new ArrayList();
    if (it != null)
      while (it.hasNext()) l.add(it.next());
    return l;
  }

  static public <A> ArrayList<A> asList(IterableIterator<A> s) {
    return asList((Iterator) s);
  }

  static public <A> ArrayList<A> asList(Iterable<A> s) {
    if (s instanceof ArrayList)
      return (ArrayList) s;
    ArrayList l = new ArrayList();
    if (s != null)
      for (A a : s) l.add(a);
    return l;
  }

  static public <A> ArrayList<A> asList(Producer<A> p) {
    ArrayList l = new ArrayList();
    A a;
    if (p != null)
      while ((a = p.next()) != null) l.add(a);
    return l;
  }

  static public <A> ArrayList<A> asList(Enumeration<A> e) {
    ArrayList l = new ArrayList();
    if (e != null)
      while (e.hasMoreElements()) l.add(e.nextElement());
    return l;
  }

  static public <A> ArrayList<A> asList(ReverseChain<A> c) {
    return c == null ? emptyList() : c.toList();
  }

  static public <A> List<A> asList(Pair<A, A> p) {
    return p == null ? null : ll(p.a, p.b);
  }

  static volatile public boolean sleep_noSleep = false;

  static public void sleep(long ms) {
    ping();
    if (ms < 0)
      return;
    if (isAWTThread() && ms > 100)
      throw fail("Should not sleep on AWT thread");
    try {
      Thread.sleep(ms);
    } catch (Exception e) {
      throw new RuntimeException(e);
    }
  }

  static public void sleep() {
    try {
      if (sleep_noSleep)
        throw fail("nosleep");
      print("Sleeping.");
      sleepQuietly();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public long round(double d) {
    return Math.round(d);
  }

  static public String round(String s) {
    return roundBracket(s);
  }

  static public Complex round(Complex c) {
    return new Complex(round(c.re), round(c.im));
  }

  static public <A> List<A> reversedList(Iterable<A> l) {
    List<A> x = cloneList(l);
    Collections.reverse(x);
    return x;
  }

  static public String reversedString(String s) {
    return reverseString(s);
  }

  static public String shortClassName_dropNumberPrefix(Object o) {
    return dropNumberPrefix(shortClassName(o));
  }

  static public RuntimeException rethrow(Throwable t) {
    if (t instanceof Error)
      _handleError((Error) t);
    throw t instanceof RuntimeException ? (RuntimeException) t : new RuntimeException(t);
  }

  static public RuntimeException rethrow(String msg, Throwable t) {
    throw new RuntimeException(msg, t);
  }

  static public Object swing(Object f) {
    return swingAndWait(f);
  }

  static public void swing(Runnable f) {
    swingAndWait(f);
  }

  static public <A> A swing(F0<A> f) {
    return (A) swingAndWait(f);
  }

  static public <A> A swing(IF0<A> f) {
    return (A) swingAndWait(f);
  }

  static public void removeFromParent(final Component c) {
    if (c != null) {
      swing(() -> {
        Container cc = c.getParent();
        if (cc != null) {
          cc.remove(c);
          revalidate(cc);
        }
      });
    }
  }

  public static <A> String join(String glue, Iterable<A> strings) {
    if (strings == null)
      return "";
    if (strings instanceof Collection) {
      if (((Collection) strings).size() == 1)
        return strOrEmpty(first((Collection) strings));
    }
    StringBuilder buf = new StringBuilder();
    Iterator<A> i = strings.iterator();
    if (i.hasNext()) {
      buf.append(strOrEmpty(i.next()));
      while (i.hasNext()) buf.append(glue).append(strOrEmpty(i.next()));
    }
    return buf.toString();
  }

  public static String join(String glue, String... strings) {
    return join(glue, Arrays.asList(strings));
  }

  public static String join(String glue, Object... strings) {
    return join(glue, Arrays.asList(strings));
  }

  static public <A> String join(Iterable<A> strings) {
    return join("", strings);
  }

  static public <A> String join(Iterable<A> strings, String glue) {
    return join(glue, strings);
  }

  public static String join(String[] strings) {
    return join("", strings);
  }

  static public String join(String glue, Pair p) {
    return p == null ? "" : str(p.a) + glue + str(p.b);
  }

  static public Set asSet(Object[] array) {
    HashSet set = new HashSet();
    for (Object o : array) if (o != null)
      set.add(o);
    return set;
  }

  static public Set<String> asSet(String[] array) {
    TreeSet<String> set = new TreeSet();
    for (String o : array) if (o != null)
      set.add(o);
    return set;
  }

  static public <A> Set<A> asSet(Iterable<A> l) {
    if (l instanceof Set)
      return (Set) l;
    HashSet<A> set = new HashSet();
    for (A o : unnull(l)) if (o != null)
      set.add(o);
    return set;
  }

  static public <A> Set<A> asSet(MultiSet<A> ms) {
    return ms == null ? null : ms.asSet();
  }

  static public String unnull(String s) {
    return s == null ? "" : s;
  }

  static public <A> Collection<A> unnull(Collection<A> l) {
    return l == null ? emptyList() : l;
  }

  static public <A> List<A> unnull(List<A> l) {
    return l == null ? emptyList() : l;
  }

  static public int[] unnull(int[] l) {
    return l == null ? emptyIntArray() : l;
  }

  static public char[] unnull(char[] l) {
    return l == null ? emptyCharArray() : l;
  }

  static public double[] unnull(double[] l) {
    return l == null ? emptyDoubleArray() : l;
  }

  static public float[] unnull(float[] l) {
    return l == null ? emptyFloatArray() : l;
  }

  static public <A, B> Map<A, B> unnull(Map<A, B> l) {
    return l == null ? emptyMap() : l;
  }

  static public <A> Iterable<A> unnull(Iterable<A> i) {
    return i == null ? emptyList() : i;
  }

  static public <A> A[] unnull(A[] a) {
    return a == null ? (A[]) emptyObjectArray() : a;
  }

  static public BitSet unnull(BitSet b) {
    return b == null ? new BitSet() : b;
  }

  static public Pt unnull(Pt p) {
    return p == null ? new Pt() : p;
  }

  static public Symbol unnull(Symbol s) {
    return s == null ? emptySymbol() : s;
  }

  static public <A, B> Pair<A, B> unnull(Pair<A, B> p) {
    return p != null ? p : new Pair(null, null);
  }

  static public int unnull(Integer i) {
    return i == null ? 0 : i;
  }

  static public long unnull(Long l) {
    return l == null ? 0L : l;
  }

  static public double unnull(Double l) {
    return l == null ? 0.0 : l;
  }

  static public Complex complex(double re, double im) {
    return new Complex(re, im);
  }

  static public Complex complex(double re) {
    return new Complex(re, 0.0);
  }

  static public Complex complex(double[] reIm) {
    if (empty(reIm))
      return null;
    if (l(reIm) != 2)
      throw fail("Need 2 doubles to make complex number");
    return complex(reIm[0], reIm[1]);
  }

  static public int cmp(Number a, Number b) {
    return a == null ? b == null ? 0 : -1 : cmp(a.doubleValue(), b.doubleValue());
  }

  static public int cmp(double a, double b) {
    return a < b ? -1 : a == b ? 0 : 1;
  }

  static public int cmp(int a, int b) {
    return a < b ? -1 : a == b ? 0 : 1;
  }

  static public int cmp(long a, long b) {
    return a < b ? -1 : a == b ? 0 : 1;
  }

  static public int cmp(Object a, Object b) {
    if (a == null)
      return b == null ? 0 : -1;
    if (b == null)
      return 1;
    return ((Comparable) a).compareTo(b);
  }

  static public BufferedImage whiteImage(int w, int h) {
    return newBufferedImage(w, h, Color.white);
  }

  static public BufferedImage whiteImage(int size) {
    return whiteImage(size, size);
  }

  static public BufferedImage whiteImage(WidthAndHeight size) {
    return whiteImage(size.getWidth(), size.getHeight());
  }

  static public BufferedImage bufferedImage(int[] pixels, int w, int h) {
    return intArrayToBufferedImage(pixels, w, h);
  }

  static public BufferedImage bufferedImage(int[] pixels, WidthAndHeight size) {
    return bufferedImage(pixels, size.getWidth(), size.getHeight());
  }

  static public BufferedImage bufferedImage(int w, int h, int[] pixels) {
    return intArrayToBufferedImage(pixels, w, h);
  }

  static public BufferedImage bufferedImage(int w, int h) {
    return newBufferedImage(w, h);
  }

  static public BufferedImage bufferedImage(int w, int h, RGB rgb) {
    return newBufferedImage(w, h, rgb);
  }

  static public BufferedImage bufferedImage(int w, Color color) {
    return bufferedImage(w, w, color);
  }

  static public BufferedImage bufferedImage(int w, int h, Color color) {
    return newBufferedImage(w, h, color);
  }

  static public BufferedImage bufferedImage(Pt p, Color color) {
    return newBufferedImage(p, color);
  }

  static public BufferedImage bufferedImage(WidthAndHeight size, Color color) {
    return newBufferedImage(size.w(), size.h(), color);
  }

  static public BufferedImage bufferedImage(Color color, WidthAndHeight size) {
    return bufferedImage(size, color);
  }

  static public int random_incl(int min, int max) {
    return random_incl(min, max, defaultRandomizer());
  }

  static public int random_incl(int min, int max, Random random) {
    return random(min, max + 1, random);
  }

  static public int random_incl(int max) {
    return random(0, max + 1);
  }

  static public Rect translateRect(int x, int y, Rect r) {
    return translateRect(r, x, y);
  }

  static public Rect translateRect(Rect r, int x, int y) {
    return r == null ? null : new Rect(r.x + x, r.y + y, r.w, r.h);
  }

  static public int random(int n) {
    return random(n, defaultRandomGenerator());
  }

  static public int random(int n, Random r) {
    return random(r, n);
  }

  static public long random(long n) {
    return random(n, defaultRandomGenerator());
  }

  static public long random(long n, Random r) {
    return random(r, n);
  }

  static public int random(Random r, int n) {
    return n <= 0 ? 0 : getRandomizer(r).nextInt(n);
  }

  static public long random(Random r, long n) {
    return n <= 0 ? 0 : getRandomizer(r).nextLong(n);
  }

  static public double random(double max) {
    return random() * max;
  }

  static public double random() {
    return defaultRandomGenerator().nextInt(100001) / 100000.0;
  }

  static public double random(double min, double max) {
    return min + random() * (max - min);
  }

  static public int random(int min, int max) {
    return min + random(max - min);
  }

  static public long random(long min, long max) {
    return min + random(max - min);
  }

  static public int random(int min, int max, Random r) {
    return random(r, min, max);
  }

  static public int random(Random r, int min, int max) {
    return min + random(r, max - min);
  }

  static public <A> A random(List<A> l) {
    return oneOf(l);
  }

  static public <A> A random(Collection<A> c) {
    if (c instanceof List)
      return random((List<A>) c);
    int i = random(l(c));
    return collectionGet(c, i);
  }

  static public int random(IntRange r) {
    return random(r.start, r.end);
  }

  static public Timestamp random(TimestampRange r) {
    return r == null ? null : new Timestamp(random(r.startTime().unixDate(), r.endTime().unixDate()));
  }

  static public <A, B> Pair<A, B> random(Map<A, B> map) {
    return entryToPair(random(entries(map)));
  }

  static public ThreadLocal<BufferedImage> currentImage_var = new ThreadLocal();

  static public BufferedImage currentImage() {
    return currentImage_var.get();
  }

  static public void currentImage(BufferedImage img) {
    currentImage_var.set(img);
  }

  static public int toInt(Object o) {
    if (o == null)
      return 0;
    if (o instanceof Number)
      return ((Number) o).intValue();
    if (o instanceof String)
      return parseInt((String) o);
    if (o instanceof Boolean)
      return boolToInt((Boolean) o);
    throw fail("woot not int: " + getClassName(o));
  }

  static public int toInt(long l) {
    if (l != (int) l)
      throw fail("Too large for int: " + l);
    return (int) l;
  }

  static public Object getOpt(Object o, String field) {
    return getOpt_cached(o, field);
  }

  static public Object getOpt(String field, Object o) {
    return getOpt_cached(o, field);
  }

  static public Object getOpt_raw(Object o, String field) {
    try {
      Field f = getOpt_findField(o.getClass(), field);
      if (f == null)
        return null;
      makeAccessible(f);
      return f.get(o);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Object getOpt(Class c, String field) {
    try {
      if (c == null)
        return null;
      Field f = getOpt_findStaticField(c, field);
      if (f == null)
        return null;
      makeAccessible(f);
      return f.get(null);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Field getOpt_findStaticField(Class<?> c, String field) {
    Class _c = c;
    do {
      for (Field f : _c.getDeclaredFields()) if (f.getName().equals(field) && (f.getModifiers() & java.lang.reflect.Modifier.STATIC) != 0)
        return f;
      _c = _c.getSuperclass();
    } while (_c != null);
    return null;
  }

  static public String quote(Object o) {
    if (o == null)
      return "null";
    return quote(str(o));
  }

  static public String quote(String s) {
    if (s == null)
      return "null";
    StringBuilder out = new StringBuilder((int) (l(s) * 1.5 + 2));
    quote_impl(s, out);
    return out.toString();
  }

  static public void quote_impl(String s, StringBuilder out) {
    out.append('"');
    int l = s.length();
    for (int i = 0; i < l; i++) {
      char c = s.charAt(i);
      if (c == '\\' || c == '"')
        out.append('\\').append(c);
      else if (c == '\r')
        out.append("\\r");
      else if (c == '\n')
        out.append("\\n");
      else if (c == '\t')
        out.append("\\t");
      else if (c == '\0')
        out.append("\\0");
      else
        out.append(c);
    }
    out.append('"');
  }

  static public boolean eq(Object a, Object b) {
    return a == b || a != null && b != null && a.equals(b);
  }

  static public boolean eq(Symbol a, String b) {
    return eq(str(a), b);
  }

  static public String str(Object o) {
    return o == null ? "null" : o.toString();
  }

  static public String str(char[] c) {
    return c == null ? "null" : new String(c);
  }

  static public String str(char[] c, int offset, int count) {
    return new String(c, offset, count);
  }

  static public String _userHome;

  static public String userHome() {
    if (_userHome == null)
      return actualUserHome();
    return _userHome;
  }

  static public File userHome(String path) {
    return new File(userDir(), path);
  }

  static public boolean nempty(Collection c) {
    return !empty(c);
  }

  static public boolean nempty(CharSequence s) {
    return !empty(s);
  }

  static public boolean nempty(Object[] o) {
    return !empty(o);
  }

  static public boolean nempty(byte[] o) {
    return !empty(o);
  }

  static public boolean nempty(int[] o) {
    return !empty(o);
  }

  static public boolean nempty(BitSet bs) {
    return !empty(bs);
  }

  static public boolean nempty(Map m) {
    return !empty(m);
  }

  static public boolean nempty(Iterator i) {
    return i != null && i.hasNext();
  }

  static public boolean nempty(IMultiMap mm) {
    return mm != null && mm.size() != 0;
  }

  static public boolean nempty(Object o) {
    return !empty(o);
  }

  static public boolean nempty(IntRange r) {
    return !empty(r);
  }

  static public boolean nempty(IntBuffer b) {
    return b != null && !b.isEmpty();
  }

  static public boolean nempty(Rect r) {
    return r != null && r.w != 0 && r.h != 0;
  }

  static public boolean nempty(MultiSet ms) {
    return ms != null && !ms.isEmpty();
  }

  static public boolean nempty(IntSize l) {
    return l != null && l.size() != 0;
  }

  static public String appendColonIfNempty(String s) {
    return empty(s) ? "" : s + ": ";
  }

  static public boolean rectContains(int x1, int y1, int w, int h, Pt p) {
    return p.x >= x1 && p.y >= y1 && p.x < x1 + w && p.y < y1 + h;
  }

  static public boolean rectContains(Rect a, Rect b) {
    return b.x >= a.x && b.y >= a.y && b.x2() <= a.x2() && b.y2() <= a.y2();
  }

  static public boolean rectContains(Rect a, Rectangle b) {
    return rectContains(a, toRect(b));
  }

  static public boolean rectContains(Rect a, int x, int y) {
    return a != null && a.contains(x, y);
  }

  static public boolean rectContains(Rect a, Pt p) {
    return a != null && p != null && a.contains(p);
  }

  static public String unnullForIteration(String s) {
    return s == null ? "" : s;
  }

  static public <A> Collection<A> unnullForIteration(Collection<A> l) {
    return l == null ? immutableEmptyList() : l;
  }

  static public <A> List<A> unnullForIteration(List<A> l) {
    return l == null ? immutableEmptyList() : l;
  }

  static public byte[] unnullForIteration(byte[] l) {
    return l == null ? emptyByteArray() : l;
  }

  static public int[] unnullForIteration(int[] l) {
    return l == null ? emptyIntArray() : l;
  }

  static public char[] unnullForIteration(char[] l) {
    return l == null ? emptyCharArray() : l;
  }

  static public double[] unnullForIteration(double[] l) {
    return l == null ? emptyDoubleArray() : l;
  }

  static public short[] unnullForIteration(short[] l) {
    return l == null ? emptyShortArray() : l;
  }

  static public <A, B> Map<A, B> unnullForIteration(Map<A, B> l) {
    return l == null ? immutableEmptyMap() : l;
  }

  static public <A> Iterable<A> unnullForIteration(Iterable<A> i) {
    return i == null ? immutableEmptyList() : i;
  }

  static public <A> A[] unnullForIteration(A[] a) {
    return a == null ? (A[]) emptyObjectArray() : a;
  }

  static public BitSet unnullForIteration(BitSet b) {
    return b == null ? new BitSet() : b;
  }

  static public Pt unnullForIteration(Pt p) {
    return p == null ? new Pt() : p;
  }

  static public Symbol unnullForIteration(Symbol s) {
    return s == null ? emptySymbol() : s;
  }

  static public <A, B> Pair<A, B> unnullForIteration(Pair<A, B> p) {
    return p != null ? p : new Pair(null, null);
  }

  static public long unnullForIteration(Long l) {
    return l == null ? 0L : l;
  }

  static public String str_shorten(Object o) {
    return shorten_str(o);
  }

  static public String str_shorten(Object o, int max) {
    return shorten_str(o, max);
  }

  static public String str_shorten(int max, Object o) {
    return shorten_str(max, o);
  }

  static public <A> A printQuote(A a) {
    return printQuote("", a);
  }

  static public <A> A printQuote(String prefix, A a) {
    print(prefix, quote(a));
    return a;
  }

  static public int l(Object[] a) {
    return a == null ? 0 : a.length;
  }

  static public int l(boolean[] a) {
    return a == null ? 0 : a.length;
  }

  static public int l(byte[] a) {
    return a == null ? 0 : a.length;
  }

  static public int l(short[] a) {
    return a == null ? 0 : a.length;
  }

  static public int l(long[] a) {
    return a == null ? 0 : a.length;
  }

  static public int l(int[] a) {
    return a == null ? 0 : a.length;
  }

  static public int l(float[] a) {
    return a == null ? 0 : a.length;
  }

  static public int l(double[] a) {
    return a == null ? 0 : a.length;
  }

  static public int l(char[] a) {
    return a == null ? 0 : a.length;
  }

  static public int l(Collection c) {
    return c == null ? 0 : c.size();
  }

  static public int l(Iterator i) {
    return iteratorCount_int_close(i);
  }

  static public int l(Map m) {
    return m == null ? 0 : m.size();
  }

  static public int l(CharSequence s) {
    return s == null ? 0 : s.length();
  }

  static public long l(File f) {
    return f == null ? 0 : f.length();
  }

  static public int l(IMultiSet ms) {
    return ms == null ? 0 : ms.size();
  }

  static public int l(IMultiMap mm) {
    return mm == null ? 0 : mm.size();
  }

  static public int l(IntRange r) {
    return r == null ? 0 : r.length();
  }

  static public int l(IntBuffer b) {
    return b == null ? 0 : b.size();
  }

  static public int l(IntSize o) {
    return o == null ? 0 : o.size();
  }

  static public <A> List<A> newSubListOrSame(List<A> l, int startIndex) {
    return newSubListOrSame(l, startIndex, l(l));
  }

  static public <A> List<A> newSubListOrSame(List<A> l, int startIndex, int endIndex) {
    if (l == null)
      return null;
    int n = l(l);
    startIndex = max(0, startIndex);
    endIndex = min(n, endIndex);
    if (startIndex >= endIndex)
      return ll();
    if (startIndex == 0 && endIndex == n)
      return l;
    return cloneList(l.subList(startIndex, endIndex));
  }

  static public <A> List<A> newSubListOrSame(List<A> l, IntRange r) {
    return newSubListOrSame(l, r.start, r.end);
  }

  static public String substring(String s, int x) {
    return substring(s, x, strL(s));
  }

  static public String substring(String s, int x, int y) {
    if (s == null)
      return null;
    if (x < 0)
      x = 0;
    int n = s.length();
    if (y < x)
      y = x;
    if (y > n)
      y = n;
    if (x >= y)
      return "";
    return s.substring(x, y);
  }

  static public String substring(String s, IntRange r) {
    return r == null ? null : substring(s, r.start, r.end);
  }

  static public String substring(String s, CharSequence l) {
    return substring(s, lCharSequence(l));
  }

  static public CharSequence subCharSequence(CharSequence s, int x) {
    return subCharSequence(s, x, s == null ? 0 : s.length());
  }

  static public CharSequence subCharSequence(CharSequence s, int x, int y) {
    if (s == null)
      return null;
    if (x < 0)
      x = 0;
    if (x >= s.length())
      return "";
    if (y < x)
      y = x;
    if (y > s.length())
      y = s.length();
    return s.subSequence(x, y);
  }

  static public int[] takeFirstOfIntArray(int[] b, int n) {
    return subIntArray(b, 0, n);
  }

  static public int[] takeFirstOfIntArray(int n, int[] b) {
    return takeFirstOfIntArray(b, n);
  }

  static public short[] takeFirstOfShortArray(short[] b, int n) {
    return subShortArray(b, 0, n);
  }

  static public short[] takeFirstOfShortArray(int n, short[] b) {
    return takeFirstOfShortArray(b, n);
  }

  static public byte[] takeFirstOfByteArray(byte[] b, int n) {
    return subByteArray(b, 0, n);
  }

  static public byte[] takeFirstOfByteArray(int n, byte[] b) {
    return takeFirstOfByteArray(b, n);
  }

  static public double[] takeFirstOfDoubleArray(double[] b, int n) {
    return subDoubleArray(b, 0, n);
  }

  static public double[] takeFirstOfDoubleArray(int n, double[] b) {
    return takeFirstOfDoubleArray(b, n);
  }

  static public ThreadLocal<Boolean> assertVerbose_value = new ThreadLocal();

  static public void assertVerbose(boolean b) {
    assertVerbose_value.set(b);
  }

  static public boolean assertVerbose() {
    return isTrue(assertVerbose_value.get());
  }

  static public String nullIfEmpty(String s) {
    return isEmpty(s) ? null : s;
  }

  static public <A, B> Map<A, B> nullIfEmpty(Map<A, B> map) {
    return isEmpty(map) ? null : map;
  }

  static public <A> List<A> nullIfEmpty(List<A> l) {
    return isEmpty(l) ? null : l;
  }

  static public String combinePrintParameters(String s, Object o) {
    return (endsWithLetterOrDigit(s) ? s + ": " : s) + o;
  }

  static public void ping_okInCleanUp() {
    if (ping_pauseAll || ping_anyActions)
      ping_impl(true);
  }

  static public Object getThreadLocal(Object o, String name) {
    ThreadLocal t = (ThreadLocal) (getOpt(o, name));
    return t != null ? t.get() : null;
  }

  static public <A> A getThreadLocal(ThreadLocal<A> tl) {
    return tl == null ? null : tl.get();
  }

  static public <A> A getThreadLocal(ThreadLocal<A> tl, A defaultValue) {
    return or(getThreadLocal(tl), defaultValue);
  }

  static public ThreadLocal<Object> print_byThread_dontCreate() {
    return print_byThread;
  }

  static public boolean isFalse(Object o) {
    return eq(false, o);
  }

  static public String getStackTrace(Throwable throwable) {
    lastException(throwable);
    return getStackTrace_noRecord(throwable);
  }

  static public String getStackTrace_noRecord(Throwable throwable) {
    StringWriter writer = new StringWriter();
    throwable.printStackTrace(new PrintWriter(writer));
    return hideCredentials(writer.toString());
  }

  static public String getStackTrace() {
    return getStackTrace_noRecord(new Throwable());
  }

  static public String getStackTrace(String msg) {
    return getStackTrace_noRecord(new Throwable(msg));
  }

  static public String fixNewLines(String s) {
    int i = indexOf(s, '\r');
    if (i < 0)
      return s;
    int l = s.length();
    StringBuilder out = new StringBuilder(l);
    out.append(s, 0, i);
    for (; i < l; i++) {
      char c = s.charAt(i);
      if (c != '\r')
        out.append(c);
      else {
        out.append('\n');
        if (i + 1 < l && s.charAt(i + 1) == '\n')
          ++i;
      }
    }
    return out.toString();
  }

  static public void print_append(Appendable buf, String s, int max) {
    try {
      synchronized (buf) {
        buf.append(s);
        if (buf instanceof StringBuffer)
          rotateStringBuffer(((StringBuffer) buf), max);
        else if (buf instanceof StringBuilder)
          rotateStringBuilder(((StringBuilder) buf), max);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void vmBus_send(String msg, Object... args) {
    Object arg = vmBus_wrapArgs(args);
    pcallFAll_minimalExceptionHandling(vm_busListeners_live(), msg, arg);
    pcallFAll_minimalExceptionHandling(vm_busListenersByMessage_live().get(msg), msg, arg);
  }

  static public void vmBus_send(String msg) {
    vmBus_send(msg, (Object) null);
  }

  static public Class mc() {
    return main.class;
  }

  static public <A> A nlPrint(A o) {
    return nlPrint("", o);
  }

  static public <A> A nlPrint(String prefix, A o) {
    return print("\n" + unnull(prefix), o);
  }

  static public void printNumberedLines(Map map) {
    printNumberedLines(mapToLines(map));
  }

  static public void printNumberedLines(String prefix, Map map) {
    printNumberedLines(prefix, mapToLines(map));
  }

  static public <A extends Iterable> A printNumberedLines(A l) {
    int i = 0;
    if (l != null)
      for (Object a : cloneList(l)) print((++i) + ". " + str(a));
    return l;
  }

  static public <A extends Iterable> A printNumberedLines(String prefix, A l) {
    int i = 0;
    if (l != null)
      for (Object a : cloneList(l)) print(prefix + (++i) + ". " + str(a));
    return l;
  }

  static public void printNumberedLines(Object[] l) {
    printNumberedLines("", l);
  }

  static public void printNumberedLines(String prefix, Object[] l) {
    printNumberedLines(prefix, wrapAsList(l));
  }

  static public void printNumberedLines(Object o) {
    printNumberedLines(lines(str(o)));
  }

  static public String lines(Iterable lines) {
    return fromLines(lines);
  }

  static public String lines(Object[] lines) {
    return fromLines(asList(lines));
  }

  static public List<String> lines(String s) {
    return toLines(s);
  }

  static public <A> String lines(Iterable<A> l, IF1<A, String> f) {
    return mapToLines(l, f);
  }

  static public <A> List<A> concatLists(Iterable<A>... lists) {
    List<A> l = new ArrayList();
    if (lists != null)
      for (Iterable<A> list : lists) addAll(l, list);
    return l;
  }

  static public <A> List<A> concatLists(Collection<? extends Iterable<A>> lists) {
    List<A> l = new ArrayList();
    if (lists != null)
      for (Iterable<A> list : lists) addAll(l, list);
    return l;
  }

  static public Boolean trueOrNull(Boolean b) {
    return eq(b, false) ? null : b;
  }

  static public ThreadLocal<Object> print_byThread() {
    synchronized (print_byThread_lock) {
      if (print_byThread == null)
        print_byThread = new ThreadLocal();
    }
    return print_byThread;
  }

  static public AutoCloseable tempInterceptPrint(F1<String, Boolean> f) {
    return tempSetThreadLocal(print_byThread(), f);
  }

  static final public Map<Class, _MethodCache> callOpt_cache = newDangerousWeakHashMap();

  static public Object callOpt_cached(Object o, String methodName, Object... args) {
    try {
      if (o == null)
        return null;
      if (o instanceof Class) {
        Class c = (Class) o;
        _MethodCache cache = callOpt_getCache(c);
        Method me = cache.findMethod(methodName, args);
        if (me == null || (me.getModifiers() & Modifier.STATIC) == 0)
          return null;
        return invokeMethod(me, null, args);
      } else {
        Class c = o.getClass();
        _MethodCache cache = callOpt_getCache(c);
        Method me = cache.findMethod(methodName, args);
        if (me == null)
          return null;
        return invokeMethod(me, o, args);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public _MethodCache callOpt_getCache(Class c) {
    _MethodCache cache = callOpt_cache.get(c);
    if (cache == null)
      callOpt_cache.put(c, cache = new _MethodCache(c));
    return cache;
  }

  static public boolean isStaticMethod(Method m) {
    return methodIsStatic(m);
  }

  static public <A, B> Map<A, B> newDangerousWeakHashMap() {
    return _registerDangerousWeakMap(synchroMap(new WeakHashMap()));
  }

  static public <A, B> Map<A, B> newDangerousWeakHashMap(Object initFunction) {
    return _registerDangerousWeakMap(synchroMap(new WeakHashMap()), initFunction);
  }

  static public Object invokeMethod(Method m, Object o, Object... args) {
    try {
      try {
        return m.invoke(o, args);
      } catch (InvocationTargetException e) {
        throw rethrow(getExceptionCause(e));
      } catch (IllegalArgumentException e) {
        throw new IllegalArgumentException(e.getMessage() + " - was calling: " + m + ", args: " + joinWithSpace(classNames(args)));
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public boolean call_checkArgs(Method m, Object[] args, boolean debug) {
    Class<?>[] types = m.getParameterTypes();
    if (types.length != l(args)) {
      if (debug)
        print("Bad parameter length: " + args.length + " vs " + types.length);
      return false;
    }
    for (int i = 0; i < types.length; i++) {
      Object arg = args[i];
      if (!(arg == null ? !types[i].isPrimitive() : isInstanceX(types[i], arg))) {
        if (debug)
          print("Bad parameter " + i + ": " + arg + " vs " + types[i]);
        return false;
      }
    }
    return true;
  }

  static public Field makeAccessible(Field f) {
    try {
      f.setAccessible(true);
    } catch (Throwable e) {
      vmBus_send("makeAccessible_error", e, f);
    }
    return f;
  }

  static public Method makeAccessible(Method m) {
    try {
      m.setAccessible(true);
    } catch (Throwable e) {
      vmBus_send("makeAccessible_error", e, m);
    }
    return m;
  }

  static public Constructor makeAccessible(Constructor c) {
    try {
      c.setAccessible(true);
    } catch (Throwable e) {
      vmBus_send("makeAccessible_error", e, c);
    }
    return c;
  }

  static public void _handleError(Error e) {
  }

  static public long lround(double d) {
    return Math.round(d);
  }

  static public long lround(Number n) {
    return lround(toDouble(n));
  }

  static public double msToNanos(double ms) {
    return ms * 1e6;
  }

  static public boolean emptyString(String s) {
    return s == null || s.length() == 0;
  }

  static public String getType(Object o) {
    return getClassName(o);
  }

  static public long getFileSize(String path) {
    return path == null ? 0 : new File(path).length();
  }

  static public long getFileSize(File f) {
    return f == null ? 0 : f.length();
  }

  static public int max(int a, int b) {
    return Math.max(a, b);
  }

  static public int max(int a, int b, int c) {
    return max(max(a, b), c);
  }

  static public long max(int a, long b) {
    return Math.max((long) a, b);
  }

  static public long max(long a, long b) {
    return Math.max(a, b);
  }

  static public double max(int a, double b) {
    return Math.max((double) a, b);
  }

  static public float max(float a, float b) {
    return Math.max(a, b);
  }

  static public double max(double a, double b) {
    return Math.max(a, b);
  }

  static public <A extends Comparable<A>> A max(Iterable<A> l) {
    A max = null;
    var it = iterator(l);
    if (it.hasNext()) {
      max = it.next();
      while (it.hasNext()) {
        A a = it.next();
        if (cmp(a, max) > 0)
          max = a;
      }
    }
    return max;
  }

  static public double max(double[] c) {
    if (c.length == 0)
      return Double.MIN_VALUE;
    double x = c[0];
    for (int i = 1; i < c.length; i++) x = Math.max(x, c[i]);
    return x;
  }

  static public float max(float[] c) {
    if (c.length == 0)
      return Float.MAX_VALUE;
    float x = c[0];
    for (int i = 1; i < c.length; i++) x = Math.max(x, c[i]);
    return x;
  }

  static public byte max(byte[] c) {
    byte x = -128;
    for (byte d : c) if (d > x)
      x = d;
    return x;
  }

  static public short max(short[] c) {
    short x = -0x8000;
    for (short d : c) if (d > x)
      x = d;
    return x;
  }

  static public int max(int[] c) {
    int x = Integer.MIN_VALUE;
    for (int d : c) if (d > x)
      x = d;
    return x;
  }

  static public <A extends Comparable<A>> A max(A a, A b) {
    return cmp(a, b) >= 0 ? a : b;
  }

  static volatile public boolean ping_pauseAll = false;

  static public int ping_sleep = 100;

  static volatile public boolean ping_anyActions = false;

  static public Map<Thread, Object> ping_actions = newWeakHashMap();

  static public ThreadLocal<Boolean> ping_isCleanUpThread = new ThreadLocal();

  static public boolean ping(PingSource pingSource) {
    return ping();
  }

  static public boolean ping() {
    newPing();
    if (ping_pauseAll || ping_anyActions)
      ping_impl(true);
    return true;
  }

  static public boolean ping_impl(boolean okInCleanUp) {
    try {
      if (ping_pauseAll && !isAWTThread()) {
        do Thread.sleep(ping_sleep); while (ping_pauseAll);
        return true;
      }
      if (ping_anyActions) {
        if (!okInCleanUp && !isTrue(ping_isCleanUpThread.get()))
          failIfUnlicensed();
        Object action = null;
        synchronized (ping_actions) {
          if (!ping_actions.isEmpty()) {
            action = ping_actions.get(currentThread());
            if (action instanceof Runnable)
              ping_actions.remove(currentThread());
            if (ping_actions.isEmpty())
              ping_anyActions = false;
          }
        }
        if (action instanceof Runnable)
          ((Runnable) action).run();
        else if (eq(action, "cancelled"))
          throw fail("Thread cancelled.");
      }
      return false;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public boolean isAWTThread() {
    if (isAndroid())
      return false;
    if (isHeadless())
      return false;
    return isAWTThread_awt();
  }

  static public boolean isAWTThread_awt() {
    return SwingUtilities.isEventDispatchThread();
  }

  static public Object sleepQuietly_monitor = new Object();

  static public void sleepQuietly() {
    try {
      assertFalse(isAWTThread());
      synchronized (sleepQuietly_monitor) {
        sleepQuietly_monitor.wait();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String roundBracket(String s) {
    return "(" + s + ")";
  }

  static public String roundBracket(Object s) {
    return roundBracket(str(s));
  }

  static public <A> ArrayList<A> cloneList(Iterable<A> l) {
    return l instanceof Collection ? cloneList((Collection) l) : asList(l);
  }

  static public <A> ArrayList<A> cloneList(Collection<A> l) {
    if (l == null)
      return new ArrayList();
    synchronized (collectionMutex(l)) {
      return new ArrayList<A>(l);
    }
  }

  static public String reverseString(String s) {
    return empty(s) ? s : new StringBuilder(s).reverse().toString();
  }

  static public String dropNumberPrefix(String s) {
    return dropFirst(s, indexOfNonDigit(s));
  }

  static public String shortClassName(Object o) {
    if (o == null)
      return null;
    Class c = o instanceof Class ? (Class) o : o.getClass();
    String name = c.getName();
    return shortenClassName(name);
  }

  static public void swingAndWait(Runnable r) {
    try {
      if (isAWTThread())
        r.run();
      else {
        r = addThreadInfoToRunnable(r);
        executingSwingCode(r);
        EventQueue.invokeAndWait(r);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Object swingAndWait(Object f) {
    if (isAWTThread())
      return callF(f);
    else {
      Var result = new Var();
      swingAndWait(new Runnable() {

        public void run() {
          try {
            result.set(callF(f));
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "result.set(callF(f));";
        }
      });
      return result.get();
    }
  }

  static public <A extends Component> A revalidate(final A c) {
    if (c == null || !c.isShowing())
      return c;
    {
      swing(() -> {
        c.revalidate();
        c.repaint();
      });
    }
    return c;
  }

  static public void revalidate(JFrame f) {
    revalidate((Component) f);
  }

  static public void revalidate(JInternalFrame f) {
    revalidate((Component) f);
  }

  static public String strOrEmpty(Object o) {
    return o == null ? "" : str(o);
  }

  static public Object first(Object list) {
    return first((Iterable) list);
  }

  static public <A> A first(List<A> list) {
    return empty(list) ? null : list.get(0);
  }

  static public <A> A first(A[] bla) {
    return bla == null || bla.length == 0 ? null : bla[0];
  }

  static public <A, B> Pair<A, B> first(Map<A, B> map) {
    return mapEntryToPair(first(entrySet(map)));
  }

  static public <A, B> Pair<A, B> first(MultiMap<A, B> mm) {
    if (mm == null)
      return null;
    var e = first(mm.data.entrySet());
    if (e == null)
      return null;
    return pair(e.getKey(), first(e.getValue()));
  }

  static public <A> A first(IterableIterator<A> i) {
    return first((Iterator<A>) i);
  }

  static public <A> A first(Iterator<A> i) {
    return i == null || !i.hasNext() ? null : i.next();
  }

  static public <A> A first(Iterable<A> i) {
    if (i == null)
      return null;
    Iterator<A> it = i.iterator();
    return it.hasNext() ? it.next() : null;
  }

  static public Character first(String s) {
    return empty(s) ? null : s.charAt(0);
  }

  static public Character first(CharSequence s) {
    return empty(s) ? null : s.charAt(0);
  }

  static public <A, B> A first(Pair<A, B> p) {
    return p == null ? null : p.a;
  }

  static public <A, B, C> A first(T3<A, B, C> t) {
    return t == null ? null : t.a;
  }

  static public Byte first(byte[] l) {
    return empty(l) ? null : l[0];
  }

  static public Double first(double[] l) {
    return empty(l) ? null : l[0];
  }

  static public int first(IntBuffer buf) {
    return buf.get(0);
  }

  static public <A> A first(A[] l, IF1<A, Boolean> pred) {
    return firstThat(l, pred);
  }

  static public <A> A first(Iterable<A> l, IF1<A, Boolean> pred) {
    return firstThat(l, pred);
  }

  static public <A> A first(IF1<A, Boolean> pred, Iterable<A> l) {
    return firstThat(pred, l);
  }

  static public <A> A first(AppendableChain<A> a) {
    return a == null ? null : a.element;
  }

  static public <A> A first(IMultiSet<A> a) {
    return a == null ? null : first(a.keySet());
  }

  static public int[] emptyIntArray_a = new int[0];

  static public int[] emptyIntArray() {
    return emptyIntArray_a;
  }

  static public char[] emptyCharArray = new char[0];

  static public char[] emptyCharArray() {
    return emptyCharArray;
  }

  static public double[] emptyDoubleArray = new double[0];

  static public double[] emptyDoubleArray() {
    return emptyDoubleArray;
  }

  static public float[] emptyFloatArray = new float[0];

  static public float[] emptyFloatArray() {
    return emptyFloatArray;
  }

  static public Map emptyMap() {
    return new HashMap();
  }

  static public Object[] emptyObjectArray_a = new Object[0];

  static public Object[] emptyObjectArray() {
    return emptyObjectArray_a;
  }

  static public Symbol emptySymbol_value;

  static public Symbol emptySymbol() {
    if (emptySymbol_value == null)
      emptySymbol_value = symbol("");
    return emptySymbol_value;
  }

  static public BufferedImage newBufferedImage(int w, int h) {
    return new BufferedImage(w, h, BufferedImage.TYPE_INT_RGB);
  }

  static public BufferedImage newBufferedImage(int w, int h, RGB rgb) {
    return newBufferedImage(w, h, rgb.getColor());
  }

  static public BufferedImage newBufferedImage(int w, int h, Color color) {
    BufferedImage img = newBufferedImage(w, h);
    Graphics2D g = img.createGraphics();
    g.setColor(or(color, Color.white));
    g.fillRect(0, 0, w, h);
    return img;
  }

  static public BufferedImage newBufferedImage(Pt p, Color color) {
    return newBufferedImage(p.x, p.y, color);
  }

  static public BufferedImage newBufferedImage(WidthAndHeight size, Color color) {
    return newBufferedImage(size.w(), size.h(), color);
  }

  static public BufferedImage newBufferedImage(int w, int h, int[] pixels) {
    return intArrayToBufferedImage(pixels, w, h);
  }

  static public BufferedImageWithMeta intArrayToBufferedImage(int[] pixels, int w) {
    return intArrayToBufferedImage(pixels, w, pixels.length / w);
  }

  static public BufferedImageWithMeta intArrayToBufferedImage(int[] pixels, int w, int h) {
    if (w == 0 || h == 0)
      return null;
    int[] bitMasks = new int[] { 0xFF0000, 0xFF00, 0xFF, 0xFF000000 };
    SinglePixelPackedSampleModel sm = new SinglePixelPackedSampleModel(DataBuffer.TYPE_INT, w, h, bitMasks);
    DataBufferInt db = new DataBufferInt(pixels, pixels.length);
    WritableRaster wr = Raster.createWritableRaster(sm, db, new Point());
    return new BufferedImageWithMeta(ColorModel.getRGBdefault(), wr, false, null);
  }

  static public BufferedImageWithMeta intArrayToBufferedImage(int w, int... pixels) {
    return intArrayToBufferedImage(pixels, w);
  }

  static public Random defaultRandomizer() {
    return defaultRandomGenerator();
  }

  static public Random defaultRandomGenerator() {
    {
      Random r = customRandomizerForThisThread();
      if (r != null)
        return r;
    }
    return ThreadLocalRandom.current();
  }

  static public Random getRandomizer(Random r) {
    return r != null ? r : defaultRandomGenerator();
  }

  static public <A> A oneOf(List<A> l) {
    if (empty(l))
      return null;
    int n = l.size();
    return n == 1 ? first(l) : l.get(defaultRandomizer().nextInt(n));
  }

  static public char oneOf(String s) {
    return empty(s) ? '?' : s.charAt(random(l(s)));
  }

  static public <A> A oneOf(A... l) {
    return oneOf(asList(l));
  }

  static public <A> A collectionGet(Collection<A> c, int idx) {
    if (c == null || idx < 0 || idx >= l(c))
      return null;
    if (c instanceof List)
      return listGet((List<A>) c, idx);
    Iterator<A> it = c.iterator();
    for (int i = 0; i < idx; i++) if (it.hasNext())
      it.next();
    else
      return null;
    return it.hasNext() ? it.next() : null;
  }

  static public <A, B> Pair<A, B> entryToPair(Map.Entry<A, B> e) {
    return mapEntryToPair(e);
  }

  static public <A, B> Set<Map.Entry<A, B>> entries(Map<A, B> map) {
    return _entrySet(map);
  }

  static public int boolToInt(boolean b) {
    return b ? 1 : 0;
  }

  static public class getOpt_Map extends WeakHashMap {

    public getOpt_Map() {
      if (getOpt_special == null)
        getOpt_special = new HashMap();
      clear();
    }

    public void clear() {
      super.clear();
      put(Class.class, getOpt_special);
      put(String.class, getOpt_special);
    }
  }

  static final public Map<Class, HashMap<String, Field>> getOpt_cache = _registerDangerousWeakMap(synchroMap(new getOpt_Map()));

  static public HashMap getOpt_special;

  static public Map<String, Field> getOpt_getFieldMap(Object o) {
    Class c = _getClass(o);
    HashMap<String, Field> map = getOpt_cache.get(c);
    if (map == null)
      map = getOpt_makeCache(c);
    return map;
  }

  static public Object getOpt_cached(Object o, String field) {
    try {
      if (o == null)
        return null;
      Map<String, Field> map = getOpt_getFieldMap(o);
      if (map == getOpt_special) {
        if (o instanceof Class)
          return getOpt((Class) o, field);
        if (o instanceof Map)
          return ((Map) o).get(field);
      }
      Field f = map.get(field);
      if (f != null)
        return f.get(o);
      if (o instanceof DynamicObject)
        return syncMapGet2(((DynamicObject) o).fieldValues, field);
      return null;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public HashMap<String, Field> getOpt_makeCache(Class c) {
    HashMap<String, Field> map;
    if (isSubtypeOf(c, Map.class))
      map = getOpt_special;
    else {
      map = new HashMap();
      if (!reflection_classesNotToScan().contains(c.getName())) {
        Class _c = c;
        do {
          for (Field f : _c.getDeclaredFields()) {
            makeAccessible(f);
            String name = f.getName();
            if (!map.containsKey(name))
              map.put(name, f);
          }
          _c = _c.getSuperclass();
        } while (_c != null);
      }
    }
    if (getOpt_cache != null)
      getOpt_cache.put(c, map);
    return map;
  }

  static public Field getOpt_findField(Class<?> c, String field) {
    Class _c = c;
    do {
      for (Field f : _c.getDeclaredFields()) if (f.getName().equals(field))
        return f;
      _c = _c.getSuperclass();
    } while (_c != null);
    return null;
  }

  static public String actualUserHome_value;

  static public String actualUserHome() {
    if (actualUserHome_value == null) {
      if (isAndroid())
        actualUserHome_value = "/storage/emulated/0/";
      else
        actualUserHome_value = System.getProperty("user.home");
    }
    return actualUserHome_value;
  }

  static public File actualUserHome(String sub) {
    return newFile(new File(actualUserHome()), sub);
  }

  static public Rect toRect(Rectangle r) {
    return r == null ? null : new Rect(r);
  }

  static public Rect toRect(RectangularShape r) {
    return r == null ? null : toRect(r.getBounds());
  }

  static public Rect toRect(DoubleRect r) {
    if (r == null)
      return null;
    int x = iround(r.x), y = iround(r.y);
    return new Rect(x, y, iround(r.x2()) - x, iround(r.y2()) - y);
  }

  static public Rect toRect(Rect r) {
    return r;
  }

  static public <A> List<A> immutableEmptyList() {
    return Collections.emptyList();
  }

  static public byte[] emptyByteArray_a = new byte[0];

  static public byte[] emptyByteArray() {
    return emptyByteArray_a;
  }

  static public short[] emptyShortArray = new short[0];

  static public short[] emptyShortArray() {
    return emptyShortArray;
  }

  static public <A, B> Map<A, B> immutableEmptyMap() {
    return Collections.emptyMap();
  }

  static public String shorten_str(Object o) {
    return shorten(str(o));
  }

  static public String shorten_str(Object o, int max) {
    return shorten(str(o), max);
  }

  static public String shorten_str(int max, Object o) {
    return shorten_str(o, max);
  }

  static public <A> int iteratorCount_int_close(Iterator<A> i) {
    try {
      int n = 0;
      if (i != null)
        while (i.hasNext()) {
          i.next();
          ++n;
        }
      if (i instanceof AutoCloseable)
        ((AutoCloseable) i).close();
      return n;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public int min(int a, int b) {
    return Math.min(a, b);
  }

  static public long min(long a, long b) {
    return Math.min(a, b);
  }

  static public float min(float a, float b) {
    return Math.min(a, b);
  }

  static public float min(float a, float b, float c) {
    return min(min(a, b), c);
  }

  static public double min(double a, double b) {
    return Math.min(a, b);
  }

  static public double min(double[] c) {
    double x = Double.MAX_VALUE;
    for (double d : c) x = Math.min(x, d);
    return x;
  }

  static public float min(float[] c) {
    float x = Float.MAX_VALUE;
    for (float d : c) x = Math.min(x, d);
    return x;
  }

  static public byte min(byte[] c) {
    byte x = 127;
    for (byte d : c) if (d < x)
      x = d;
    return x;
  }

  static public short min(short[] c) {
    short x = 0x7FFF;
    for (short d : c) if (d < x)
      x = d;
    return x;
  }

  static public int min(int[] c) {
    int x = Integer.MAX_VALUE;
    for (int d : c) if (d < x)
      x = d;
    return x;
  }

  static public <A extends Comparable<A>> A min(A a, A b) {
    return cmp(a, b) <= 0 ? a : b;
  }

  static public int strL(String s) {
    return s == null ? 0 : s.length();
  }

  static public int lCharSequence(CharSequence s) {
    return s == null ? 0 : s.length();
  }

  static public int[] subIntArray(int[] b, int start) {
    return subIntArray(b, start, l(b));
  }

  static public int[] subIntArray(int[] b, int start, int end) {
    start = max(start, 0);
    end = min(end, l(b));
    if (start == 0 && end == l(b))
      return b;
    if (start >= end)
      return new int[0];
    int[] x = new int[end - start];
    System.arraycopy(b, start, x, 0, end - start);
    return x;
  }

  static public int[] subIntArray(int[] a, IntRange r) {
    return r == null ? null : subIntArray(a, r.start, r.end);
  }

  static public short[] subShortArray(short[] b, int start, int end) {
    start = max(start, 0);
    end = min(end, l(b));
    if (start == 0 && end == l(b))
      return b;
    if (start >= end)
      return new short[0];
    short[] x = new short[end - start];
    System.arraycopy(b, start, x, 0, end - start);
    return x;
  }

  static public byte[] subByteArray(byte[] b, int start) {
    return subByteArray(b, start, l(b));
  }

  static public byte[] subByteArray(byte[] b, int start, int end) {
    start = max(start, 0);
    end = min(end, l(b));
    if (start == 0 && end == l(b))
      return b;
    if (start >= end)
      return new byte[0];
    byte[] x = new byte[end - start];
    System.arraycopy(b, start, x, 0, end - start);
    return x;
  }

  static public byte[] subByteArray(byte[] b, IntRange r) {
    return r == null ? null : subByteArray(b, r.start, r.end);
  }

  static public double[] subDoubleArray(double[] b, int start) {
    return subDoubleArray(b, start, l(b));
  }

  static public double[] subDoubleArray(double[] b, int start, int end) {
    start = max(start, 0);
    end = min(end, l(b));
    if (start == 0 && end == l(b))
      return b;
    if (start >= end)
      return new double[0];
    double[] x = new double[end - start];
    System.arraycopy(b, start, x, 0, end - start);
    return x;
  }

  static public boolean isTrue(Object o) {
    if (o instanceof Boolean)
      return ((Boolean) o).booleanValue();
    if (o == null)
      return false;
    if (o instanceof ThreadLocal)
      return isTrue(((ThreadLocal) o).get());
    throw fail(getClassName(o));
  }

  static public boolean isTrue(Boolean b) {
    return b != null && b.booleanValue();
  }

  static public boolean isEmpty(Collection c) {
    return c == null || c.isEmpty();
  }

  static public boolean isEmpty(File f) {
    return f == null || f.length() == 0;
  }

  static public boolean isEmpty(CharSequence s) {
    return s == null || s.length() == 0;
  }

  static public boolean isEmpty(Object[] a) {
    return a == null || a.length == 0;
  }

  static public boolean isEmpty(byte[] a) {
    return a == null || a.length == 0;
  }

  static public boolean isEmpty(Map map) {
    return map == null || map.isEmpty();
  }

  static public boolean isEmpty(AppendableChain c) {
    return c == null;
  }

  static public boolean isEmpty(IntSize l) {
    return l == null || l.size() == 0;
  }

  static public boolean endsWithLetterOrDigit(String s) {
    return s != null && s.length() > 0 && Character.isLetterOrDigit(s.charAt(s.length() - 1));
  }

  static public <A> A or(A a, A b) {
    return a != null ? a : b;
  }

  static volatile public PersistableThrowable lastException_lastException;

  static public PersistableThrowable lastException() {
    return lastException_lastException;
  }

  static public void lastException(Throwable e) {
    lastException_lastException = persistableThrowable(e);
  }

  static public String hideCredentials(URL url) {
    return url == null ? null : hideCredentials(str(url));
  }

  static public String hideCredentials(String url) {
    try {
      if (startsWithOneOf(url, "http://", "https://") && isAGIBlueDomain(hostNameFromURL(url)))
        return url;
    } catch (Throwable e) {
      print("HideCredentials", e);
    }
    return url.replaceAll("([&?])(_pass|key|cookie)=[^&\\s\"]*", "$1$2=<hidden>");
  }

  static public String hideCredentials(Object o) {
    return hideCredentials(str(o));
  }

  static public void rotateStringBuffer(StringBuffer buf, int max) {
    try {
      if (buf == null)
        return;
      synchronized (buf) {
        if (buf.length() <= max)
          return;
        try {
          int newLength = max / 2;
          int ofs = buf.length() - newLength;
          String newString = buf.substring(ofs);
          buf.setLength(0);
          buf.append("[...] ").append(newString);
        } catch (Exception e) {
          buf.setLength(0);
        }
        buf.trimToSize();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void rotateStringBuilder(StringBuilder buf, int max) {
    try {
      if (buf == null)
        return;
      synchronized (buf) {
        if (buf.length() <= max)
          return;
        try {
          int newLength = max / 2;
          int ofs = buf.length() - newLength;
          String newString = buf.substring(ofs);
          buf.setLength(0);
          buf.append("[...] ").append(newString);
        } catch (Exception e) {
          buf.setLength(0);
        }
        buf.trimToSize();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Object vmBus_wrapArgs(Object... args) {
    return empty(args) ? null : l(args) == 1 ? args[0] : args;
  }

  static public void pcallFAll_minimalExceptionHandling(Collection l, Object... args) {
    if (l != null)
      for (Object f : cloneList(l)) {
        ping();
        pcallF_minimalExceptionHandling(f, args);
      }
  }

  static public void pcallFAll_minimalExceptionHandling(Iterator it, Object... args) {
    while (it.hasNext()) {
      ping();
      pcallF_minimalExceptionHandling(it.next(), args);
    }
  }

  static public Set vm_busListeners_live_cache;

  static public Set vm_busListeners_live() {
    if (vm_busListeners_live_cache == null)
      vm_busListeners_live_cache = vm_busListeners_live_load();
    return vm_busListeners_live_cache;
  }

  static public Set vm_busListeners_live_load() {
    return vm_generalIdentityHashSet("busListeners");
  }

  static public Map<String, Set> vm_busListenersByMessage_live_cache;

  static public Map<String, Set> vm_busListenersByMessage_live() {
    if (vm_busListenersByMessage_live_cache == null)
      vm_busListenersByMessage_live_cache = vm_busListenersByMessage_live_load();
    return vm_busListenersByMessage_live_cache;
  }

  static public Map<String, Set> vm_busListenersByMessage_live_load() {
    return vm_generalHashMap("busListenersByMessage");
  }

  static public List<String> mapToLines(Map map) {
    List<String> l = new ArrayList();
    for (Object key : keys(map)) l.add(str(key) + " = " + str(map.get(key)));
    return l;
  }

  static public String mapToLines(Map map, Object f) {
    return lines(map(map, f));
  }

  static public String mapToLines(Object f, Map map) {
    return lines(map(map, f));
  }

  static public String mapToLines(Object f, Iterable l) {
    return lines(map(f, l));
  }

  static public <A> String mapToLines(Iterable<A> l, IF1<A, String> f) {
    return mapToLines((Object) f, l);
  }

  static public <A> String mapToLines(IF1<A, String> f, Iterable<A> l) {
    return mapToLines((Object) f, l);
  }

  static public <A, B> String mapToLines(Map<A, B> map, IF2<A, B, String> f) {
    return lines(map(map, f));
  }

  static public <A> String mapToLines(IF1<A, String> f, A data1, A... moreData) {
    return lines(map(f, data1, moreData));
  }

  static public <A> List<A> wrapAsList(A[] a) {
    return wrapArrayAsList(a);
  }

  static public String fromLines(Iterable lines) {
    StringBuilder buf = new StringBuilder();
    if (lines != null)
      for (Object line : lines) buf.append(str(line)).append('\n');
    return buf.toString();
  }

  static public String fromLines(String... lines) {
    return fromLines(asList(lines));
  }

  static public IterableIterator<String> toLines(File f) {
    return linesFromFile(f);
  }

  static public List<String> toLines(String s) {
    List<String> lines = new ArrayList<String>();
    if (s == null)
      return lines;
    int start = 0;
    while (true) {
      int i = toLines_nextLineBreak(s, start);
      if (i < 0) {
        if (s.length() > start)
          lines.add(s.substring(start));
        break;
      }
      lines.add(s.substring(start, i));
      if (s.charAt(i) == '\r' && i + 1 < s.length() && s.charAt(i + 1) == '\n')
        i += 2;
      else
        ++i;
      start = i;
    }
    return lines;
  }

  static public int toLines_nextLineBreak(String s, int start) {
    int n = s.length();
    for (int i = start; i < n; i++) {
      char c = s.charAt(i);
      if (c == '\r' || c == '\n')
        return i;
    }
    return -1;
  }

  static public <A, B extends A> void addAll(Collection<A> c, Iterable<B> b) {
    if (c != null && b != null)
      for (A a : b) c.add(a);
  }

  static public <A, B extends A> boolean addAll(Collection<A> c, Collection<B> b) {
    return c != null && b != null && c.addAll(b);
  }

  static public <A, B extends A> boolean addAll(Collection<A> c, B... b) {
    return c != null && b != null && c.addAll(Arrays.asList(b));
  }

  static public <A, B> Map<A, B> addAll(Map<A, B> a, Map<? extends A, ? extends B> b) {
    if (a != null && b != null)
      a.putAll(b);
    return a;
  }

  static public <A extends Container> A addAll(A c, Collection<? extends Component> components) {
    return addComponents(c, components);
  }

  static public <A extends Container> A addAll(A c, Component... components) {
    return addComponents(c, components);
  }

  static public <A> AutoCloseable tempSetThreadLocal(final ThreadLocal<A> tl, A a) {
    if (tl == null)
      return null;
    final A prev = setThreadLocal(tl, a);
    return new AutoCloseable() {

      public String toString() {
        return "tl.set(prev);";
      }

      public void close() throws Exception {
        tl.set(prev);
      }
    };
  }

  static public boolean methodIsStatic(Method m) {
    return (m.getModifiers() & Modifier.STATIC) != 0;
  }

  static public List<Pair> _registerDangerousWeakMap_preList;

  static public <A> A _registerDangerousWeakMap(A map) {
    return _registerDangerousWeakMap(map, null);
  }

  static public <A> A _registerDangerousWeakMap(A map, Object init) {
    callF(init, map);
    if (init instanceof String) {
      final String f = (String) init;
      init = new VF1<Map>() {

        public void get(Map map) {
          try {
            callMC(f, map);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "callMC(f, map)";
        }
      };
    }
    if (javax() == null) {
      if (_registerDangerousWeakMap_preList == null)
        _registerDangerousWeakMap_preList = synchroList();
      _registerDangerousWeakMap_preList.add(pair(map, init));
      return map;
    }
    call(javax(), "_registerDangerousWeakMap", map, init);
    return map;
  }

  static public void _onLoad_registerDangerousWeakMap() {
    assertNotNull(javax());
    if (_registerDangerousWeakMap_preList == null)
      return;
    for (Pair p : _registerDangerousWeakMap_preList) _registerDangerousWeakMap(p.a, p.b);
    _registerDangerousWeakMap_preList = null;
  }

  static public Map synchroMap() {
    return synchroHashMap();
  }

  static public <A, B> Map<A, B> synchroMap(Map<A, B> map) {
    return new SynchronizedMap(map);
  }

  static public Throwable getExceptionCause(Throwable e) {
    Throwable c = e.getCause();
    return c != null ? c : e;
  }

  static public String joinWithSpace(Iterable c) {
    return join(" ", c);
  }

  static public String joinWithSpace(Object... c) {
    return join(" ", c);
  }

  static public List<String> classNames(Collection l) {
    return getClassNames(l);
  }

  static public List<String> classNames(Object[] l) {
    return getClassNames(asList(l));
  }

  static public double toDouble(Object o) {
    if (o instanceof Number)
      return ((Number) o).doubleValue();
    if (o instanceof BigInteger)
      return ((BigInteger) o).doubleValue();
    if (o instanceof String)
      return parseDouble((String) o);
    if (o == null)
      return 0.0;
    throw fail(o);
  }

  static public <A> Iterator<A> iterator(Iterable<A> c) {
    return c == null ? emptyIterator() : c.iterator();
  }

  static public <A, B> Map<A, B> newWeakHashMap() {
    return _registerWeakMap(synchroMap(new WeakHashMap()));
  }

  static public void newPing() {
    var tl = newPing_actionTL();
    Runnable action = tl == null ? null : tl.get();
    {
      if (action != null)
        action.run();
    }
  }

  static public void failIfUnlicensed() {
    assertTrue("license off", licensed());
  }

  static public Thread currentThread() {
    return Thread.currentThread();
  }

  static public int isAndroid_flag;

  static public boolean isAndroid() {
    if (isAndroid_flag == 0)
      isAndroid_flag = System.getProperty("java.vendor").toLowerCase().indexOf("android") >= 0 ? 1 : -1;
    return isAndroid_flag > 0;
  }

  static public Boolean isHeadless_cache;

  static public boolean isHeadless() {
    if (isHeadless_cache != null)
      return isHeadless_cache;
    if (isAndroid())
      return isHeadless_cache = true;
    if (GraphicsEnvironment.isHeadless())
      return isHeadless_cache = true;
    try {
      SwingUtilities.isEventDispatchThread();
      return isHeadless_cache = false;
    } catch (Throwable e) {
      return isHeadless_cache = true;
    }
  }

  static public void assertFalse(Object o) {
    if (!(eq(o, false)))
      throw fail(str(o));
  }

  static public boolean assertFalse(boolean b) {
    if (b)
      throw fail("oops");
    return b;
  }

  static public boolean assertFalse(String msg, boolean b) {
    if (b)
      throw fail(msg);
    return b;
  }

  static public Object collectionMutex(List l) {
    return l;
  }

  static public Object collectionMutex(Object o) {
    if (o instanceof List)
      return o;
    String c = className(o);
    return o;
  }

  static public String[] dropFirst(int n, String[] a) {
    return drop(n, a);
  }

  static public String[] dropFirst(String[] a) {
    return drop(1, a);
  }

  static public Object[] dropFirst(Object[] a) {
    return drop(1, a);
  }

  static public <A> List<A> dropFirst(List<A> l) {
    return dropFirst(1, l);
  }

  static public <A> List<A> dropFirst(int n, Iterable<A> i) {
    return dropFirst(n, toList(i));
  }

  static public <A> List<A> dropFirst(Iterable<A> i) {
    return dropFirst(toList(i));
  }

  static public <A> List<A> dropFirst(int n, List<A> l) {
    return n <= 0 ? l : new ArrayList(l.subList(Math.min(n, l.size()), l.size()));
  }

  static public <A> List<A> dropFirst(List<A> l, int n) {
    return dropFirst(n, l);
  }

  static public String dropFirst(int n, String s) {
    return substring(s, n);
  }

  static public String dropFirst(String s, int n) {
    return substring(s, n);
  }

  static public String dropFirst(String s) {
    return substring(s, 1);
  }

  static public <A> Chain<A> dropFirst(Chain<A> c) {
    return c == null ? null : c.next;
  }

  static public int indexOfNonDigit(String s) {
    int n = l(s);
    for (int i = 0; i < n; i++) if (!isDigit(s.charAt(i)))
      return i;
    return -1;
  }

  static public String shortenClassName(String name) {
    if (name == null)
      return null;
    int i = lastIndexOf(name, "$");
    if (i < 0)
      i = lastIndexOf(name, ".");
    return i < 0 ? name : substring(name, i + 1);
  }

  static public Runnable addThreadInfoToRunnable(final Object r) {
    final Object info = _threadInfo();
    return info == null ? asRunnable(r) : new Runnable() {

      public void run() {
        try {
          _inheritThreadInfo(info);
          callF(r);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "_inheritThreadInfo(info); callF(r);";
      }
    };
  }

  static transient public Set<IVF1<Runnable>> onExecutingSwingCode;

  public static void onExecutingSwingCode(IVF1<Runnable> f) {
    onExecutingSwingCode = createOrAddToSyncLinkedHashSet(onExecutingSwingCode, f);
  }

  public static void removeExecutingSwingCodeListener(IVF1<Runnable> f) {
    main.remove(onExecutingSwingCode, f);
  }

  public static void executingSwingCode(Runnable code) {
    if (onExecutingSwingCode != null)
      for (var listener : onExecutingSwingCode) pcallF_typed(listener, code);
  }

  static public <A, B> Pair<A, B> mapEntryToPair(Map.Entry<A, B> e) {
    return e == null ? null : pair(e.getKey(), e.getValue());
  }

  static public <A, B> Set<Map.Entry<A, B>> entrySet(Map<A, B> map) {
    return _entrySet(map);
  }

  static public <A, B> Pair<A, B> pair(A a, B b) {
    return new Pair(a, b);
  }

  static public <A> Pair<A, A> pair(A a) {
    return new Pair(a, a);
  }

  static public <A> A firstThat(Iterable<A> l, IF1<A, Boolean> pred) {
    for (A a : unnullForIteration(l)) if (pred.get(a))
      return a;
    return null;
  }

  static public <A> A firstThat(A[] l, IF1<A, Boolean> pred) {
    for (A a : unnullForIteration(l)) if (pred.get(a))
      return a;
    return null;
  }

  static public <A> A firstThat(IF1<A, Boolean> pred, Iterable<A> l) {
    return firstThat(l, pred);
  }

  static public <A> A firstThat(IF1<A, Boolean> pred, A[] l) {
    return firstThat(l, pred);
  }

  static public WeakHasherMap<Symbol, Boolean> symbol_map = new WeakHasherMap(new Hasher<Symbol>() {

    public int hashCode(Symbol symbol) {
      return symbol.text.hashCode();
    }

    public boolean equals(Symbol a, Symbol b) {
      if (a == null)
        return b == null;
      return b != null && eq(a.text, b.text);
    }
  });

  static public Symbol symbol(String s) {
    if (s == null)
      return null;
    synchronized (symbol_map) {
      Symbol symbol = new Symbol(s, true);
      Symbol existingSymbol = symbol_map.findKey(symbol);
      if (existingSymbol == null)
        symbol_map.put(existingSymbol = symbol, true);
      return existingSymbol;
    }
  }

  static public Symbol symbol(CharSequence s) {
    if (s == null)
      return null;
    if (s instanceof Symbol)
      return (Symbol) s;
    if (s instanceof String)
      return symbol((String) s);
    return symbol(str(s));
  }

  static public Symbol symbol(Object o) {
    return symbol((CharSequence) o);
  }

  static public Random customRandomizerForThisThread() {
    return customRandomizerForThisThread_tl().get();
  }

  static public <A> A listGet(List<A> l, int idx) {
    return l != null && idx >= 0 && idx < l.size() ? l.get(idx) : null;
  }

  static public <A, B> Set<Map.Entry<A, B>> _entrySet(Map<A, B> map) {
    return map == null ? Collections.EMPTY_SET : map.entrySet();
  }

  static public void clear(Collection c) {
    if (c != null)
      c.clear();
  }

  static public void clear(Map map) {
    if (map != null)
      map.clear();
  }

  static public <A, B> void put(Map<A, B> map, A a, B b) {
    if (map != null)
      map.put(a, b);
  }

  static public <A> void put(List<A> l, int i, A a) {
    if (l != null && i >= 0 && i < l(l))
      l.set(i, a);
  }

  static public Class<?> _getClass(String name) {
    try {
      return Class.forName(name);
    } catch (ClassNotFoundException e) {
      return null;
    }
  }

  static public Class _getClass(Object o) {
    return o == null ? null : o instanceof Class ? (Class) o : o.getClass();
  }

  static public Class _getClass(Object realm, String name) {
    try {
      return classLoaderForObject(realm).loadClass(classNameToVM(name));
    } catch (ClassNotFoundException e) {
      return null;
    }
  }

  static public <A, B> B syncMapGet2(Map<A, B> map, A a) {
    if (map == null)
      return null;
    synchronized (collectionMutex(map)) {
      return map.get(a);
    }
  }

  static public <A, B> B syncMapGet2(A a, Map<A, B> map) {
    return syncMapGet2(map, a);
  }

  static public boolean isSubtypeOf(Class a, Class b) {
    return a != null && b != null && b.isAssignableFrom(a);
  }

  static public Set<String> reflection_classesNotToScan_value = litset("jdk.internal.loader.URLClassPath");

  static public Set<String> reflection_classesNotToScan() {
    return reflection_classesNotToScan_value;
  }

  static public int iround(double d) {
    return (int) Math.round(d);
  }

  static public int iround(Number n) {
    return iround(toDouble(n));
  }

  static public int shorten_default = 100;

  static public String shorten(CharSequence s) {
    return shorten(s, shorten_default);
  }

  static public String shorten(CharSequence s, int max) {
    return shorten(s, max, "...");
  }

  static public String shorten(CharSequence s, int max, String shortener) {
    if (s == null)
      return "";
    if (max < 0)
      return str(s);
    return s.length() <= max ? str(s) : subCharSequence(s, 0, min(s.length(), max - l(shortener))) + shortener;
  }

  static public String shorten(int max, CharSequence s) {
    return shorten(s, max);
  }

  static public PersistableThrowable persistableThrowable(Throwable e) {
    return e == null ? null : new PersistableThrowable(e);
  }

  static public boolean startsWithOneOf(String s, String... l) {
    for (String x : l) if (startsWith(s, x))
      return true;
    return false;
  }

  static public boolean startsWithOneOf(String s, Matches m, String... l) {
    for (String x : l) if (startsWith(s, x, m))
      return true;
    return false;
  }

  static public boolean isAGIBlueDomain(String domain) {
    return domainIsUnder(domain, theAGIBlueDomain());
  }

  static public String hostNameFromURL(String url) {
    try {
      return empty(url) ? null : new URL(url).getHost();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Object pcallF_minimalExceptionHandling(Object f, Object... args) {
    try {
      return callFunction(f, args);
    } catch (Throwable e) {
      System.out.println(getStackTrace(e));
      _storeException(e);
    }
    return null;
  }

  static public Set vm_generalIdentityHashSet(Object name) {
    synchronized (vm_generalMap()) {
      Set set = (Set) (vm_generalMap_get(name));
      if (set == null)
        vm_generalMap_put(name, set = syncIdentityHashSet());
      return set;
    }
  }

  static public Map vm_generalHashMap(Object name) {
    synchronized (vm_generalMap()) {
      Map m = (Map) (vm_generalMap_get(name));
      if (m == null)
        vm_generalMap_put(name, m = syncHashMap());
      return m;
    }
  }

  static public <A, B> Set<A> keys(Map<A, B> map) {
    return map == null ? new HashSet() : map.keySet();
  }

  static public Set keys(Object map) {
    return keys((Map) map);
  }

  static public <A> Set<A> keys(MultiSet<A> ms) {
    return ms.keySet();
  }

  static public <A, B> Set<A> keys(IMultiMap<A, B> mm) {
    return mm.keySet();
  }

  static public List map(Iterable l, Object f) {
    return map(f, l);
  }

  static public List map(Object f, Iterable l) {
    List x = emptyList(l);
    if (l != null)
      for (Object o : l) {
        ping();
        x.add(callF(f, o));
      }
    return x;
  }

  static public List map(Map map, Object f) {
    List x = new ArrayList();
    if (map != null)
      for (Object _e : map.entrySet()) {
        ping();
        Map.Entry e = (Map.Entry) _e;
        x.add(callF(f, e.getKey(), e.getValue()));
      }
    return x;
  }

  static public List map(Object f, Object[] l) {
    return map(f, asList(l));
  }

  static public List map(Object[] l, Object f) {
    return map(f, l);
  }

  static public List map(Object f, Map map) {
    return map(map, f);
  }

  static public <A, B> List<B> map(Iterable<A> l, F1<A, B> f) {
    return map(f, l);
  }

  static public <A, B> List<B> map(F1<A, B> f, Iterable<A> l) {
    List x = emptyList(l);
    if (l != null)
      for (A o : l) {
        ping();
        x.add(callF(f, o));
      }
    return x;
  }

  static public <A, B> List<B> map(IF1<A, B> f, Iterable<A> l) {
    return map(l, f);
  }

  static public <A, B> List<B> map(Iterable<A> l, IF1<A, B> f) {
    List x = emptyList(l);
    if (l != null) {
      var it = l.iterator();
      if (it.hasNext()) {
        var pingSource = pingSource();
        do {
          ping(pingSource);
          x.add(f.get(it.next()));
        } while (it.hasNext());
      }
    }
    return x;
  }

  static public <A, B> List<B> map(IF1<A, B> f, A[] l) {
    return map(l, f);
  }

  static public <A, B> List<B> map(A[] l, IF1<A, B> f) {
    List x = emptyList(l);
    if (l != null)
      for (A o : l) {
        ping();
        x.add(f.get(o));
      }
    return x;
  }

  static public <A, B, C> List<C> map(Map<A, B> map, IF2<A, B, C> f) {
    List x = new ArrayList();
    if (map != null)
      for (Map.Entry<A, B> e : map.entrySet()) {
        ping();
        x.add(f.get(e.getKey(), e.getValue()));
      }
    return x;
  }

  static public <A, B> List<A> map(IF1<A, B> f, A data1, A... moreData) {
    List x = emptyList(l(moreData) + 1);
    x.add(f.get(data1));
    if (moreData != null)
      for (A o : moreData) {
        ping();
        x.add(f.get(o));
      }
    return x;
  }

  static public <A> List<A> wrapArrayAsList(A[] a) {
    return a == null ? null : Arrays.asList(a);
  }

  static public CloseableIterableIterator<String> linesFromFile(File f) {
    return linesFromFile(f, null);
  }

  static public CloseableIterableIterator<String> linesFromFile(File f, IResourceHolder resourceHolder) {
    try {
      if (!fileExists(f))
        return emptyCloseableIterableIterator();
      if (ewic(f.getName(), ".gz"))
        return linesFromReader(utf8bufferedReader(newGZIPInputStream(f)), resourceHolder);
      return linesFromReader(utf8bufferedReader(f), resourceHolder);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public CloseableIterableIterator<String> linesFromFile(String path) {
    return linesFromFile(path, null);
  }

  static public CloseableIterableIterator<String> linesFromFile(String path, IResourceHolder resourceHolder) {
    return linesFromFile(newFile(path), resourceHolder);
  }

  static public <A extends Container> A addComponents(A c, Collection<? extends Component> components) {
    if (nempty(components)) {
      swing(() -> {
        for (Component comp : components) if (comp != null)
          c.add(comp);
        revalidate(c);
      });
    }
    return c;
  }

  static public <A extends Container> A addComponents(A c, Component... components) {
    return addComponents(c, asList(components));
  }

  static public <A> A setThreadLocal(ThreadLocal<A> tl, A value) {
    if (tl == null)
      return null;
    A old = tl.get();
    tl.set(value);
    return old;
  }

  static public HashMap<String, List<Method>> callMC_cache = new HashMap();

  static public String callMC_key;

  static public Method callMC_value;

  static public Object callMC(String method, String[] arg) {
    return callMC(method, new Object[] { arg });
  }

  static public Object callMC(String method, Object... args) {
    try {
      Method me;
      if (callMC_cache == null)
        callMC_cache = new HashMap();
      synchronized (callMC_cache) {
        me = method == callMC_key ? callMC_value : null;
      }
      if (me != null)
        try {
          return invokeMethod(me, null, args);
        } catch (IllegalArgumentException e) {
          throw new RuntimeException("Can't call " + me + " with arguments " + classNames(args), e);
        }
      List<Method> m;
      synchronized (callMC_cache) {
        m = callMC_cache.get(method);
      }
      if (m == null) {
        if (callMC_cache.isEmpty()) {
          callMC_makeCache();
          m = callMC_cache.get(method);
        }
        if (m == null)
          throw fail("Method named " + method + " not found in main");
      }
      int n = m.size();
      if (n == 1) {
        me = m.get(0);
        synchronized (callMC_cache) {
          callMC_key = method;
          callMC_value = me;
        }
        try {
          return invokeMethod(me, null, args);
        } catch (IllegalArgumentException e) {
          throw new RuntimeException("Can't call " + me + " with arguments " + classNames(args), e);
        }
      }
      for (int i = 0; i < n; i++) {
        me = m.get(i);
        if (call_checkArgs(me, args, false))
          return invokeMethod(me, null, args);
      }
      throw fail("No method called " + method + " with arguments (" + joinWithComma(getClasses(args)) + ") found in main");
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void callMC_makeCache() {
    synchronized (callMC_cache) {
      callMC_cache.clear();
      Class _c = (Class) mc(), c = _c;
      while (c != null) {
        for (Method m : c.getDeclaredMethods()) if ((m.getModifiers() & java.lang.reflect.Modifier.STATIC) != 0) {
          makeAccessible(m);
          multiMapPut(callMC_cache, m.getName(), m);
        }
        c = c.getSuperclass();
      }
    }
  }

  static public Class javax() {
    return getJavaX();
  }

  static public <A> List<A> synchroList() {
    return synchroList(new ArrayList<A>());
  }

  static public <A> List<A> synchroList(List<A> l) {
    return new SynchronizedList(l);
  }

  static public Object call(Object o) {
    return callF(o);
  }

  static public Object call(Object o, String method, String[] arg) {
    return call(o, method, new Object[] { arg });
  }

  static public Object call(Object o, String method, Object... args) {
    return call_withVarargs(o, method, args);
  }

  static public <A> A assertNotNull(A a) {
    assertTrue(a != null);
    return a;
  }

  static public <A> A assertNotNull(String msg, A a) {
    assertTrue(msg, a != null);
    return a;
  }

  static public <A> A assertNotNull(Scorer scorer, String msg, A a) {
    if (scorer == null)
      return assertNotNull(msg, a);
    if (a == null) {
      print("BAD - " + msg + " is null: " + a);
      scorer.add(false);
    } else {
      print("OK, " + msg + " not null: " + a);
      scorer.add(true);
    }
    return a;
  }

  static public Map synchroHashMap() {
    return synchronizedMap(new HashMap());
  }

  static public List<String> getClassNames(Collection l) {
    List<String> out = new ArrayList();
    if (l != null)
      for (Object o : l) out.add(o == null ? null : getClassName(o));
    return out;
  }

  static public double parseDouble(String s) {
    return empty(s) ? 0.0 : Double.parseDouble(s);
  }

  static public Iterator emptyIterator() {
    return Collections.emptyIterator();
  }

  static public List _registerWeakMap_preList;

  static public <A> A _registerWeakMap(A map) {
    if (javax() == null) {
      if (_registerWeakMap_preList == null)
        _registerWeakMap_preList = synchroList();
      _registerWeakMap_preList.add(map);
      return map;
    }
    try {
      call(javax(), "_registerWeakMap", map);
    } catch (Throwable e) {
      printException(e);
      print("Upgrade JavaX!!");
    }
    return map;
  }

  static public void _onLoad_registerWeakMap() {
    assertNotNull(javax());
    if (_registerWeakMap_preList == null)
      return;
    for (Object o : _registerWeakMap_preList) _registerWeakMap(o);
    _registerWeakMap_preList = null;
  }

  static public x30_pkg.x30_util.BetterThreadLocal<Runnable> newPing_actionTL;

  static public x30_pkg.x30_util.BetterThreadLocal<Runnable> newPing_actionTL() {
    if (newPing_actionTL == null)
      newPing_actionTL = vm_generalMap_getOrCreate("newPing_actionTL", () -> {
        Runnable value = (Runnable) (callF_gen(vm_generalMap_get("newPing_valueForNewThread")));
        var tl = new x30_pkg.x30_util.BetterThreadLocal<Runnable>();
        tl.set(value);
        return tl;
      });
    return newPing_actionTL;
  }

  static public void assertTrue(Object o) {
    if (!(eq(o, true)))
      throw fail(str(o));
  }

  static public boolean assertTrue(String msg, boolean b) {
    if (!b)
      throw fail(msg);
    return b;
  }

  static public boolean assertTrue(boolean b) {
    if (!b)
      throw fail("oops");
    return b;
  }

  static public boolean assertTrue(Scorer scorer, boolean b) {
    scorer.add(b);
    return b;
  }

  static volatile public boolean licensed_yes = true;

  static public boolean licensed() {
    if (!licensed_yes)
      return false;
    ping_okInCleanUp();
    return true;
  }

  static public void licensed_off() {
    licensed_yes = false;
  }

  static public String className(Object o) {
    return getClassName(o);
  }

  static public String[] drop(int n, String[] a) {
    n = Math.min(n, a.length);
    String[] b = new String[a.length - n];
    System.arraycopy(a, n, b, 0, b.length);
    return b;
  }

  static public Object[] drop(int n, Object[] a) {
    n = Math.min(n, a.length);
    Object[] b = new Object[a.length - n];
    System.arraycopy(a, n, b, 0, b.length);
    return b;
  }

  static public <A> List<A> drop(Iterable<A> c, Object pred) {
    return antiFilter(c, pred);
  }

  static public List drop(Object pred, Iterable c) {
    return antiFilter(pred, c);
  }

  static public List drop(Object pred, Object[] c) {
    return antiFilter(pred, c);
  }

  static public <A, B extends A> List<B> drop(Iterable<B> c, F1<A, Boolean> pred) {
    return antiFilter(c, pred);
  }

  static public <A, B extends A> List<B> drop(F1<A, Boolean> pred, Iterable<B> c) {
    return antiFilter(pred, c);
  }

  static public <A, B extends A> List<B> drop(Iterable<B> c, IF1<A, Boolean> pred) {
    return antiFilter(c, pred);
  }

  static public <A, B extends A> List<B> drop(IF1<A, Boolean> pred, Iterable<B> c) {
    return antiFilter(pred, c);
  }

  static public <A> ArrayList<A> toList(A[] a) {
    return asList(a);
  }

  static public ArrayList<Integer> toList(int[] a) {
    return asList(a);
  }

  static public ArrayList<Short> toList(short[] a) {
    return asList(a);
  }

  static public ArrayList<Long> toList(long[] a) {
    return asList(a);
  }

  static public <A> ArrayList<A> toList(Set<A> s) {
    return asList(s);
  }

  static public <A> ArrayList<A> toList(Iterable<A> s) {
    return asList(s);
  }

  static public boolean isDigit(char c) {
    return Character.isDigit(c);
  }

  static public int lastIndexOf(String a, String b) {
    return a == null || b == null ? -1 : a.lastIndexOf(b);
  }

  static public int lastIndexOf(String a, char b) {
    return a == null ? -1 : a.lastIndexOf(b);
  }

  static public <A> int lastIndexOf(List<A> l, int i, A a) {
    if (l == null)
      return -1;
    for (i = min(l(l), i) - 1; i >= 0; i--) if (eq(l.get(i), a))
      return i;
    return -1;
  }

  static public <A> int lastIndexOf(List<A> l, A a) {
    if (l == null)
      return -1;
    for (int i = l(l) - 1; i >= 0; i--) if (eq(l.get(i), a))
      return i;
    return -1;
  }

  static public List<VF1<Map>> _threadInfo_makers = synchroList();

  static public Object _threadInfo() {
    if (empty(_threadInfo_makers))
      return null;
    HashMap map = new HashMap();
    pcallFAll(_threadInfo_makers, map);
    return map;
  }

  static public Runnable asRunnable(Object o) {
    return toRunnable(o);
  }

  static public void _inheritThreadInfo(Object info) {
    _threadInheritInfo(info);
  }

  static public <A> Set<A> createOrAddToSyncLinkedHashSet(Set<A> set, A a) {
    if (set == null)
      set = syncLinkedHashSet();
    set.add(a);
    return set;
  }

  static public Class main() {
    return getMainClass();
  }

  static public <A> void remove(List<A> l, int i) {
    if (l != null && i >= 0 && i < l(l))
      l.remove(i);
  }

  static public <A> void remove(Collection<A> l, A a) {
    if (l != null)
      l.remove(a);
  }

  static public <A, B> B remove(Map<A, B> map, Object a) {
    return map == null ? null : map.remove(a);
  }

  static public void remove(BitSet bs, int i) {
    bs.clear(i);
  }

  static public <A> A pcallF_typed(F0<A> f) {
    try {
      return f == null ? null : f.get();
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    return null;
  }

  static public <A, B> B pcallF_typed(F1<A, B> f, A a) {
    try {
      return f == null ? null : f.get(a);
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    return null;
  }

  static public <A> void pcallF_typed(VF1<A> f, A a) {
    try {
      {
        if (f != null)
          f.get(a);
      }
    } catch (Throwable __e) {
      pcallFail(__e);
    }
  }

  static public <A> void pcallF_typed(IVF1<A> f, A a) {
    try {
      {
        if (f != null)
          f.get(a);
      }
    } catch (Throwable __e) {
      pcallFail(__e);
    }
  }

  static public <A, B> void pcallF_typed(IVF2<A, B> f, A a, B b) {
    try {
      {
        if (f != null)
          f.get(a, b);
      }
    } catch (Throwable __e) {
      pcallFail(__e);
    }
  }

  static public Object pcallF_typed(Runnable r) {
    try {
      {
        if (r != null)
          r.run();
      }
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    return null;
  }

  static public <A> A pcallF_typed(IF0<A> f) {
    try {
      return f == null ? null : f.get();
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    return null;
  }

  static public <A, B> B pcallF_typed(IF1<A, B> f, A a) {
    try {
      return f == null ? null : f.get(a);
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    return null;
  }

  static public ThreadLocal<Random> customRandomizerForThisThread_tl = new ThreadLocal();

  static public ThreadLocal<Random> customRandomizerForThisThread_tl() {
    return customRandomizerForThisThread_tl;
  }

  static public ClassLoader classLoaderForObject(Object o) {
    if (o instanceof ClassLoader)
      return ((ClassLoader) o);
    if (o == null)
      return null;
    return _getClass(o).getClassLoader();
  }

  static public String classNameToVM(String name) {
    return name.replace(".", "$");
  }

  static public <A> HashSet<A> litset(A... items) {
    return lithashset(items);
  }

  static public boolean startsWith(String a, String b) {
    return a != null && a.startsWith(unnull(b));
  }

  static public boolean startsWith(String a, char c) {
    return nemptyString(a) && a.charAt(0) == c;
  }

  static public boolean startsWith(String a, String b, Matches m) {
    if (!startsWith(a, b))
      return false;
    if (m != null)
      m.m = new String[] { substring(a, strL(b)) };
    return true;
  }

  static public boolean startsWith(List a, List b) {
    if (a == null || listL(b) > listL(a))
      return false;
    for (int i = 0; i < listL(b); i++) if (neq(a.get(i), b.get(i)))
      return false;
    return true;
  }

  static public boolean domainIsUnder(String domain, String mainDomain) {
    return eqic(domain, mainDomain) || ewic(domain, "." + mainDomain);
  }

  static public String theAGIBlueDomain() {
    return "agi.blue";
  }

  static public Object callFunction(Object f, Object... args) {
    return callF(f, args);
  }

  static public Throwable _storeException_value;

  static public void _storeException(Throwable e) {
    _storeException_value = e;
  }

  static public Map vm_generalMap_map;

  static public Map vm_generalMap() {
    if (vm_generalMap_map == null)
      vm_generalMap_map = (Map) get(javax(), "generalMap");
    return vm_generalMap_map;
  }

  static public Object vm_generalMap_get(Object key) {
    return vm_generalMap().get(key);
  }

  static public Object vm_generalMap_put(Object key, Object value) {
    return mapPutOrRemove(vm_generalMap(), key, value);
  }

  static public <A> Set<A> syncIdentityHashSet() {
    return (Set) synchronizedSet(identityHashSet());
  }

  static public Map syncHashMap() {
    return synchroHashMap();
  }

  static public PingSource pingSource() {
    return pingSource_tl().get();
  }

  static public PingSource pingSource(Thread thread) {
    return pingSource_tl().get(thread);
  }

  static public boolean fileExists(String path) {
    return path != null && new File(path).exists();
  }

  static public boolean fileExists(File f) {
    return f != null && f.exists();
  }

  static public CloseableIterableIterator emptyCloseableIterableIterator_instance = new CloseableIterableIterator() {

    public Object next() {
      throw fail();
    }

    public boolean hasNext() {
      return false;
    }
  };

  static public <A> CloseableIterableIterator<A> emptyCloseableIterableIterator() {
    return emptyCloseableIterableIterator_instance;
  }

  static public boolean ewic(String a, String b) {
    return endsWithIgnoreCase(a, b);
  }

  static public boolean ewic(String a, String b, Matches m) {
    return endsWithIgnoreCase(a, b, m);
  }

  static public CloseableIterableIterator<String> linesFromReader(Reader r) {
    return linesFromReader(r, null);
  }

  static public CloseableIterableIterator<String> linesFromReader(Reader r, IResourceHolder resourceHolder) {
    final BufferedReader br = bufferedReader(r);
    return holdResource(resourceHolder, iteratorFromFunction_f0_autoCloseable(new F0<String>() {

      public String get() {
        try {
          return readLineFromReaderWithClose(br);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return readLineFromReaderWithClose(br);";
      }
    }, _wrapIOCloseable(r)));
  }

  static public CloseableIterableIterator<String> linesFromReader(InputStream in) {
    return linesFromReader(inputStreamReader(in));
  }

  static public BufferedReader utf8bufferedReader(InputStream in) {
    try {
      return in == null ? null : bufferedReader(_registerIOWrap(new InputStreamReader(in, "UTF-8"), in));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public BufferedReader utf8bufferedReader(File f) {
    try {
      return utf8bufferedReader(newFileInputStream(f));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public GZIPInputStream newGZIPInputStream(File f) {
    return gzInputStream(f);
  }

  static public GZIPInputStream newGZIPInputStream(InputStream in) {
    return gzInputStream(in);
  }

  static public <A> String joinWithComma(Iterable<A> c) {
    return join(", ", c);
  }

  static public String joinWithComma(Object... c) {
    return join(", ", c);
  }

  static public String joinWithComma(String... c) {
    return join(", ", c);
  }

  static public String joinWithComma(Pair p) {
    return p == null ? "" : joinWithComma(str(p.a), str(p.b));
  }

  static public List<Class> getClasses(Object[] array) {
    List<Class> l = emptyList(l(array));
    for (Object o : array) l.add(_getClass(o));
    return l;
  }

  static public <A, B> void multiMapPut(Map<A, List<B>> map, A a, B b) {
    List<B> l = map.get(a);
    if (l == null)
      map.put(a, l = new ArrayList());
    l.add(b);
  }

  static public <A, B> void multiMapPut(MultiMap<A, B> mm, A key, B value) {
    if (mm != null && key != null && value != null)
      mm.put(key, value);
  }

  static public Class __javax;

  static public Class getJavaX() {
    try {
      return __javax;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void __setJavaX(Class j) {
    __javax = j;
    _onJavaXSet();
  }

  static public Object call_withVarargs(Object o, String methodName, Object... args) {
    try {
      if (o == null)
        return null;
      if (o instanceof Class) {
        Class c = (Class) o;
        _MethodCache cache = callOpt_getCache(c);
        Method me = cache.findStaticMethod(methodName, args);
        if (me != null)
          return invokeMethod(me, null, args);
        List<Method> methods = cache.cache.get(methodName);
        if (methods != null)
          methodSearch: for (Method m : methods) {
            {
              if (!(m.isVarArgs()))
                continue;
            }
            {
              if (!(isStaticMethod(m)))
                continue;
            }
            Object[] newArgs = massageArgsForVarArgsCall(m, args);
            if (newArgs != null)
              return invokeMethod(m, null, newArgs);
          }
        throw fail("Method " + c.getName() + "." + methodName + "(" + formatArgumentClasses(args) + ") not found");
      } else {
        Class c = o.getClass();
        _MethodCache cache = callOpt_getCache(c);
        Method me = cache.findMethod(methodName, args);
        if (me != null)
          return invokeMethod(me, o, args);
        List<Method> methods = cache.cache.get(methodName);
        if (methods != null)
          methodSearch: for (Method m : methods) {
            {
              if (!(m.isVarArgs()))
                continue;
            }
            Object[] newArgs = massageArgsForVarArgsCall(m, args);
            if (newArgs != null)
              return invokeMethod(m, o, newArgs);
          }
        throw fail("Method " + c.getName() + "." + methodName + "(" + formatArgumentClasses(args) + ") not found");
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Map synchronizedMap() {
    return synchroMap();
  }

  static public <A, B> Map<A, B> synchronizedMap(Map<A, B> map) {
    return synchroMap(map);
  }

  static public <A extends Throwable> A printException(A e) {
    printStackTrace(e);
    return e;
  }

  static public <A> A vm_generalMap_getOrCreate(Object key, F0<A> create) {
    return vm_generalMap_getOrCreate(key, f0ToIF0(create));
  }

  static public <A> A vm_generalMap_getOrCreate(Object key, IF0<A> create) {
    Map generalMap = vm_generalMap();
    if (generalMap == null)
      return null;
    synchronized (generalMap) {
      A a = (A) (vm_generalMap_get(key));
      if (a == null)
        vm_generalMap_put(key, a = create == null ? null : create.get());
      return a;
    }
  }

  static public <A> A callF_gen(F0<A> f) {
    return f == null ? null : f.get();
  }

  static public <A, B> B callF_gen(F1<A, B> f, A a) {
    return f == null ? null : f.get(a);
  }

  static public <A> A callF_gen(IF0<A> f) {
    return f == null ? null : f.get();
  }

  static public <A, B> B callF_gen(IF1<A, B> f, A a) {
    return f == null ? null : f.get(a);
  }

  static public <A, B> B callF_gen(A a, IF1<A, B> f) {
    return f == null ? null : f.get(a);
  }

  static public <A, B, C> C callF_gen(F2<A, B, C> f, A a, B b) {
    return f == null ? null : f.get(a, b);
  }

  static public <A, B, C> C callF_gen(IF2<A, B, C> f, A a, B b) {
    return f == null ? null : f.get(a, b);
  }

  static public <A> void callF_gen(VF1<A> f, A a) {
    {
      if (f != null)
        f.get(a);
    }
  }

  static public <A> void callF_gen(A a, IVF1<A> f) {
    {
      if (f != null)
        f.get(a);
    }
  }

  static public <A> void callF_gen(IVF1<A> f, A a) {
    {
      if (f != null)
        f.get(a);
    }
  }

  static public Object callF_gen(Runnable r) {
    {
      if (r != null)
        r.run();
    }
    return null;
  }

  static public Object callF_gen(Object f, Object... args) {
    return callF(f, args);
  }

  static public <A> List<A> antiFilter(Iterable<A> c, Object pred) {
    if (pred instanceof F1)
      return antiFilter(c, (F1<A, Boolean>) pred);
    List x = new ArrayList();
    if (c != null)
      for (Object o : c) if (!isTrue(callF(pred, o)))
        x.add(o);
    return x;
  }

  static public List antiFilter(Object pred, Iterable c) {
    return antiFilter(c, pred);
  }

  static public List antiFilter(Object pred, Object[] c) {
    return antiFilter(pred, wrapArrayAsList(c));
  }

  static public <A, B extends A> List<B> antiFilter(Iterable<B> c, F1<A, Boolean> pred) {
    List x = new ArrayList();
    if (c != null)
      for (B o : c) if (!pred.get(o).booleanValue())
        x.add(o);
    return x;
  }

  static public <A, B extends A> List<B> antiFilter(F1<A, Boolean> pred, Iterable<B> c) {
    return antiFilter(c, pred);
  }

  static public <A, B extends A> List<B> antiFilter(Iterable<B> c, IF1<A, Boolean> pred) {
    List x = new ArrayList();
    if (c != null)
      for (B o : c) if (!pred.get(o).booleanValue())
        x.add(o);
    return x;
  }

  static public <A, B extends A> List<B> antiFilter(IF1<A, Boolean> pred, Iterable<B> c) {
    return antiFilter(c, pred);
  }

  static public void pcallFAll(Collection l, Object... args) {
    if (l != null)
      for (Object f : cloneList(l)) pcallF(f, args);
  }

  static public void pcallFAll(Iterator it, Object... args) {
    while (it.hasNext()) pcallF(it.next(), args);
  }

  static public Runnable toRunnable(final Object o) {
    if (o == null)
      return null;
    if (o instanceof Runnable)
      return (Runnable) o;
    if (o instanceof String)
      throw fail("callF_legacy");
    return new Runnable() {

      public void run() {
        try {
          callF(o);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "callF(o)";
      }
    };
  }

  static public List<VF1<Map>> _threadInheritInfo_retrievers = synchroList();

  static public void _threadInheritInfo(Object info) {
    if (info == null)
      return;
    pcallFAll(_threadInheritInfo_retrievers, (Map) info);
  }

  static public <A> Set<A> syncLinkedHashSet() {
    return synchroLinkedHashSet();
  }

  static public Class getMainClass() {
    return mc();
  }

  static public Class getMainClass(Object o) {
    try {
      if (o == null)
        return null;
      if (o instanceof Class && eq(((Class) o).getName(), "x30"))
        return (Class) o;
      ClassLoader cl = (o instanceof Class ? (Class) o : o.getClass()).getClassLoader();
      if (cl == null)
        return null;
      String name = mainClassNameForClassLoader(cl);
      return loadClassFromClassLoader_orNull(cl, name);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void pcallFail(Throwable e) {
    pcallPolicyForThread().handlePcallFail(e);
  }

  static public void pcallFail(String msg) {
    pcallFail(new Throwable(msg));
  }

  static public <A> HashSet<A> lithashset(A... items) {
    HashSet<A> set = new HashSet();
    for (A a : items) set.add(a);
    return set;
  }

  static public boolean nemptyString(String s) {
    return s != null && s.length() > 0;
  }

  static public int listL(Collection l) {
    return l == null ? 0 : l.size();
  }

  static public boolean neq(Object a, Object b) {
    return !eq(a, b);
  }

  static public boolean eqic(String a, String b) {
    if ((a == null) != (b == null))
      return false;
    if (a == null)
      return true;
    return a.equalsIgnoreCase(b);
  }

  static public boolean eqic(Symbol a, Symbol b) {
    return eq(a, b);
  }

  static public boolean eqic(Symbol a, String b) {
    return eqic(asString(a), b);
  }

  static public boolean eqic(char a, char b) {
    if (a == b)
      return true;
    char u1 = Character.toUpperCase(a);
    char u2 = Character.toUpperCase(b);
    if (u1 == u2)
      return true;
    return Character.toLowerCase(u1) == Character.toLowerCase(u2);
  }

  static public <A> A get(List<A> l, int idx) {
    return l != null && idx >= 0 && idx < l(l) ? l.get(idx) : null;
  }

  static public <A> A get(A[] l, int idx) {
    return idx >= 0 && idx < l(l) ? l[idx] : null;
  }

  static public boolean get(boolean[] l, int idx) {
    return idx >= 0 && idx < l(l) ? l[idx] : false;
  }

  static public Object get(Object o, String field) {
    try {
      if (o == null)
        return null;
      if (o instanceof Class)
        return get((Class) o, field);
      if (o instanceof Map)
        return ((Map) o).get(field);
      Field f = getOpt_findField(o.getClass(), field);
      if (f != null) {
        makeAccessible(f);
        return f.get(o);
      }
      if (o instanceof DynamicObject)
        return getOptDynOnly(((DynamicObject) o), field);
    } catch (Exception e) {
      throw asRuntimeException(e);
    }
    throw new RuntimeException("Field '" + field + "' not found in " + o.getClass().getName());
  }

  static public Object get_raw(String field, Object o) {
    return get_raw(o, field);
  }

  static public Object get_raw(Object o, String field) {
    try {
      if (o == null)
        return null;
      Field f = get_findField(o.getClass(), field);
      makeAccessible(f);
      return f.get(o);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Object get(Class c, String field) {
    try {
      Field f = get_findStaticField(c, field);
      makeAccessible(f);
      return f.get(null);
    } catch (Exception e) {
      throw new RuntimeException(e);
    }
  }

  static public Field get_findStaticField(Class<?> c, String field) {
    Class _c = c;
    do {
      for (Field f : _c.getDeclaredFields()) if (f.getName().equals(field) && (f.getModifiers() & java.lang.reflect.Modifier.STATIC) != 0)
        return f;
      _c = _c.getSuperclass();
    } while (_c != null);
    throw new RuntimeException("Static field '" + field + "' not found in " + c.getName());
  }

  static public Field get_findField(Class<?> c, String field) {
    Class _c = c;
    do {
      for (Field f : _c.getDeclaredFields()) if (f.getName().equals(field))
        return f;
      _c = _c.getSuperclass();
    } while (_c != null);
    throw new RuntimeException("Field '" + field + "' not found in " + c.getName());
  }

  static public Object get(String field, Object o) {
    return get(o, field);
  }

  static public boolean get(BitSet bs, int idx) {
    return bs != null && bs.get(idx);
  }

  static public <A, B> B mapPutOrRemove(Map<A, B> map, A key, B value) {
    if (map != null && key != null)
      if (value != null)
        return map.put(key, value);
      else
        return map.remove(key);
    return null;
  }

  static public <A> Set<A> synchronizedSet() {
    return synchroHashSet();
  }

  static public <A> Set<A> synchronizedSet(Set<A> set) {
    return new SynchronizedSet(set);
  }

  static public <A> Set<A> identityHashSet() {
    return Collections.newSetFromMap(new IdentityHashMap());
  }

  static public BetterThreadLocal<PingSource> pingSource_tl_var = new BetterThreadLocal<PingSource>() {

    @Override
    public PingSource initialValue() {
      return ping_v3_pingSourceMaker().get();
    }
  };

  static public BetterThreadLocal<PingSource> pingSource_tl() {
    return pingSource_tl_var;
  }

  static public boolean endsWithIgnoreCase(String a, String b) {
    int la = l(a), lb = l(b);
    return la >= lb && regionMatchesIC(a, la - lb, b, 0, lb);
  }

  static public boolean endsWithIgnoreCase(String a, String b, Matches m) {
    if (!endsWithIgnoreCase(a, b))
      return false;
    if (m != null)
      m.m = new String[] { substring(a, 0, l(a) - l(b)) };
    return true;
  }

  static public BufferedReader bufferedReader(Reader r) {
    return bufferedReader(r, 8192);
  }

  static public BufferedReader bufferedReader(Reader r, int bufSize) {
    if (r == null)
      return null;
    return r instanceof BufferedReader ? (BufferedReader) r : _registerIOWrap(new BufferedReader(r, bufSize), r);
  }

  static public BufferedReader bufferedReader(File f) {
    return utf8bufferedReader(f);
  }

  static public <A extends AutoCloseable> A holdResource(IResourceHolder holder, A a) {
    {
      if (holder != null)
        holder.add(a);
    }
    return a;
  }

  static public <A> CloseableIterableIterator<A> iteratorFromFunction_f0_autoCloseable(final F0<A> f, final AutoCloseable closeable) {
    class IFF2 extends CloseableIterableIterator<A> {

      public A a;

      public boolean done = false;

      public boolean hasNext() {
        getNext();
        return !done;
      }

      public A next() {
        getNext();
        if (done)
          throw fail();
        A _a = a;
        a = null;
        return _a;
      }

      public void getNext() {
        if (done || a != null)
          return;
        a = f.get();
        done = a == null;
      }

      public void close() throws Exception {
        if (closeable != null)
          closeable.close();
      }
    }
    ;
    return new IFF2();
  }

  static public String readLineFromReaderWithClose(BufferedReader r) {
    try {
      String s = r.readLine();
      if (s == null)
        r.close();
      return s;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public AutoCloseable _wrapIOCloseable(final AutoCloseable c) {
    return c == null ? null : new AutoCloseable() {

      public String toString() {
        return "c.close();\r\n    _registerIO(c, null, false);";
      }

      public void close() throws Exception {
        c.close();
        _registerIO(c, null, false);
      }
    };
  }

  static public BufferedReader inputStreamReader(InputStream in) {
    return utf8Reader(in);
  }

  static public BufferedReader inputStreamReader(File f) {
    return utf8Reader(f);
  }

  static public <A> A _registerIOWrap(A wrapper, Object wrapped) {
    return wrapper;
  }

  static public FileInputStream newFileInputStream(File path) throws IOException {
    return newFileInputStream(path.getPath());
  }

  static public FileInputStream newFileInputStream(String path) throws IOException {
    FileInputStream f = new FileInputStream(path);
    _registerIO(f, path, true);
    return f;
  }

  static public int gzInputStream_defaultBufferSize = 65536;

  static public GZIPInputStream gzInputStream(File f) {
    try {
      return gzInputStream(new FileInputStream(f));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public GZIPInputStream gzInputStream(File f, int bufferSize) {
    try {
      return gzInputStream(new FileInputStream(f), bufferSize);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public GZIPInputStream gzInputStream(InputStream in) {
    return gzInputStream(in, gzInputStream_defaultBufferSize);
  }

  static public GZIPInputStream gzInputStream(InputStream in, int bufferSize) {
    try {
      return _registerIOWrap(new GZIPInputStream(in, gzInputStream_defaultBufferSize), in);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void _onJavaXSet() {
  }

  static public Object[] massageArgsForVarArgsCall(Executable m, Object[] args) {
    Class<?>[] types = m.getParameterTypes();
    int n = types.length - 1, nArgs = l(args);
    if (nArgs < n)
      return null;
    for (int i = 0; i < n; i++) if (!argumentCompatibleWithType(args[i], types[i]))
      return null;
    Class varArgType = types[n].getComponentType();
    for (int i = n; i < nArgs; i++) if (!argumentCompatibleWithType(args[i], varArgType))
      return null;
    Object[] newArgs = new Object[n + 1];
    arraycopy(args, 0, newArgs, 0, n);
    int nVarArgs = nArgs - n;
    Object varArgs = Array.newInstance(varArgType, nVarArgs);
    for (int i = 0; i < nVarArgs; i++) Array.set(varArgs, i, args[n + i]);
    newArgs[n] = varArgs;
    return newArgs;
  }

  static public String formatArgumentClasses(Object[] args) {
    return joinWithComma(map(__19 -> getClassName(__19), args));
  }

  static public <A extends Throwable> A printStackTrace(A e) {
    if (e != null)
      print(getStackTrace(e));
    return e;
  }

  static public void printStackTrace() {
    printStackTrace(new Throwable());
  }

  static public void printStackTrace(String msg) {
    printStackTrace(new Throwable(msg));
  }

  static public void printStackTrace(String msg, Throwable e) {
    printStackTrace(new Throwable(msg, e));
  }

  static public <A> IF0<A> f0ToIF0(F0<A> f) {
    return f == null ? null : () -> f.get();
  }

  static public Object pcallF(Object f, Object... args) {
    return pcallFunction(f, args);
  }

  static public <A> A pcallF(F0<A> f) {
    try {
      return f == null ? null : f.get();
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    return null;
  }

  static public <A, B> B pcallF(F1<A, B> f, A a) {
    try {
      return f == null ? null : f.get(a);
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    return null;
  }

  static public <A> void pcallF(VF1<A> f, A a) {
    try {
      {
        if (f != null)
          f.get(a);
      }
    } catch (Throwable __e) {
      pcallFail(__e);
    }
  }

  static public Object pcallF(Runnable r) {
    try {
      {
        if (r != null)
          r.run();
      }
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    return null;
  }

  static public <A> A pcallF(IF0<A> f) {
    try {
      return f == null ? null : f.get();
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    return null;
  }

  static public <A, B> B pcallF(IF1<A, B> f, A a) {
    try {
      return f == null ? null : f.get(a);
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    return null;
  }

  static public <A> Set<A> synchroLinkedHashSet() {
    return synchronizedSet(new CompactLinkedHashSet());
  }

  static public String mainClassNameForClassLoader(ClassLoader cl) {
    return or((String) callOpt(cl, "mainClassName"), "main");
  }

  static public Class loadClassFromClassLoader_orNull(ClassLoader cl, String name) {
    try {
      return cl == null ? null : cl.loadClass(name);
    } catch (ClassNotFoundException e) {
      return null;
    }
  }

  static public PCallPolicy pcallPolicyForThread() {
    var policy = pcallPolicyForThread_tl().get();
    if (policy != null)
      return policy;
    return defaultPCallPolicy();
  }

  static public String asString(Object o) {
    return o == null ? null : o.toString();
  }

  static public Object getOptDynOnly(DynamicObject o, String field) {
    if (o == null || o.fieldValues == null)
      return null;
    return o.fieldValues.get(field);
  }

  static public <A> Set<A> synchroHashSet() {
    return synchronizedSet(new HashSet<A>());
  }

  static public IF0<PingSource> ping_v3_pingSourceMaker_cache;

  static public IF0<PingSource> ping_v3_pingSourceMaker() {
    if (ping_v3_pingSourceMaker_cache == null)
      ping_v3_pingSourceMaker_cache = ping_v3_pingSourceMaker_load();
    return ping_v3_pingSourceMaker_cache;
  }

  static public IF0<PingSource> ping_v3_pingSourceMaker_load() {
    return or((IF0) vm_generalMap_get("ping_v3_pingSourceMaker"), () -> null);
  }

  static public boolean regionMatchesIC(String a, int offsetA, String b, int offsetB, int len) {
    return a != null && a.regionMatches(true, offsetA, b, offsetB, len);
  }

  static public <A> A getNext(Iterator<A> it) {
    return nextFromIterator(it);
  }

  static public void _registerIO(Object object, String path, boolean opened) {
  }

  static public BufferedReader utf8Reader(InputStream in) {
    return utf8BufferedReader(in);
  }

  static public BufferedReader utf8Reader(File f) {
    return utf8BufferedReader(f);
  }

  static public boolean argumentCompatibleWithType(Object arg, Class type) {
    return arg == null ? !type.isPrimitive() : isInstanceX(type, arg);
  }

  static public void arraycopy(Object[] a, Object[] b) {
    if (a != null && b != null)
      arraycopy(a, 0, b, 0, Math.min(a.length, b.length));
  }

  static public void arraycopy(Object src, int srcPos, int destPos, int n) {
    arraycopy(src, srcPos, src, destPos, n);
  }

  static public void arraycopy(Object src, int srcPos, Object dest, int destPos, int n) {
    if (n != 0)
      System.arraycopy(src, srcPos, dest, destPos, n);
  }

  static public Object pcallFunction(Object f, Object... args) {
    try {
      return callFunction(f, args);
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    return null;
  }

  static public Object callOpt(Object o) {
    return callF(o);
  }

  static public Object callOpt(Object o, String method, Object... args) {
    return callOpt_withVarargs(o, method, args);
  }

  static public ThreadLocal<PCallPolicy> pcallPolicyForThread_tl_tl = new ThreadLocal();

  static public ThreadLocal<PCallPolicy> pcallPolicyForThread_tl() {
    return pcallPolicyForThread_tl_tl;
  }

  static public PCallPolicy defaultPCallPolicy = __1 -> printStackTrace(__1);

  static public PCallPolicy defaultPCallPolicy() {
    return defaultPCallPolicy;
  }

  static public void defaultPCallPolicy_set(PCallPolicy policy) {
    defaultPCallPolicy = policy;
  }

  static public <A> A nextFromIterator(Iterator<A> it) {
    return it == null || !it.hasNext() ? null : it.next();
  }

  static public BufferedReader utf8BufferedReader(InputStream in) {
    return utf8bufferedReader(in);
  }

  static public BufferedReader utf8BufferedReader(File f) {
    return utf8bufferedReader(f);
  }

  static public Object callOpt_withVarargs(Object o, String method, Object... args) {
    try {
      if (o == null)
        return null;
      if (o instanceof Class) {
        Class c = (Class) o;
        _MethodCache cache = callOpt_getCache(c);
        Method me = cache.findMethod(method, args);
        if (me == null) {
          return null;
        }
        if ((me.getModifiers() & Modifier.STATIC) == 0)
          return null;
        return invokeMethod(me, null, args);
      } else {
        Class c = o.getClass();
        _MethodCache cache = callOpt_getCache(c);
        Method me = cache.findMethod(method, args);
        if (me != null)
          return invokeMethod(me, o, args);
        List<Method> methods = cache.cache.get(method);
        if (methods != null)
          methodSearch: for (Method m : methods) {
            {
              if (!(m.isVarArgs()))
                continue;
            }
            Object[] newArgs = massageArgsForVarArgsCall(m, args);
            if (newArgs != null)
              return invokeMethod(m, o, newArgs);
          }
        return null;
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static abstract public class VF1<A> implements IVF1<A> {

    public abstract void get(A a);
  }

  final static public class _MethodCache {

    final public Class c;

    final public HashMap<String, List<Method>> cache = new HashMap();

    public _MethodCache(Class c) {
      this.c = c;
      _init();
    }

    public void _init() {
      Class _c = c;
      java.lang.Module myModule = getClass().getModule();
      boolean anyHiddenClasses = false;
      while (_c != null) {
        boolean exported = classIsExportedTo(_c, myModule);
        if (!exported)
          anyHiddenClasses = true;
        else
          for (Method m : _c.getDeclaredMethods()) if ((anyHiddenClasses || !isAbstract(m)) && !reflection_isForbiddenMethod(m))
            multiMapPut(cache, m.getName(), makeAccessible(m));
        _c = _c.getSuperclass();
      }
      for (Class intf : allInterfacesImplementedBy(c)) for (Method m : intf.getDeclaredMethods()) if ((anyHiddenClasses || m.isDefault()) && !reflection_isForbiddenMethod(m))
        multiMapPut(cache, m.getName(), makeAccessible(m));
    }

    public Method findMethod(String method, Object[] args) {
      try {
        List<Method> m = cache.get(method);
        if (m == null)
          return null;
        int n = m.size();
        for (int i = 0; i < n; i++) {
          Method me = m.get(i);
          if (call_checkArgs(me, args, false))
            return me;
        }
        return null;
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public Method findStaticMethod(String method, Object[] args) {
      try {
        List<Method> m = cache.get(method);
        if (m == null)
          return null;
        int n = m.size();
        for (int i = 0; i < n; i++) {
          Method me = m.get(i);
          if (isStaticMethod(me) && call_checkArgs(me, args, false))
            return me;
        }
        return null;
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }
  }

  static public class Matches {

    public String[] m;

    public Matches() {
    }

    public Matches(String... m) {
      this.m = m;
    }

    public String get(int i) {
      return i < m.length ? m[i] : null;
    }

    public String unq(int i) {
      return unquote(get(i));
    }

    public String tlc(int i) {
      return unq(i).toLowerCase();
    }

    public boolean bool(int i) {
      return "true".equals(unq(i));
    }

    public String rest() {
      return m[m.length - 1];
    }

    public int psi(int i) {
      return Integer.parseInt(unq(i));
    }

    public String toString() {
      return "Matches(" + joinWithComma(quoteAll(asList(m))) + ")";
    }

    public int hashCode() {
      return _hashCode(toList(m));
    }

    public boolean equals(Object o) {
      return o instanceof Matches && arraysEqual(m, ((Matches) o).m);
    }
  }

  static public class Symbol implements CharSequence {

    public String text;

    public Symbol() {
    }

    public Symbol(String text, boolean dummy) {
      this.text = text;
    }

    public int hashCode() {
      return _hashCode(text);
    }

    public String toString() {
      return text;
    }

    public boolean equals(Object o) {
      return this == o;
    }

    public int length() {
      return text.length();
    }

    public char charAt(int index) {
      return text.charAt(index);
    }

    public CharSequence subSequence(int start, int end) {
      return text.substring(start, end);
    }
  }

  static public class Var<A> implements IVar<A>, ISetter<A> {

    public Var() {
    }

    public Var(A v) {
      this.v = v;
    }

    public A v;

    public synchronized void set(A a) {
      if (v != a) {
        v = a;
        notifyAll();
      }
    }

    public synchronized A get() {
      return v;
    }

    public synchronized boolean has() {
      return v != null;
    }

    public void clear() {
      set(null);
    }

    public synchronized A getAndSet(A a) {
      var value = v;
      set(a);
      return value;
    }

    public IF0<A> getter() {
      return () -> get();
    }

    public IVF1<A> setter() {
      return __65 -> set(__65);
    }

    public String toString() {
      return str(this.get());
    }
  }

  static public interface IMeta {

    public void _setMeta(Object meta);

    public Object _getMeta();

    default public IAutoCloseableF0 _tempMetaMutex() {
      return new IAutoCloseableF0() {

        public Object get() {
          return IMeta.this;
        }

        public void close() {
        }
      };
    }

    default public Object getMeta(Object obj, Object key) {
      return metaGet(obj, key);
    }

    default public Object metaGet(Object obj, Object key) {
      return metaMapGet(obj, key);
    }

    default public Object metaGet(String key, Object obj) {
      return metaMapGet(obj, key);
    }

    default public Object getMeta(Object key) {
      return metaGet(key);
    }

    default public Object metaGet(Object key) {
      if (key == null)
        return null;
      Object meta = _getMeta();
      if (meta instanceof Map)
        return ((Map) meta).get(key);
      return null;
    }

    default public void metaSet(IMeta obj, Object key, Object value) {
      metaPut(obj, key, value);
    }

    default public void metaPut(IMeta obj, Object key, Object value) {
      metaMapPut(obj, key, value);
    }

    default public void metaSet(Object key, Object value) {
      metaPut(key, value);
    }

    default public void metaPut(Object key, Object value) {
      if (key == null)
        return;
      Map map = convertObjectMetaToMap(this);
      syncMapPutOrRemove(map, key, value);
    }
  }

  static public class Scorer<A> {

    public double score, total;

    public List<A> successes, errors;

    public boolean verboseFailures, verboseAll;

    final public void add(double score) {
      addZeroToOne(score);
    }

    public void addZeroToOne(double score) {
      ++total;
      this.score += clamp(score, 0, 1);
    }

    public void addZeroToOneError(double error) {
      addZeroToOne(1 - error);
    }

    public void addError() {
      add(false);
    }

    public void addError(A info) {
      add(false, info);
    }

    public void error(A info) {
      addError(info);
    }

    public void addOK() {
      add(true);
    }

    public void addOK(A info) {
      add(true, info);
    }

    public void ok() {
      addOK();
    }

    public void ok(A info) {
      addOK(info);
    }

    public boolean add(boolean correct) {
      ++total;
      if (correct)
        ++score;
      return correct;
    }

    public boolean add(boolean correct, A info) {
      main.add(correct ? successes : errors, info);
      if (verboseAll || verboseFailures && !correct)
        _print((correct ? "[GOOD] " : "[BAD] ") + info);
      return add(correct);
    }

    public void eq(Object a, Object b) {
      if (_eq(a, b))
        add(true);
      else
        add(false, (A) (a + " != " + b));
    }

    public void print() {
      main.print(toString());
    }

    public String toString() {
      return formatDouble(ratioToPercent(score, total), 1) + "% correct (n=" + formatDouble(total, 1) + ")";
    }

    public double get() {
      return ratioToPercent(score, total);
    }

    public double percentScore() {
      return get();
    }

    public double score() {
      return get();
    }

    public boolean allCorrect() {
      return score == total;
    }

    public void add(Scorer scorer) {
      if (scorer == null)
        return;
      total += scorer.total;
      score += scorer.score;
      addAll(successes, scorer.successes);
      addAll(errors, scorer.errors);
    }

    public void collectErrors() {
      errors = new ArrayList();
    }

    public void collectSuccesses() {
      successes = new ArrayList();
    }
  }

  static public class Timestamp implements Comparable<Timestamp>, IFieldsToList {

    public long date;

    public Timestamp(long date) {
      this.date = date;
    }

    public boolean equals(Object o) {
      if (!(o instanceof Timestamp))
        return false;
      Timestamp __1 = (Timestamp) o;
      return date == __1.date;
    }

    public int hashCode() {
      int h = 2059094262;
      h = boostHashCombine(h, _hashCode(date));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { date };
    }

    public Timestamp() {
      date = now();
    }

    public Timestamp(Date date) {
      if (date != null)
        this.date = date.getTime();
    }

    final public long toLong() {
      return unixDate();
    }

    public long unixDate() {
      return date;
    }

    public long unixSeconds() {
      return unixDate() / 1000;
    }

    public String toString() {
      return formatLocalDateWithSeconds(date);
    }

    public int compareTo(Timestamp t) {
      return t == null ? 1 : cmp(date, t.date);
    }

    public Timestamp plus(Seconds seconds) {
      return plus(seconds == null ? null : seconds.getDouble());
    }

    final public Timestamp plusSeconds(double seconds) {
      return plus(seconds);
    }

    public Timestamp plus(double seconds) {
      return new Timestamp(date + toMS(seconds));
    }

    public long minus(Timestamp ts) {
      return unixDate() - ts.unixDate();
    }

    public long sysTime() {
      return clockTimeToSystemTime(date);
    }

    public Duration minusAsDuration(Timestamp ts) {
      return Duration.ofMillis(minus(ts));
    }
  }

  static public class GazelleV_LeftArrowScriptParser extends SimpleLeftToRightParser {

    final public GazelleV_LeftArrowScriptParser setMagicSwitch(boolean magicSwitch) {
      return magicSwitch(magicSwitch);
    }

    public GazelleV_LeftArrowScriptParser magicSwitch(boolean magicSwitch) {
      this.magicSwitch = magicSwitch;
      return this;
    }

    final public boolean getMagicSwitch() {
      return magicSwitch();
    }

    public boolean magicSwitch() {
      return magicSwitch;
    }

    public boolean magicSwitch = true;

    final public GazelleV_LeftArrowScriptParser setObjectScopesEnabled(boolean objectScopesEnabled) {
      return objectScopesEnabled(objectScopesEnabled);
    }

    public GazelleV_LeftArrowScriptParser objectScopesEnabled(boolean objectScopesEnabled) {
      this.objectScopesEnabled = objectScopesEnabled;
      return this;
    }

    final public boolean getObjectScopesEnabled() {
      return objectScopesEnabled();
    }

    public boolean objectScopesEnabled() {
      return objectScopesEnabled;
    }

    public boolean objectScopesEnabled = true;

    public ClassNameResolver classNameResolver;

    public List functionContainers = new ArrayList();

    final public GazelleV_LeftArrowScriptParser setLasClassLoader(ILASClassLoader lasClassLoader) {
      return lasClassLoader(lasClassLoader);
    }

    public GazelleV_LeftArrowScriptParser lasClassLoader(ILASClassLoader lasClassLoader) {
      this.lasClassLoader = lasClassLoader;
      return this;
    }

    final public ILASClassLoader getLasClassLoader() {
      return lasClassLoader();
    }

    public ILASClassLoader lasClassLoader() {
      return lasClassLoader;
    }

    public ILASClassLoader lasClassLoader;

    final public GazelleV_LeftArrowScriptParser setClassDefPrefix(String classDefPrefix) {
      return classDefPrefix(classDefPrefix);
    }

    public GazelleV_LeftArrowScriptParser classDefPrefix(String classDefPrefix) {
      this.classDefPrefix = classDefPrefix;
      return this;
    }

    final public String getClassDefPrefix() {
      return classDefPrefix();
    }

    public String classDefPrefix() {
      return classDefPrefix;
    }

    public String classDefPrefix;

    final public GazelleV_LeftArrowScriptParser setSourceInfo(Object sourceInfo) {
      return sourceInfo(sourceInfo);
    }

    public GazelleV_LeftArrowScriptParser sourceInfo(Object sourceInfo) {
      this.sourceInfo = sourceInfo;
      return this;
    }

    final public Object getSourceInfo() {
      return sourceInfo();
    }

    public Object sourceInfo() {
      return sourceInfo;
    }

    public Object sourceInfo;

    final public GazelleV_LeftArrowScriptParser setOptimize(boolean optimize) {
      return optimize(optimize);
    }

    public GazelleV_LeftArrowScriptParser optimize(boolean optimize) {
      this.optimize = optimize;
      return this;
    }

    final public boolean getOptimize() {
      return optimize();
    }

    public boolean optimize() {
      return optimize;
    }

    public boolean optimize = true;

    final public GazelleV_LeftArrowScriptParser setUseFixedVarContexts(boolean useFixedVarContexts) {
      return useFixedVarContexts(useFixedVarContexts);
    }

    public GazelleV_LeftArrowScriptParser useFixedVarContexts(boolean useFixedVarContexts) {
      this.useFixedVarContexts = useFixedVarContexts;
      return this;
    }

    final public boolean getUseFixedVarContexts() {
      return useFixedVarContexts();
    }

    public boolean useFixedVarContexts() {
      return useFixedVarContexts;
    }

    public boolean useFixedVarContexts = false;

    public Scope scope;

    public LinkedHashMap<String, LASValueDescriptor> knownVars = new LinkedHashMap();

    public Set<String> closerTokens = litset(";", "}", ")");

    public BuildingScript currentReturnableScript;

    public BuildingScript currentLoop;

    public boolean inParens = false;

    public int idCounter;

    public Map<String, LASClassDef> classDefs = new HashMap();

    final public Map<String, GazelleV_LeftArrowScript.FunctionDef> getFunctionDefs() {
      return functionDefs();
    }

    public Map<String, GazelleV_LeftArrowScript.FunctionDef> functionDefs() {
      return functionDefs;
    }

    public Map<String, GazelleV_LeftArrowScript.FunctionDef> functionDefs = new HashMap();

    public Set<String> flags = ciSet();

    transient public Set<IVF1<Map<String, LASValueDescriptor>>> onKnownVarsSnapshot;

    public GazelleV_LeftArrowScriptParser onKnownVarsSnapshot(IVF1<Map<String, LASValueDescriptor>> f) {
      onKnownVarsSnapshot = createOrAddToSyncLinkedHashSet(onKnownVarsSnapshot, f);
      return this;
    }

    public GazelleV_LeftArrowScriptParser removeKnownVarsSnapshotListener(IVF1<Map<String, LASValueDescriptor>> f) {
      main.remove(onKnownVarsSnapshot, f);
      return this;
    }

    public void knownVarsSnapshot(Map<String, LASValueDescriptor> knownVars) {
      if (onKnownVarsSnapshot != null)
        for (var listener : onKnownVarsSnapshot) pcallF_typed(listener, knownVars);
    }

    transient public Set<IVF1<LASValueDescriptor>> onTypeHook;

    public GazelleV_LeftArrowScriptParser onTypeHook(IVF1<LASValueDescriptor> f) {
      onTypeHook = createOrAddToSyncLinkedHashSet(onTypeHook, f);
      return this;
    }

    public GazelleV_LeftArrowScriptParser removeTypeHookListener(IVF1<LASValueDescriptor> f) {
      main.remove(onTypeHook, f);
      return this;
    }

    public void typeHook(LASValueDescriptor type) {
      if (onTypeHook != null)
        for (var listener : onTypeHook) pcallF_typed(listener, type);
    }

    static public class EvaluableWrapper implements IFieldsToList {

      public GazelleV_LeftArrowScript.Evaluable expr;

      public EvaluableWrapper() {
      }

      public EvaluableWrapper(GazelleV_LeftArrowScript.Evaluable expr) {
        this.expr = expr;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + expr + ")";
      }

      public boolean equals(Object o) {
        if (!(o instanceof EvaluableWrapper))
          return false;
        EvaluableWrapper __21 = (EvaluableWrapper) o;
        return eq(expr, __21.expr);
      }

      public int hashCode() {
        int h = 700525824;
        h = boostHashCombine(h, _hashCode(expr));
        return h;
      }

      public Object[] _fieldsToList() {
        return new Object[] { expr };
      }
    }

    public class BuildingScript {

      public int id = ++idCounter;

      final public BuildingScript setReturnable(boolean returnable) {
        return returnable(returnable);
      }

      public BuildingScript returnable(boolean returnable) {
        this.returnable = returnable;
        return this;
      }

      final public boolean getReturnable() {
        return returnable();
      }

      public boolean returnable() {
        return returnable;
      }

      public boolean returnable = false;

      final public BuildingScript setIsLoopBody(boolean isLoopBody) {
        return isLoopBody(isLoopBody);
      }

      public BuildingScript isLoopBody(boolean isLoopBody) {
        this.isLoopBody = isLoopBody;
        return this;
      }

      final public boolean getIsLoopBody() {
        return isLoopBody();
      }

      public boolean isLoopBody() {
        return isLoopBody;
      }

      public boolean isLoopBody = false;

      public BuildingScript returnableParent, loopParent;

      public GazelleV_LeftArrowScript.Script script = new GazelleV_LeftArrowScript.Script();

      public List<GazelleV_LeftArrowScript.Evaluable> steps = new ArrayList();

      public Map<String, GazelleV_LeftArrowScript.FunctionDef> functionDefs = new HashMap();

      public BuildingScript(boolean returnable) {
        this();
        this.returnable = returnable;
      }

      public BuildingScript(boolean returnable, boolean isLoopBody) {
        this();
        this.isLoopBody = isLoopBody;
        this.returnable = returnable;
      }

      public BuildingScript() {
      }

      public void add(GazelleV_LeftArrowScript.Evaluable step) {
        if (step != null)
          steps.add(step);
      }

      public GazelleV_LeftArrowScript.Evaluable get() {
        var lastStep = last(steps);
        if (lastStep instanceof GazelleV_LeftArrowScript.ReturnFromScript)
          if (((GazelleV_LeftArrowScript.ReturnFromScript) lastStep).script == script)
            replaceLast(steps, ((GazelleV_LeftArrowScript.ReturnFromScript) lastStep).value);
        if (!returnable && l(steps) == 1 && empty(functionDefs))
          return first(steps);
        if (nempty(functionDefs))
          script.functionDefs = functionDefs;
        script.steps = toTypedArray(GazelleV_LeftArrowScript.Evaluable.class, steps);
        return script;
      }

      public String toStringLong() {
        return pnlToLines(steps);
      }

      public String toString() {
        return formatRecordVars("BuildingScript", "id", id, "returnable", returnable, "returnableParent", returnableParent, "script", script);
      }
    }

    {
      tokenize = text -> {
        List<String> tok = tokenize_base(text);
        tok = preprocess(tok);
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          print("=== PREPROCESSED\n" + indentx(join(tok)) + "\n===");
        return tok;
      };
    }

    public List<String> preprocess(List<String> tok) {
      tok = tokenIndexedList3(tok);
      tok_ifdef(tok, __20 -> getFlag(__20));
      tok_pcall_script(tok);
      tok_script_settable(tok);
      jreplace(tok, "LS", "L<S>");
      return cloneList(tok);
    }

    public GazelleV_LeftArrowScript.Script parse(String text) {
      setText(text);
      init();
      return parse();
    }

    public GazelleV_LeftArrowScript.Script parse() {
      GazelleV_LeftArrowScript.Script script = parseReturnableScript();
      if (optimize)
        script = script.optimizeScript();
      return script;
    }

    public GazelleV_LeftArrowScript.Script parseReturnableScript() {
      return (GazelleV_LeftArrowScript.Script) parseScript(new BuildingScript().returnable(true));
    }

    public GazelleV_LeftArrowScript.Evaluable parseScript(BuildingScript script) {
      return linkToSrc(() -> {
        script.returnableParent = currentReturnableScript;
        script.loopParent = currentLoop;
        if (script.returnable)
          currentReturnableScript = script;
        if (script.isLoopBody)
          currentLoop = script;
        return parseBuildingScript(script);
      });
    }

    public GazelleV_LeftArrowScript.Evaluable parseBuildingScript(BuildingScript script) {
      try {
        parseScript_2(script);
        var builtScript = script.get();
        currentReturnableScript = script.returnableParent;
        currentLoop = script.loopParent;
        return builtScript;
      } catch (Throwable e) {
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          print("Parsed so far:\n" + script);
        throw rethrowAndAppendToMessage(e, squareBracketed(spaceCombine(sourceInfo, lineAndColumn(-1))));
      }
    }

    public void parseScript_2(BuildingScript script) {
      AutoCloseable __10 = tempRestoreMap(knownVars);
      try {
        AssureAdvance assure = new AssureAdvance();
        while (assure.get()) {
          knownVarsSnapshot(knownVars);
          if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
            print("parseScript_2: Next token is " + quote(token()));
          if (is(";")) {
            next();
            continue;
          }
          if (isOneOf("}", ")"))
            break;
          GazelleV_LeftArrowScript.Evaluable instruction = linkToSrc(() -> parseInstruction(script));
          if (instruction != null)
            script.add(instruction);
        }
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          print("parseScript_2 done");
        knownVarsSnapshot(knownVars);
      } finally {
        _close(__10);
      }
    }

    public GazelleV_LeftArrowScript.Evaluable parseParamDecl(BuildingScript script) {
      String var = assertIdentifier(tpp());
      LASValueDescriptor valueDescriptor = new LASValueDescriptor();
      if (is(":")) {
        var type = parseColonType();
        valueDescriptor = LASValueDescriptor.nonExactCanBeNull(type);
      }
      knownVars.put(var, valueDescriptor);
      script.script.params = putOrCreateLinkedHashMap(script.script.params, var, valueDescriptor);
      return null;
    }

    public GazelleV_LeftArrowScript.Evaluable parseInstruction(BuildingScript script) {
      if (consumeOpt("param"))
        return parseParamDecl(script);
      if (is("throw")) {
        consume();
        return new GazelleV_LeftArrowScript.Throw(parseExpr());
      }
      if (isOneOf("return", "ret")) {
        consume();
        GazelleV_LeftArrowScript.Evaluable expr;
        if (atCmdEnd())
          expr = _const(null);
        else
          expr = parseAssignmentOrExpr();
        return new GazelleV_LeftArrowScript.ReturnFromScript(currentReturnableScript.script, expr);
      }
      if (consumeOpt("continue")) {
        assertCmdEnd();
        if (currentLoop == null)
          throw fail("continue outside of loop");
        return new GazelleV_LeftArrowScript.Continue(currentLoop.script);
      }
      if (is("temp")) {
        consume();
        GazelleV_LeftArrowScript.Evaluable tempExpr = parseAssignmentOrExpr();
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          print("tempExpr", tempExpr);
        GazelleV_LeftArrowScript.Evaluable body = parseScript(new BuildingScript());
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          print("body", body);
        return new GazelleV_LeftArrowScript.TempBlock(tempExpr, body);
      }
      if (is("will") && is(1, "return")) {
        consume(2);
        GazelleV_LeftArrowScript.Evaluable exp = parseAssignmentOrExpr();
        GazelleV_LeftArrowScript.Evaluable body = parseScript(new BuildingScript());
        return new GazelleV_LeftArrowScript.WillReturn(exp, body);
      }
      if (is("var") && isIdentifier(token(1))) {
        consume();
        String varName = consume();
        var type = parseColonTypeOpt();
        if (consumeLeftArrowOpt()) {
          if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
            print("Found assignment");
          GazelleV_LeftArrowScript.Evaluable rhs = parseExpr();
          assertNotNull("Expression expected", rhs);
          knownVars.put(varName, type == null ? or(rhs.returnType(), new LASValueDescriptor()) : LASValueDescriptor.nonExactCanBeNull(type));
          return new GazelleV_LeftArrowScript.VarDeclaration(varName, typeToClass(type), rhs);
        }
      }
      return parseAssignmentOrExpr();
    }

    public GazelleV_LeftArrowScript.Evaluable parseAssignmentOrExpr() {
      {
        var __2 = parseAssignmentOpt();
        if (__2 != null)
          return __2;
      }
      return parseExpr();
    }

    public GazelleV_LeftArrowScript.Evaluable parseAssignmentOpt() {
      String t = token();
      if (isIdentifier(t)) {
        Type type = null;
        var ptr = ptr();
        if (is(1, ":")) {
          next();
          type = parseColonType();
          unconsume();
        }
        if (is(1, "<") && is(2, "-")) {
          if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
            print("Found assignment");
          next(3);
          GazelleV_LeftArrowScript.Evaluable rhs = parseExpr();
          assertNotNull("Expression expected", rhs);
          boolean newVar = !knownVars.containsKey(t);
          if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
            printVars("newVar", newVar, "t", t, "knownVars", knownVars);
          if (newVar && scope != null) {
            var __3 = scope.completeAssignmentOpt(t, rhs);
            if (__3 != null)
              return __3;
          }
          knownVars.put(t, type == null ? or(rhs.returnType(), new LASValueDescriptor()) : LASValueDescriptor.nonExactCanBeNull(type));
          return newVar ? new GazelleV_LeftArrowScript.VarDeclaration(t, null, rhs) : new GazelleV_LeftArrowScript.Assignment(t, rhs);
        }
        ptr(ptr);
      }
      return null;
    }

    public GazelleV_LeftArrowScript.Evaluable parseOptionalInnerExpression() {
      if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
        printVars("parseOptionalInnerExpression", "token", token());
      if (atCmdEnd() || isOneOf("{", ",", "then"))
        return null;
      return parseInnerExpr();
    }

    public GazelleV_LeftArrowScript.Evaluable _const(Object o) {
      return new GazelleV_LeftArrowScript.Const(o);
    }

    public GazelleV_LeftArrowScript.Evaluable parseInnerExpr() {
      return parseExpr(true);
    }

    public GazelleV_LeftArrowScript.Evaluable parseExpr() {
      if (metaGet("scaffolding") != null)
        scaffoldCalled(this, "parseExpr");
      return parseExpr(false);
    }

    public GazelleV_LeftArrowScript.Evaluable parseExpr(boolean inner) {
      GazelleV_LeftArrowScript.Evaluable e = linkToSrc(() -> inner ? parseExpr_impl(true) : parseFullExpr());
      if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
        print("parseExpr done:\n" + GazelleV_LeftArrowScript.indentedScriptStruct(e));
      return e;
    }

    public GazelleV_LeftArrowScript.Evaluable parseFullExpr() {
      return linkToSrc(() -> parseExprPlusOptionalComma());
    }

    public GazelleV_LeftArrowScript.CallOnTarget parseThenCall(GazelleV_LeftArrowScript.CallOnTarget expr) {
      consume("then");
      GazelleV_LeftArrowScript.CallOnTarget secondCall = (GazelleV_LeftArrowScript.CallOnTarget) (parseCall(null));
      return new GazelleV_LeftArrowScript.Then(expr, secondCall);
    }

    public GazelleV_LeftArrowScript.Evaluable parseExprPlusOptionalComma() {
      GazelleV_LeftArrowScript.Evaluable expr = parseExpr_impl(false);
      while (consumeOpt(",")) {
        expr = parseCall_noCmdEndCheck(expr);
      }
      return expr;
    }

    public GazelleV_LeftArrowScript.Evaluable parseExpr_impl(boolean inner) {
      if (atEnd())
        return null;
      String t = token();
      if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
        printVars("parseExpr", "token", t);
      if (is(";"))
        return null;
      if (consumeOpt("try")) {
        GazelleV_LeftArrowScript.Evaluable body = parseCurlyBlock();
        while (consumeOpt("catch")) {
          String var = consumeIdentifierOpt();
          AutoCloseable __11 = tempAddKnownVars(var);
          try {
            GazelleV_LeftArrowScript.Evaluable catchBlock = parseCurlyBlock();
            body = new GazelleV_LeftArrowScript.TryCatch(body, var, catchBlock);
          } finally {
            _close(__11);
          }
        }
        if (consumeOpt("finally")) {
          GazelleV_LeftArrowScript.Evaluable finallyBlock = parseCurlyBlock();
          return new GazelleV_LeftArrowScript.TryFinally(body, finallyBlock);
        }
        return body;
      }
      if (is("def")) {
        var fd = parseFunctionDefinition(currentReturnableScript.functionDefs);
        return _const(fd);
      }
      if (is("{"))
        return parseCurlyBlock();
      if (is("-") && empty(nextSpace()) && startsWithDigit(token(1)) || startsWithDigit(t)) {
        var e = parseNumberLiteral();
        return parseCall(inner, e);
      }
      if (isQuoted(t)) {
        var e = parseStringLiteral();
        return parseCall(inner, e);
      }
      if (startsWith(t, '\'')) {
        consume();
        var e = _const(first(unquote(t)));
        return parseCall(inner, e);
      }
      if (isIdentifier(t)) {
        if (consumeOpt("synchronized")) {
          var target = parseExpr();
          var body = parseCurlyBlock();
          return new GazelleV_LeftArrowScript.Synchronized(target, body);
        }
        if (is("while"))
          return parseWhileLoop();
        if (is("for"))
          return parseForEach();
        if (is("if"))
          return parseIfStatement();
        if (is("repeat"))
          return parseRepeatStatement();
        if (is("outer")) {
          consume();
          var a = parseAssignmentOpt();
          if (!(a instanceof GazelleV_LeftArrowScript.Assignment))
            throw fail("Assignment expected");
          return new GazelleV_LeftArrowScript.AssignmentToOuterVar(((GazelleV_LeftArrowScript.Assignment) a).var, ((GazelleV_LeftArrowScript.Assignment) a).expression);
        }
        consume();
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          print("Consumed identifier " + t + ", next token: " + token() + ", inner: " + inner);
        var e = parseExprStartingWithIdentifier(t, inner);
        return inner ? parseCall(inner, e) : e;
      }
      if (eq(t, "(")) {
        consume();
        GazelleV_LeftArrowScript.Evaluable e = parseExpr_inParens();
        consume(")");
        return parseCall(inner, e);
      }
      if (isOneOf("&", "|") && empty(nextSpace()) && is(1, token())) {
        return parseBinaryOperator();
      }
      throw fail("Identifier, literal, operator or opening parentheses expected (got: " + quote(t));
    }

    public GazelleV_LeftArrowScript.Evaluable parseExpr_inParens() {
      boolean inParensOld = inParens;
      inParens = true;
      try {
        return parseExpr();
      } finally {
        inParens = inParensOld;
      }
    }

    public GazelleV_LeftArrowScript.Evaluable parseNumberLiteral() {
      String t = consumeMultiTokenLiteral();
      if (swic(t, "0x"))
        return _const(parseHexInt(dropFirst(t, 2)));
      if (swic(t, "0b"))
        return _const(intFromBinary(dropFirst(t, 2)));
      if (isInteger(t))
        return _const(parseIntOrLong(t));
      if (ewic(t, "f"))
        return _const(parseFloat(t));
      if (endsWith(t, "L"))
        return _const(parseLong(t));
      return _const(parseDouble(t));
    }

    public GazelleV_LeftArrowScript.Evaluable parseBinaryOperator() {
      boolean and = is("&");
      next(2);
      GazelleV_LeftArrowScript.Evaluable a = parseInnerExpr();
      GazelleV_LeftArrowScript.Evaluable b = parseInnerExpr();
      return and ? new GazelleV_LeftArrowScript.BoolAnd(a, b) : new GazelleV_LeftArrowScript.BoolOr(a, b);
    }

    public boolean qualifiedNameContinues() {
      return empty(prevSpace()) && eq(token(), ".") && empty(nextSpace()) && isIdentifier(token(1));
    }

    public GazelleV_LeftArrowScript.Evaluable parseNewExpr() {
      String className = assertIdentifier(tpp());
      parseTypeArguments(null);
      LASClassDef cd = classDefs.get(className);
      if (cd != null)
        return new GazelleV_LeftArrowScript.NewObject_LASClass(cd.resolvable(lasClassLoader));
      var type = knownVars.get(className);
      if (type != null)
        return new GazelleV_LeftArrowScript.NewObject_UnknownClass(new GazelleV_LeftArrowScript.GetVar(className), parseArguments());
      Object o = findExternalObject(className);
      if (o instanceof Class) {
        Class c = (Class) o;
        if (c == List.class)
          c = ArrayList.class;
        else if (c == Map.class)
          c = HashMap.class;
        else if (c == Set.class)
          c = HashSet.class;
        return new GazelleV_LeftArrowScript.NewObject(c, parseArguments());
      }
      throw new ClassNotFound(className);
    }

    public GazelleV_LeftArrowScript.Evaluable parseExprStartingWithIdentifier(String t, boolean inner) {
      if (eq(t, "true"))
        return _const(true);
      if (eq(t, "false"))
        return _const(false);
      if (eq(t, "null"))
        return _const(null);
      if (eq(t, "new"))
        return parseNewExpr();
      if (eq(t, "class")) {
        unconsume();
        return new GazelleV_LeftArrowScript.ClassDef(parseClassDef().resolvable(lasClassLoader));
      }
      if (eq(t, "list") && is("{")) {
        GazelleV_LeftArrowScript.Script block = parseReturnableCurlyBlock();
        GazelleV_LeftArrowScript.Evaluable e = new GazelleV_LeftArrowScript.ListFromScript(block);
        return parseCall(inner, e);
      }
      var type = knownVars.get(t);
      if (type != null) {
        var e = new GazelleV_LeftArrowScript.GetVar(t).returnType(type);
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          print("Found var acccess: " + e + ", " + (!inner ? "Checking for call" : "Returning expression"));
        return parseCall(inner, e);
      }
      if (scope != null) {
        {
          var __4 = scope.parseExprStartingWithIdentifierOpt(t, inner);
          if (__4 != null)
            return __4;
        }
      }
      if (!inner) {
        var fdef = lookupFunction(t);
        if (fdef != null) {
          if (is("~"))
            return parseTildeCall(new GazelleV_LeftArrowScript.CallFunction(fdef, new GazelleV_LeftArrowScript.Evaluable[0]));
          return new GazelleV_LeftArrowScript.CallFunction(fdef, parseArguments());
        }
      }
      if (eq(t, "_context"))
        return new GazelleV_LeftArrowScript.GetVarContext();
      Object o = findExternalObject(t);
      var start = ptr().minus(2);
      if (o == null) {
        throw new UnknownObject(t);
      } else if (o instanceof EvaluableWrapper) {
        return parseCall(inner, ((EvaluableWrapper) o).expr);
      } else if (inner)
        return linkToSrc(start, _const(o));
      else if (o instanceof Class) {
        return parseExprStartingWithClass(start, ((Class) o));
      } else if (o instanceof MethodOnObject) {
        if (inner)
          throw fail("Can't call methods in arguments");
        return new GazelleV_LeftArrowScript.CallMethod(_const(((MethodOnObject) o).object), ((MethodOnObject) o).method, parseArguments());
      } else
        return parseCall(_const(o));
    }

    public GazelleV_LeftArrowScript.Evaluable parseExprStartingWithClass(ListAndIndex<String> start, Class c) {
      if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
        printVars("parseExprStartingWithClass", "c", c);
      if (atCmdEnd())
        return linkToSrc(start, _const(c));
      if (is("("))
        return new GazelleV_LeftArrowScript.NewObject(c, parseArguments());
      {
        var __5 = parseLambdaOpt(c);
        if (__5 != null)
          return __5;
      }
      if (isIdentifier()) {
        String name = tpp();
        if (hasStaticMethodNamed(c, name))
          return new GazelleV_LeftArrowScript.CallMethod(_const(c), name, parseArguments());
        if (isInterface(c))
          return parseLambdaMethodRef(c, name);
        var field = getField(c, name);
        if (field == null)
          field = findFieldInInterfaces(c, name);
        if (field != null) {
          if (!isStaticField(field))
            throw fail(field + " is not a static field");
          if (consumeLeftArrowOpt()) {
            GazelleV_LeftArrowScript.Evaluable rhs = parseExpr();
            return new GazelleV_LeftArrowScript.SetStaticField(field, rhs);
          }
          assertCmdEnd();
          return new GazelleV_LeftArrowScript.GetStaticField(field);
        }
        throw fail(name + " not found in " + c + " (looked for method or field)");
      } else
        throw fail("Method name expected: " + token());
    }

    public GazelleV_LeftArrowScript.Evaluable parseLambdaOpt(Class c) {
      if (!isInterface(c))
        return null;
      var ptr = ptr();
      var parameterized = parseTypeArgumentsOpt(c);
      if (is("{"))
        return finishLambdaDef(c, null);
      if (consumeOpt("_")) {
        String methodName = consumeIdentifier();
        return new GazelleV_LeftArrowScript.LambdaMethodOnArgument(c, methodName, parseArguments());
      }
      LinkedHashMap<String, LASValueDescriptor> args = new LinkedHashMap();
      while (isIdentifier()) {
        String name = consume();
        args.put(name, typeToValueDescriptor(parseColonTypeOpt()));
      }
      if (!(is("-") && is(1, ">"))) {
        ptr(ptr);
        return null;
      }
      skip(2);
      return finishLambdaDef(c, args);
    }

    public GazelleV_LeftArrowScript.Evaluable finishLambdaDef(Class c, LinkedHashMap<String, LASValueDescriptor> args) {
      AutoCloseable __12 = tempAddKnownVars(args);
      try {
        knownVarsSnapshot(knownVars);
        GazelleV_LeftArrowScript.Evaluable body;
        if (is("{"))
          body = parseReturnableCurlyBlock();
        else
          body = parseExpr();
        var lambda = new GazelleV_LeftArrowScript.LambdaDef(c, toStringArray(keys(args)), body);
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          print("finishLambdaDef done:\n" + GazelleV_LeftArrowScript.indentedScriptStruct(lambda));
        return lambda;
      } finally {
        _close(__12);
      }
    }

    public GazelleV_LeftArrowScript.Evaluable parseLambdaMethodRef(Class c, String name) {
      var fdef = lookupFunction(name);
      if (fdef != null) {
        GazelleV_LeftArrowScript.Evaluable[] curriedArguments = parseArguments();
        return new GazelleV_LeftArrowScript.CurriedScriptFunctionLambda(c, fdef, curriedArguments);
      }
      Object function = findExternalObject(name);
      if (function == null)
        throw new UnknownObject(name);
      if (function instanceof MethodOnObject) {
        Object target = ((MethodOnObject) function).object;
        String targetMethod = ((MethodOnObject) function).method;
        GazelleV_LeftArrowScript.Evaluable[] curriedArguments = parseArguments();
        return new GazelleV_LeftArrowScript.CurriedMethodLambda(c, target, targetMethod, curriedArguments);
      } else if (function instanceof Class) {
        Class c2 = (Class) function;
        assertCmdEnd();
        var ctors = constructorsWithNumberOfArguments(c2, 1);
        if (empty(ctors))
          throw fail("No single argument constructor found in " + c2);
        return new GazelleV_LeftArrowScript.CurriedConstructorLambda(c, toArray(Constructor.class, ctors), null);
      } else
        throw fail(function + " is not an instantiable class or callable method");
    }

    public GazelleV_LeftArrowScript.FunctionDef lookupFunction(String name) {
      var script = currentReturnableScript;
      while (script != null) {
        var f = script.functionDefs.get(name);
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          printVars("lookupFunction", "script", script, "name", name, "f", f);
        if (f != null)
          return f;
        script = script.returnableParent;
      }
      return functionDefs.get(name);
    }

    public GazelleV_LeftArrowScript.Evaluable[] parseArguments() {
      List<GazelleV_LeftArrowScript.Evaluable> l = new ArrayList();
      try {
        while (true) {
          if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
            print("parseArgumentsAsList: token is " + quote(t()));
          if (is("+") && empty(nextSpace()) && isIdentifier(token(1))) {
            consume();
            l.add(_const(token()));
            continue;
          }
          if (consumeOpt("<")) {
            GazelleV_LeftArrowScript.Evaluable a = parseFullExpr();
            if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
              print("parseArgumentsAsList: token after expr is " + quote(t()));
            if (a == null)
              throw fail("expression expected");
            l.add(a);
            break;
          }
          GazelleV_LeftArrowScript.Evaluable a = parseOptionalInnerExpression();
          if (a == null)
            break;
          l.add(a);
        }
        return toArrayOrNull(GazelleV_LeftArrowScript.Evaluable.class, l);
      } catch (Throwable _e) {
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          print("Arguments parsed so far: " + l);
        throw rethrow(_e);
      }
    }

    public String consumeMultiTokenLiteral() {
      return consumeUntilSpaceOr(() -> atCmdEnd() || is(","));
    }

    public boolean atCmdEnd() {
      return !inParens && atEndOrLineBreak() || closerTokens.contains(token());
    }

    public void assertCmdEnd() {
      if (!atCmdEnd())
        throw fail("Expected end of command, token is: " + quote(token()));
    }

    public GazelleV_LeftArrowScript.Evaluable parseCall(GazelleV_LeftArrowScript.Evaluable target) {
      return parseCall(false, target);
    }

    public GazelleV_LeftArrowScript.Evaluable parseCall(boolean inner, GazelleV_LeftArrowScript.Evaluable target) {
      returnTypeHook(target);
      if (atCmdEnd())
        return target;
      if (inner) {
        {
          var __6 = parseTildeCall(target);
          if (__6 != null)
            return __6;
        }
        return target;
      }
      return parseCall_noCmdEndCheck(target);
    }

    public void returnTypeHook(GazelleV_LeftArrowScript.Evaluable e) {
      if (e != null && e.returnType() != null)
        typeHook(e.returnType());
    }

    public GazelleV_LeftArrowScript.Evaluable parseCall_noCmdEndCheck(GazelleV_LeftArrowScript.Evaluable target) {
      var start = ptr();
      returnTypeHook(target);
      if (isIdentifier()) {
        String name = tpp();
        if (consumeLeftArrowOpt()) {
          GazelleV_LeftArrowScript.Evaluable rhs = parseExpr();
          return new GazelleV_LeftArrowScript.SetField(target, name, rhs);
        }
        boolean allowNullReference = consumeOpt("?");
        var args = parseArguments();
        var call = finalizeCall(start, target, name, args);
        set(call, "allowNullReference", allowNullReference);
        return call;
      }
      {
        var __7 = parseTildeCall(target);
        if (__7 != null)
          return __7;
      }
      if (is("!") && is(1, "_getField_")) {
        next(2);
        String field = consumeIdentifier();
        return new GazelleV_LeftArrowScript.GetField(target, field);
      }
      return target;
    }

    public boolean consumeLeftArrowOpt() {
      if (is("<") && eq(token(1), "-")) {
        next(2);
        return true;
      }
      return false;
    }

    public GazelleV_LeftArrowScript.Evaluable parseTildeCall(GazelleV_LeftArrowScript.Evaluable target) {
      var start = ptr();
      if (consumeOpt("~")) {
        if (isIdentifier()) {
          String key = consumeIdentifier();
          return parseCall(finalizeCall(start, target, "getOpt", _const(key)));
        } else {
          int idx = consumeInteger();
          return parseCall(finalizeCall(start, target, "listGet", _const(idx)));
        }
      }
      return null;
    }

    public GazelleV_LeftArrowScript.Evaluable finalizeCall(ListAndIndex<String> start, GazelleV_LeftArrowScript.Evaluable target, String name, GazelleV_LeftArrowScript.Evaluable... args) {
      return finalizeCall2(finalizeCall1(start, target, name, args));
    }

    public GazelleV_LeftArrowScript.Evaluable finalizeCall2(GazelleV_LeftArrowScript.CallOnTarget call) {
      while (is("then")) call = parseThenCall(call);
      return call;
    }

    public GazelleV_LeftArrowScript.CallOnTarget finalizeCall1(ListAndIndex<String> start, GazelleV_LeftArrowScript.Evaluable target, String name, GazelleV_LeftArrowScript.Evaluable... args) {
      if (magicSwitch) {
        Object ext = findExternalObject(name);
        if (ext instanceof MethodOnObject) {
          if (nempty(args))
            return new GazelleV_LeftArrowScript.CallMethodOrGlobalFunction(target, name, ((MethodOnObject) ext), args);
          else
            return new GazelleV_LeftArrowScript.CallMethodOrGetFieldOrGlobalFunction(target, name, ((MethodOnObject) ext));
        }
      }
      if (nempty(args))
        return new GazelleV_LeftArrowScript.CallMethod(target, name, args);
      else
        return linkToSrc(start, new GazelleV_LeftArrowScript.CallMethodOrGetField(target, name));
    }

    public <A> A linkToSrc(ListAndIndex<String> start, A a) {
      if (a instanceof IHasTokenRangeWithSrc)
        if (((IHasTokenRangeWithSrc) a).tokenRangeWithSrc() == null)
          ((IHasTokenRangeWithSrc) a).setTokenRangeWithSrc(new TokenRangeWithSrc(start, ptr().plus(-1)).sourceInfo(sourceInfo()));
      return a;
    }

    public <A> A linkToSrc(IF0<A> a) {
      var start = ptr();
      return linkToSrc(start, a.get());
    }

    transient public IF1<String, Object> findExternalObject;

    public Object findExternalObject(String name) {
      return findExternalObject != null ? findExternalObject.get(name) : findExternalObject_base(name);
    }

    final public Object findExternalObject_fallback(IF1<String, Object> _f, String name) {
      return _f != null ? _f.get(name) : findExternalObject_base(name);
    }

    public Object findExternalObject_base(String name) {
      if (eq(name, "void"))
        return void.class;
      {
        var __8 = parsePrimitiveType(name);
        if (__8 != null)
          return __8;
      }
      if (qualifiedNameContinues()) {
        int idx = idx() - 2;
        do next(2); while (qualifiedNameContinues());
        String fqn = joinSubList(tok, idx, idx() - 1);
        return classForName(fqn);
      }
      return findExternalObject2(name);
    }

    transient public IF1<String, Object> findExternalObject2;

    public Object findExternalObject2(String name) {
      return findExternalObject2 != null ? findExternalObject2.get(name) : findExternalObject2_base(name);
    }

    final public Object findExternalObject2_fallback(IF1<String, Object> _f, String name) {
      return _f != null ? _f.get(name) : findExternalObject2_base(name);
    }

    public Object findExternalObject2_base(String name) {
      String fullName = globalClassNames().get(name);
      if (fullName != null)
        return classForName(fullName);
      {
        var __9 = classForNameOpt_noCache(name);
        if (__9 != null)
          return __9;
      }
      for (var container : unnullForIteration(functionContainers)) {
        if (hasMethodNamed(container, name) && !isBlockedFunctionContainerMethod(container, name)) {
          var moo = new MethodOnObject(container, name);
          return moo;
        }
        var field = getField(container, name);
        if (field != null && isStaticField(field))
          return new EvaluableWrapper(new GazelleV_LeftArrowScript.GetStaticField(field));
      }
      return null;
    }

    transient public IF2<Object, String, Boolean> isBlockedFunctionContainerMethod;

    public boolean isBlockedFunctionContainerMethod(Object container, String name) {
      return isBlockedFunctionContainerMethod != null ? isBlockedFunctionContainerMethod.get(container, name) : isBlockedFunctionContainerMethod_base(container, name);
    }

    final public boolean isBlockedFunctionContainerMethod_fallback(IF2<Object, String, Boolean> _f, Object container, String name) {
      return _f != null ? _f.get(container, name) : isBlockedFunctionContainerMethod_base(container, name);
    }

    public boolean isBlockedFunctionContainerMethod_base(Object container, String name) {
      return false;
    }

    public GazelleV_LeftArrowScriptParser allowTheWorld() {
      return allowTheWorld(mc());
    }

    public GazelleV_LeftArrowScriptParser allowTheWorld(Object... functionContainers) {
      for (Object o : unnullForIteration(reversed(functionContainers))) if (!contains(this.functionContainers, o)) {
        this.functionContainers.add(0, o);
        globalClassNames_cache = null;
      }
      return this;
    }

    public void printFunctionDefs(GazelleV_LeftArrowScript.Script script) {
      if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
        print(values(script.functionDefs));
    }

    public AutoCloseable tempAddKnownVars(String... vars) {
      return tempAddKnownVars(nonNulls(vars));
    }

    public AutoCloseable tempAddKnownVars(Iterable<String> vars) {
      var newVars = mapWithSingleValue(vars, new LASValueDescriptor());
      return tempAddKnownVars(newVars);
    }

    public AutoCloseable tempAddKnownVar(String var, LASValueDescriptor type) {
      return tempAddKnownVars(litmap(var, type));
    }

    public AutoCloseable tempAddKnownVars(Map<String, LASValueDescriptor> newVars) {
      return tempMapPutAll(knownVars, newVars);
    }

    public String parseFunctionDefArg(Map<String, LASValueDescriptor> argsOut) {
      if (consumeOpt("(")) {
        String result = parseFunctionDefArg(argsOut);
        consume(")");
        return result;
      }
      if (isIdentifier()) {
        String arg = tpp();
        var type = typeToValueDescriptor(parseColonTypeOpt());
        argsOut.put(arg, type);
        return arg;
      }
      return null;
    }

    public GazelleV_LeftArrowScript.FunctionDef parseFunctionDefinition(Map<String, GazelleV_LeftArrowScript.FunctionDef> functionDefsToAddTo) {
      var start = ptr();
      consume("def");
      boolean synthetic = consumeOpt("!");
      if (synthetic)
        consume("synthetic");
      String functionName = assertIdentifier(tpp());
      if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
        print("parseFunctionDefinition " + functionName);
      return parseFunctionDefinition_step2(functionDefsToAddTo, start, functionName).synthetic(synthetic);
    }

    public GazelleV_LeftArrowScript.FunctionDef parseFunctionDefinition_step2(Map<String, GazelleV_LeftArrowScript.FunctionDef> functionDefsToAddTo, ListAndIndex<String> start, String functionName) {
      LinkedHashMap<String, LASValueDescriptor> args = new LinkedHashMap();
      while (parseFunctionDefArg(args) != null) {
      }
      var returnType = parseColonTypeOpt();
      var fd = new GazelleV_LeftArrowScript.FunctionDef(functionName, keysList(args), null);
      fd.argTypes(valuesArray(LASValueDescriptor.class, args));
      {
        if (functionDefsToAddTo != null)
          functionDefsToAddTo.put(functionName, fd);
      }
      AutoCloseable __13 = tempAddKnownVars(args);
      try {
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          print("Parsing function body");
        fd.body = parseReturnableCurlyBlock();
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          print("Defined function " + functionName + ", added to " + functionDefsToAddTo);
        if (returnType != null)
          fd.returnType(returnType);
        return linkToSrc(start, fd);
      } finally {
        _close(__13);
      }
    }

    public Scope currentScope() {
      return scope;
    }

    public AutoCloseable tempScope(Scope scope) {
      var oldScope = currentScope();
      this.scope = scope;
      return () -> {
        this.scope = oldScope;
      };
    }

    public GazelleV_LeftArrowScript.Script parseReturnableCurlyBlock() {
      return (GazelleV_LeftArrowScript.Script) parseCurlyBlock(new BuildingScript().returnable(true));
    }

    public GazelleV_LeftArrowScript.Evaluable parseCurlyBlock() {
      return parseCurlyBlock(new BuildingScript());
    }

    public GazelleV_LeftArrowScript.Evaluable parseCurlyBlock(BuildingScript script) {
      consume("{");
      boolean inParensOld = inParens;
      inParens = false;
      var body = parseScript(script);
      consume("}");
      inParens = inParensOld;
      return body;
    }

    public GazelleV_LeftArrowScript.Evaluable parseWhileLoop() {
      consume("while");
      var condition = parseExpr();
      var body = parseCurlyBlock(new BuildingScript().isLoopBody(true));
      return new GazelleV_LeftArrowScript.While(condition, body);
    }

    public GazelleV_LeftArrowScript.Evaluable parseForEach() {
      return new ParseForEach().get();
    }

    public class ParseForEach {

      public GazelleV_LeftArrowScript.Evaluable collection, body;

      public IF0<GazelleV_LeftArrowScript.Evaluable> finish;

      public Set<String> vars = new HashSet();

      public String addVar(String var) {
        return addAndReturn(vars, var);
      }

      public String consumeVar() {
        return addVar(consumeIdentifier());
      }

      public void parseBody() {
        AutoCloseable __14 = tempAddKnownVars(vars);
        try {
          body = parseCurlyBlock(new BuildingScript().isLoopBody(true));
        } finally {
          _close(__14);
        }
      }

      public GazelleV_LeftArrowScript.Evaluable get() {
        consume("for");
        if (is(1, "to")) {
          String var = consumeVar();
          consume("to");
          GazelleV_LeftArrowScript.Evaluable endValue = parseExpr();
          parseBody();
          return new GazelleV_LeftArrowScript.ForIntTo(endValue, var, body);
        }
        int iIn = relativeIndexOf("in");
        if (iIn < 0)
          throw fail("for without in");
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          print("iIn", iIn);
        if (iIn == 1) {
          String var = consumeVar();
          finish = () -> new GazelleV_LeftArrowScript.ForEach(collection, var, body);
        } else if (iIn == 2) {
          if (consumeOpt("iterator")) {
            String var = consumeVar();
            finish = () -> new GazelleV_LeftArrowScript.ForIterator(collection, var, body);
          } else if (consumeOpt("nested")) {
            String var = consumeVar();
            finish = () -> new GazelleV_LeftArrowScript.ForNested(collection, var, body);
          } else
            throw fail("Unknown pattern for 'for' loop");
        } else if (iIn == 3) {
          if (isOneOf("pair", "Pair")) {
            consume();
            String varA = consumeVar();
            String varB = consumeVar();
            if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
              printVars("varA", varA, "varB", varB);
            finish = () -> new GazelleV_LeftArrowScript.ForPairs(collection, body, varA, varB);
          } else {
            String varA = consumeVar();
            consume(",");
            String varB = consumeVar();
            finish = () -> new GazelleV_LeftArrowScript.ForKeyValue(collection, body, varA, varB);
          }
        } else if (iIn == 4) {
          consume("index");
          String varIndex = consumeVar();
          consume(",");
          String varElement = consumeVar();
          finish = () -> new GazelleV_LeftArrowScript.ForIndex(collection, body, varIndex, varElement);
        } else
          throw fail("Unknown pattern for 'for' loop");
        consume("in");
        collection = parseExpr_inParens();
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          print("collection", collection);
        parseBody();
        return finish.get();
      }
    }

    public GazelleV_LeftArrowScript.Evaluable parseIfStatement() {
      consume("if");
      GazelleV_LeftArrowScript.Evaluable condition, body, elseBranch = null;
      {
        AutoCloseable __15 = tempAdd(closerTokens, "then");
        try {
          condition = parseExpr();
        } finally {
          _close(__15);
        }
      }
      if (consumeOpt("then")) {
        AutoCloseable __16 = tempAdd(closerTokens, "else");
        try {
          body = parseExpr();
          if (consumeOpt("else"))
            elseBranch = parseExpr();
        } finally {
          _close(__16);
        }
      } else {
        body = parseCurlyBlock();
        if (consumeOpt("else")) {
          if (is("if"))
            elseBranch = parseIfStatement();
          else
            elseBranch = parseCurlyBlock();
        }
      }
      return new GazelleV_LeftArrowScript.IfThen(condition, body, elseBranch);
    }

    public GazelleV_LeftArrowScript.Evaluable parseRepeatStatement() {
      consume("repeat");
      var n = parseExpr();
      var body = parseCurlyBlock();
      return new GazelleV_LeftArrowScript.RepeatN(n, body);
    }

    public void addVar(String var) {
      addVar(var, new LASValueDescriptor());
    }

    public void addVar(String var, LASValueDescriptor type) {
      knownVars.put(var, type);
    }

    public void addVar(String var, Class type, boolean canBeNull) {
      addVar(var, typeToValueDescriptor(type, canBeNull));
    }

    public LASValueDescriptor typeToValueDescriptor(Type type) {
      return typeToValueDescriptor(type, true);
    }

    public LASValueDescriptor typeToValueDescriptor(Type type, boolean canBeNull) {
      return type == null ? new LASValueDescriptor() : new LASValueDescriptor.NonExact(typeToClass(type), canBeNull);
    }

    public Map<String, String> globalClassNames_cache;

    public Map<String, String> globalClassNames() {
      if (globalClassNames_cache == null)
        globalClassNames_cache = globalClassNames_load();
      return globalClassNames_cache;
    }

    public Map<String, String> globalClassNames_load() {
      var packages = mapToTreeSet(importedPackages(), pkg -> pkg + ".");
      Map<String, String> out = new HashMap();
      for (var name : unnullForIteration(importedClasses())) out.put(shortenClassName(name), name);
      for (var fc : functionContainers) if (fc instanceof Class) {
        if (isAnonymousClass((Class) fc))
          continue;
        out.put(shortClassName((Class) fc), className((Class) fc));
      }
      var classContainers = classContainerPrefixes();
      TreeSet<String> classContainerSet = asTreeSet(classContainers);
      for (var className : classNameResolver().allFullyQualifiedClassNames()) {
        if (isAnonymousClassName(className))
          continue;
        if (!contains(className, '$')) {
          String pkg = longestPrefixInTreeSet(className, packages);
          if (pkg != null) {
            String shortName = dropPrefix(pkg, className);
            if (!shortName.contains(".") && !out.containsKey(shortName))
              out.put(shortName, className);
          }
        }
        String container = longestPrefixInTreeSet(className, classContainerSet);
        if (container != null) {
          String shortName = dropPrefix(container, className);
          String existing = out.get(shortName);
          if (existing != null) {
            int priority = indexOf(classContainers, container);
            String oldContainer = longestPrefixInTreeSet(existing, classContainerSet);
            int oldPriority = smartIndexOf(classContainers, oldContainer);
            if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
              printVars("className", className, "shortName", shortName, "container", container, "priority", priority, "existing", existing, "oldPriority", oldPriority);
            if (priority > oldPriority)
              continue;
          }
          out.put(shortName, className);
        }
      }
      for (var __22 : _entrySet(unnullForIteration(classShortcuts()))) {
        var key = __22.getKey();
        var val = __22.getValue();
        String fullName = out.get(val);
        if (fullName != null)
          out.put(key, fullName);
      }
      return out;
    }

    transient public IF0<Map<String, String>> classShortcuts;

    public Map<String, String> classShortcuts() {
      return classShortcuts != null ? classShortcuts.get() : classShortcuts_base();
    }

    final public Map<String, String> classShortcuts_fallback(IF0<Map<String, String>> _f) {
      return _f != null ? _f.get() : classShortcuts_base();
    }

    public Map<String, String> classShortcuts_base() {
      return javaxClassShortcuts();
    }

    transient public IF0<Collection<String>> importedPackages;

    public Collection<String> importedPackages() {
      return importedPackages != null ? importedPackages.get() : importedPackages_base();
    }

    final public Collection<String> importedPackages_fallback(IF0<Collection<String>> _f) {
      return _f != null ? _f.get() : importedPackages_base();
    }

    public Collection<String> importedPackages_base() {
      return itemPlus("java.lang", standardImports_fullyImportedPackages());
    }

    transient public IF0<Collection<String>> importedClasses;

    public Collection<String> importedClasses() {
      return importedClasses != null ? importedClasses.get() : importedClasses_base();
    }

    final public Collection<String> importedClasses_fallback(IF0<Collection<String>> _f) {
      return _f != null ? _f.get() : importedClasses_base();
    }

    public Collection<String> importedClasses_base() {
      return standardImports_singleClasses();
    }

    public void addClassAlias(String alias, String longName) {
      String fullName = globalClassNames().get(longName);
      if (fullName != null)
        globalClassNames().put(alias, fullName);
    }

    public List<String> classContainerPrefixes() {
      return map(functionContainers, fc -> className(fc) + "$");
    }

    static public class UnknownObject extends RuntimeException implements IFieldsToList {

      public String name;

      public UnknownObject() {
      }

      public UnknownObject(String name) {
        this.name = name;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + name + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { name };
      }

      public String getMessage() {
        return "Unknown object: " + name;
      }
    }

    static public class ClassNotFound extends UnknownObject {

      public ClassNotFound(String className) {
        super(className);
      }

      public String getMessage() {
        return "Class not found: " + name;
      }
    }

    abstract static public class Scope {

      public GazelleV_LeftArrowScript.Evaluable parseExprStartingWithIdentifierOpt(String t, boolean inner) {
        return null;
      }

      public GazelleV_LeftArrowScript.Evaluable completeAssignmentOpt(String lhs, GazelleV_LeftArrowScript.Evaluable rhs) {
        return null;
      }
    }

    public class ClassDefScope extends Scope implements IFieldsToList {

      public LASClassDef classDef;

      public ClassDefScope() {
      }

      public ClassDefScope(LASClassDef classDef) {
        this.classDef = classDef;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + classDef + ")";
      }

      public boolean equals(Object o) {
        if (!(o instanceof ClassDefScope))
          return false;
        ClassDefScope __0 = (ClassDefScope) o;
        return eq(classDef, __0.classDef);
      }

      public int hashCode() {
        int h = -1760310585;
        h = boostHashCombine(h, _hashCode(classDef));
        return h;
      }

      public Object[] _fieldsToList() {
        return new Object[] { classDef };
      }

      public GazelleV_LeftArrowScript.Evaluable getThis() {
        return new GazelleV_LeftArrowScript.GetVar("this");
      }

      public GazelleV_LeftArrowScript.Evaluable parseExprStartingWithIdentifierOpt(String t, boolean inner) {
        if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
          printVars("ClassDefScope.parseExprStartingWithIdentifierOpt", "t", t);
        return linkToSrc(() -> {
          var field = classDef.fieldsByName.get(t);
          if (field != null) {
            if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
              print("Found field " + field);
            var e = inner ? new GazelleV_LeftArrowScript.GetField(getThis(), field.name) : new GazelleV_LeftArrowScript.CallMethodOrGetField(getThis(), field.name);
            return parseCall(inner, e);
          }
          Class superClass = typeToClass(classDef.superClass);
          var field2 = findFieldOfClass(superClass, t);
          if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
            printVars("field2", field2, "superClass", superClass, "t", t);
          if (field2 != null) {
            if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
              print("Found field " + field2);
            var e = inner ? new GazelleV_LeftArrowScript.GetField(getThis(), field2.getName()) : new GazelleV_LeftArrowScript.CallMethodOrGetField(getThis(), field2.getName());
            return parseCall(inner, e);
          }
          if (!inner && (classDef.methodsByName.containsKey(t) || classHasMethodNamed(typeToClass(classDef.superClass), t))) {
            return new GazelleV_LeftArrowScript.CallMethod(getThis(), t, parseArguments());
          }
          return null;
        });
      }

      public GazelleV_LeftArrowScript.Evaluable completeAssignmentOpt(String lhs, GazelleV_LeftArrowScript.Evaluable rhs) {
        var field = classDef.fieldsByName.get(lhs);
        if (field != null)
          return new GazelleV_LeftArrowScript.SetField(getThis(), lhs, rhs);
        Class superClass = typeToClass(classDef.superClass);
        var field2 = findFieldOfClass(superClass, lhs);
        if (field2 != null)
          return new GazelleV_LeftArrowScript.SetField(getThis(), lhs, rhs);
        return null;
      }
    }

    public LASClassDef parseClassDef() {
      return linkToSrc(() -> {
        consume("class");
        LASClassDef classDef = new LASClassDef();
        classDef.verbose(scaffoldingEnabled());
        if (nempty(classDefPrefix))
          classDef.classDefPrefix(classDefPrefix);
        String name = consumeIdentifier();
        classDef.userGivenName(name);
        classDefs.put(name, classDef);
        AutoCloseable __17 = tempMapPut(classDefs, "selfType", classDef);
        try {
          if (consumeOpt("extends")) {
            classDef.superClass(parseType());
          }
          if (consumeOpt("is"))
            classDef.interfaces.add(parseType());
          consume("{");
          AutoCloseable __18 = tempAddKnownVar("this", new LASValueDescriptor.NonExactType(classDef.resolvable(lasClassLoader), false));
          try {
            AutoCloseable __19 = !objectScopesEnabled ? null : tempScope(new ClassDefScope(classDef));
            try {
              while (!is("}")) {
                if (is(";")) {
                  next();
                  continue;
                }
                if (is("def")) {
                  GazelleV_LeftArrowScript.FunctionDef fd = parseFunctionDefinition(null);
                  if (GazelleV_LeftArrowScriptParser.this.scaffoldingEnabled())
                    printVars("knownVarsAfterFunctionDef", knownVars);
                  classDef.addMethod(fd);
                  continue;
                }
                var start = ptr();
                if (consumeOpt("ctor")) {
                  var fd = parseFunctionDefinition_step2(null, start, "<init>");
                  fd.returnType(void.class);
                  classDef.addMethod(fd);
                  continue;
                }
                if (consumeOpt("initializer")) {
                  classDef.initializers.add(parseCurlyBlock());
                  continue;
                }
                LASClassDef.FieldDef fd = new LASClassDef.FieldDef();
                if (is("transient")) {
                  fd.addModifier(tpp());
                }
                fd.name(consumeIdentifier());
                var type = parseColonType();
                fd.type(type);
                if (consumeLeftArrowOpt())
                  fd.initializer(parseExpr());
                classDef.addField(fd);
              }
              consume("}");
              return classDef;
            } finally {
              _close(__19);
            }
          } finally {
            _close(__18);
          }
        } finally {
          _close(__17);
        }
      });
    }

    public Type parseColonTypeOpt() {
      if (is(":"))
        return parseColonType();
      return null;
    }

    public Type parseColonType() {
      consume(":");
      return parseType();
    }

    public Type findType(String typeName) {
      LASClassDef cd = classDefs.get(typeName);
      if (cd != null)
        return cd.resolvable(lasClassLoader);
      Object o = findExternalObject(typeName);
      if (o instanceof Class)
        return ((Class) o);
      throw new ClassNotFound(typeName);
    }

    public Type parseType() {
      String typeName = consumeIdentifier();
      Type type = findType(typeName);
      return parseArrayType(parseTypeArguments(type));
    }

    public Type parseArrayType(Type type) {
      while (is("[") && is(1, "]")) {
        consume(2);
        type = new GenericArrayTypeImpl(type);
      }
      return type;
    }

    final public Type parseTypeArgumentsOpt(Type type) {
      return parseTypeArguments(type);
    }

    public Type parseTypeArguments(Type type) {
      if (is("<") && empty(nextSpace()) && isIdentifier(token(1))) {
        next();
        List<Type> args = new ArrayList();
        while (true) {
          args.add(parseType());
          if (is(">"))
            break;
          consume(",");
        }
        consume(">");
        if (type != null)
          type = new ParameterizedTypeImpl(null, type, toTypedArray(Type.class, args));
      }
      return type;
    }

    transient public IF1<String, Class> classForName;

    public Class classForName(String name) {
      return classForName != null ? classForName.get(name) : classForName_base(name);
    }

    final public Class classForName_fallback(IF1<String, Class> _f, String name) {
      return _f != null ? _f.get(name) : classForName_base(name);
    }

    public Class classForName_base(String name) {
      try {
        return Class.forName(name);
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void copyFunctionContainersFrom(GazelleV_LeftArrowScriptParser parser) {
      functionContainers = cloneList(parser.functionContainers);
      globalClassNames_cache = parser.globalClassNames();
      isBlockedFunctionContainerMethod = parser.isBlockedFunctionContainerMethod;
    }

    public ClassNameResolver classNameResolver() {
      if (classNameResolver == null)
        classNameResolver = new ClassNameResolver().byteCodePath(assertNotNull(getBytecodePathForClass(this))).init();
      return classNameResolver;
    }

    public GazelleV_LeftArrowScriptParser classNameResolver(ClassNameResolver classNameResolver) {
      this.classNameResolver = classNameResolver;
      return this;
    }

    public GazelleV_LeftArrowScript.Evaluable parseStringLiteral() {
      return _const(unquote_relaxedMLS(consume()));
    }

    public void addFunctionDefs(Map<String, GazelleV_LeftArrowScript.FunctionDef> map) {
      putAll(functionDefs, map);
    }

    public GazelleV_LeftArrowScriptParser setFlag(String flag) {
      flags.add(flag);
      return this;
    }

    public boolean getFlag(String flag) {
      return flags.contains(flag);
    }

    public void noImports() {
      importedPackages = () -> null;
      importedClasses = () -> null;
      classShortcuts = () -> null;
    }
  }

  static public class Complex implements IFieldsToList {

    static final public String _fieldOrder = "re im";

    public double re;

    public double im;

    public Complex() {
    }

    public Complex(double re, double im) {
      this.im = im;
      this.re = re;
    }

    public boolean equals(Object o) {
      if (!(o instanceof Complex))
        return false;
      Complex __1 = (Complex) o;
      return re == __1.re && im == __1.im;
    }

    public int hashCode() {
      int h = -1679819632;
      h = boostHashCombine(h, _hashCode(re));
      h = boostHashCombine(h, _hashCode(im));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { re, im };
    }

    public double abs() {
      return sqrt(re * re + im * im);
    }

    public double re() {
      return re;
    }

    public double im() {
      return im;
    }

    final public double angle() {
      return phase();
    }

    public double phase() {
      return Math.atan2(im, re);
    }

    public double fracAngle() {
      return fracNonNeg(angle() / twoPi());
    }

    public String toString() {
      if (im != 0)
        return re == 0 ? im + "i" : re + plusPrefixUnlessMinus(str(im)) + "i";
      else
        return str(re);
    }
  }

  static public class PingSource {

    final public PingSource setAction(IF0<Boolean> action) {
      return action(action);
    }

    public PingSource action(IF0<Boolean> action) {
      this.action = action;
      return this;
    }

    final public IF0<Boolean> getAction() {
      return action();
    }

    public IF0<Boolean> action() {
      return action;
    }

    volatile public IF0<Boolean> action;

    public String text;

    public ThreadPool threadPool;

    public PingSource() {
    }

    public PingSource(ThreadPool threadPool) {
      this.threadPool = threadPool;
    }

    public PingSource(ThreadPool threadPool, String text) {
      this.text = text;
      this.threadPool = threadPool;
    }

    public PingSource(IF0<Boolean> action) {
      this.action = action;
    }

    final public boolean get() {
      var a = action;
      return a != null && a.get();
    }

    final public void ping() {
      var a = action;
      if (a != null)
        a.get();
    }

    public void cancel() {
      action = new Cancelled();
    }

    public class Cancelled implements IF0<Boolean> {

      public Boolean get() {
        throw new PingSourceCancelledException(PingSource.this);
      }
    }

    public class Encapsulated implements Runnable, IFieldsToList {

      public Runnable r;

      public Encapsulated() {
      }

      public Encapsulated(Runnable r) {
        this.r = r;
      }

      public Object[] _fieldsToList() {
        return new Object[] { r };
      }

      public void run() {
        try {
          try {
            pingSource_tl().set(PingSource.this);
            ping();
            r.run();
          } finally {
            pingSource_tl().set(null);
          }
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return PingSource.this + ": " + r;
      }
    }

    public void dO(Runnable r) {
      if (r == null)
        return;
      threadPool.acquireThreadOrQueue(new Encapsulated(r));
    }

    public String toString() {
      String t = text;
      return nempty(t) ? t : super.toString();
    }

    public ISleeper_v2 sleeper() {
      return threadPool.sleeper();
    }
  }

  static public class MultiMap<A, B> implements IMultiMap<A, B> {

    public Map<A, List<B>> data = new HashMap<A, List<B>>();

    public int fullSize;

    public MultiMap() {
    }

    public MultiMap(boolean useTreeMap) {
      if (useTreeMap)
        data = new TreeMap();
    }

    public MultiMap(MultiMap<A, B> map) {
      putAll(map);
    }

    public MultiMap(Map<A, List<B>> data) {
      this.data = data;
    }

    public void put(A key, B value) {
      synchronized (data) {
        List<B> list = data.get(key);
        if (list == null)
          data.put(key, list = _makeEmptyList());
        list.add(value);
        ++fullSize;
      }
    }

    public void add(A key, B value) {
      put(key, value);
    }

    public void addAll(A key, Collection<B> values) {
      putAll(key, values);
    }

    public void addAllIfNotThere(A key, Collection<B> values) {
      synchronized (data) {
        for (B value : values) setPut(key, value);
      }
    }

    public void setPut(A key, B value) {
      synchronized (data) {
        if (!containsPair(key, value))
          put(key, value);
      }
    }

    public boolean containsPair(A key, B value) {
      synchronized (data) {
        return get(key).contains(value);
      }
    }

    public void putAll(Collection<A> keys, B value) {
      synchronized (data) {
        for (A key : unnullForIteration(keys)) put(key, value);
      }
    }

    public void putAll(A key, Collection<B> values) {
      synchronized (data) {
        if (nempty(values))
          getActual(key).addAll(values);
      }
    }

    public void putAll(Iterable<Pair<A, B>> pairs) {
      synchronized (data) {
        for (Pair<A, B> p : unnullForIteration(pairs)) put(p.a, p.b);
      }
    }

    public void removeAll(A key, Collection<B> values) {
      synchronized (data) {
        for (B value : values) remove(key, value);
      }
    }

    public List<B> get(A key) {
      synchronized (data) {
        List<B> list = data.get(key);
        return list == null ? Collections.<B>emptyList() : list;
      }
    }

    public List<B> getOpt(A key) {
      synchronized (data) {
        return data.get(key);
      }
    }

    public List<B> getAndClear(A key) {
      synchronized (data) {
        List<B> l = cloneList(data.get(key));
        remove(key);
        return l;
      }
    }

    public List<B> getActual(A key) {
      synchronized (data) {
        List<B> list = data.get(key);
        if (list == null)
          data.put(key, list = _makeEmptyList());
        return list;
      }
    }

    public void clean(A key) {
      synchronized (data) {
        List<B> list = data.get(key);
        if (list != null && list.isEmpty()) {
          fullSize -= l(list);
          data.remove(key);
        }
      }
    }

    final public Set<A> keys() {
      return keySet();
    }

    public Set<A> keySet() {
      synchronized (data) {
        return data.keySet();
      }
    }

    public void remove(A key) {
      synchronized (data) {
        fullSize -= l(this.getOpt(key));
        data.remove(key);
      }
    }

    final public void remove(Pair<A, B> p) {
      removePair(p);
    }

    public void removePair(Pair<A, B> p) {
      if (p != null)
        remove(p.a, p.b);
    }

    public void remove(A key, B value) {
      synchronized (data) {
        List<B> list = data.get(key);
        if (list != null) {
          if (list.remove(value))
            fullSize--;
          if (list.isEmpty())
            data.remove(key);
        }
      }
    }

    public void clear() {
      synchronized (data) {
        data.clear();
      }
    }

    public boolean containsKey(A key) {
      synchronized (data) {
        return data.containsKey(key);
      }
    }

    public B getFirst(A key) {
      synchronized (data) {
        List<B> list = get(key);
        return list.isEmpty() ? null : list.get(0);
      }
    }

    public void addAll(MultiMap<A, B> map) {
      putAll(map);
    }

    public void putAll(MultiMap<A, B> map) {
      synchronized (data) {
        for (A key : map.keySet()) putAll(key, map.get(key));
      }
    }

    public void putAll(Map<A, B> map) {
      synchronized (data) {
        if (map != null)
          for (Map.Entry<A, B> e : map.entrySet()) put(e.getKey(), e.getValue());
      }
    }

    final public int keyCount() {
      return keysSize();
    }

    public int keysSize() {
      synchronized (data) {
        return l(data);
      }
    }

    final public int fullSize() {
      return size();
    }

    public int size() {
      synchronized (data) {
        return fullSize;
      }
    }

    public List<A> reverseGet(B b) {
      synchronized (data) {
        List<A> l = new ArrayList();
        for (A key : data.keySet()) if (data.get(key).contains(b))
          l.add(key);
        return l;
      }
    }

    public Map<A, List<B>> asMap() {
      synchronized (data) {
        return cloneMap(data);
      }
    }

    public boolean isEmpty() {
      synchronized (data) {
        return data.isEmpty();
      }
    }

    public List<B> _makeEmptyList() {
      return new ArrayList();
    }

    public Collection<List<B>> allLists() {
      synchronized (data) {
        return new ArrayList(data.values());
      }
    }

    public Collection<List<B>> values() {
      return allLists();
    }

    public List<B> allValues() {
      return concatLists(data.values());
    }

    public Object mutex() {
      return data;
    }

    public String toString() {
      return "mm" + str(data);
    }

    public Map<A, List<B>> innerMap() {
      return data;
    }
  }

  static public class SynchronizedSet<E> extends SynchronizedCollection<E> implements Set<E> {

    public SynchronizedSet() {
    }

    public SynchronizedSet(Set<E> s) {
      super(s);
    }

    public SynchronizedSet(Set<E> s, Object mutex) {
      super(s, mutex);
    }

    public boolean equals(Object o) {
      if (this == o)
        return true;
      synchronized (mutex) {
        return c.equals(o);
      }
    }

    public int hashCode() {
      synchronized (mutex) {
        return c.hashCode();
      }
    }
  }

  static public class TestCloseableIterableIterator extends CloseableIterableIterator<Object> {

    public int i;

    transient public Set<Runnable> onClosing;

    public TestCloseableIterableIterator onClosing(Runnable r) {
      onClosing = createOrAddToSyncLinkedHashSet(onClosing, r);
      return this;
    }

    public TestCloseableIterableIterator removeClosingListener(Runnable r) {
      main.remove(onClosing, r);
      return this;
    }

    public void closing() {
      if (onClosing != null)
        for (var listener : onClosing) pcallF_typed(listener);
    }

    public boolean hasNext() {
      return i == 0;
    }

    public Object next() {
      i++;
      return null;
    }

    public void close() {
      closing();
    }
  }

  static public class BetterThreadLocal<A> {

    public Map<Thread, A> map = newWeakHashMap();

    public BetterThreadLocal() {
    }

    public BetterThreadLocal(A value) {
      set(value);
    }

    public boolean isSet() {
      return map.containsKey(currentThread());
    }

    public A get() {
      if (map.containsKey(currentThread()))
        return map.get(currentThread());
      A value = initialValue();
      set(value);
      return value;
    }

    public A get(Thread thread) {
      return thread == null ? null : map.get(thread);
    }

    public void set(A a) {
      map.put(currentThread(), a);
    }

    public A initialValue() {
      return null;
    }
  }

  public interface IntSize {

    public int size();

    default public boolean isEmpty() {
      return size() == 0;
    }
  }

  static public class SynchronizedMap<K, V> implements Map<K, V>, Serializable {

    public SynchronizedMap() {
    }

    public Map<K, V> m;

    public Object mutex;

    public SynchronizedMap(Map<K, V> m) {
      this.m = Objects.requireNonNull(m);
      mutex = this;
    }

    public SynchronizedMap(Map<K, V> m, Object mutex) {
      this.m = m;
      this.mutex = mutex;
    }

    public Map<K, V> innerMap() {
      return m;
    }

    public int size() {
      synchronized (mutex) {
        return m.size();
      }
    }

    public boolean isEmpty() {
      synchronized (mutex) {
        return m.isEmpty();
      }
    }

    public boolean containsKey(Object key) {
      synchronized (mutex) {
        return m.containsKey(key);
      }
    }

    public boolean containsValue(Object value) {
      synchronized (mutex) {
        return m.containsValue(value);
      }
    }

    public V get(Object key) {
      synchronized (mutex) {
        return m.get(key);
      }
    }

    public V put(K key, V value) {
      synchronized (mutex) {
        return m.put(key, value);
      }
    }

    public V remove(Object key) {
      synchronized (mutex) {
        return m.remove(key);
      }
    }

    public void putAll(Map<? extends K, ? extends V> map) {
      synchronized (mutex) {
        m.putAll(map);
      }
    }

    public void clear() {
      synchronized (mutex) {
        m.clear();
      }
    }

    transient public Set<K> keySet;

    transient public Set<Map.Entry<K, V>> entrySet;

    transient public Collection<V> values;

    public Set<K> keySet() {
      synchronized (mutex) {
        if (keySet == null)
          keySet = new SynchronizedSet<>(m.keySet(), mutex);
        return keySet;
      }
    }

    public Set<Map.Entry<K, V>> entrySet() {
      synchronized (mutex) {
        if (entrySet == null)
          entrySet = new SynchronizedSet<>(m.entrySet(), mutex);
        return entrySet;
      }
    }

    public Collection<V> values() {
      synchronized (mutex) {
        if (values == null)
          values = new SynchronizedCollection<>(m.values(), mutex);
        return values;
      }
    }

    public boolean equals(Object o) {
      if (this == o)
        return true;
      synchronized (mutex) {
        return m.equals(o);
      }
    }

    public int hashCode() {
      synchronized (mutex) {
        return m.hashCode();
      }
    }

    public String toString() {
      synchronized (mutex) {
        return m.toString();
      }
    }

    @Override
    public V getOrDefault(Object k, V defaultValue) {
      synchronized (mutex) {
        return m.getOrDefault(k, defaultValue);
      }
    }

    @Override
    public void forEach(BiConsumer<? super K, ? super V> action) {
      synchronized (mutex) {
        m.forEach(action);
      }
    }

    @Override
    public void replaceAll(BiFunction<? super K, ? super V, ? extends V> function) {
      synchronized (mutex) {
        m.replaceAll(function);
      }
    }

    @Override
    public V putIfAbsent(K key, V value) {
      synchronized (mutex) {
        return m.putIfAbsent(key, value);
      }
    }

    @Override
    public boolean remove(Object key, Object value) {
      synchronized (mutex) {
        return m.remove(key, value);
      }
    }

    @Override
    public boolean replace(K key, V oldValue, V newValue) {
      synchronized (mutex) {
        return m.replace(key, oldValue, newValue);
      }
    }

    @Override
    public V replace(K key, V value) {
      synchronized (mutex) {
        return m.replace(key, value);
      }
    }

    @Override
    public V computeIfAbsent(K key, java.util.function.Function<? super K, ? extends V> mappingFunction) {
      synchronized (mutex) {
        return m.computeIfAbsent(key, mappingFunction);
      }
    }

    @Override
    public V computeIfPresent(K key, BiFunction<? super K, ? super V, ? extends V> remappingFunction) {
      synchronized (mutex) {
        return m.computeIfPresent(key, remappingFunction);
      }
    }

    @Override
    public V compute(K key, BiFunction<? super K, ? super V, ? extends V> remappingFunction) {
      synchronized (mutex) {
        return m.compute(key, remappingFunction);
      }
    }

    @Override
    public V merge(K key, V value, BiFunction<? super V, ? super V, ? extends V> remappingFunction) {
      synchronized (mutex) {
        return m.merge(key, value, remappingFunction);
      }
    }

    @java.io.Serial
    private void writeObject(ObjectOutputStream s) throws IOException {
      synchronized (mutex) {
        s.defaultWriteObject();
      }
    }
  }

  static final public class WeakHasherMap<K, V> extends AbstractMap<K, V> implements Map<K, V> {

    public Hasher hasher = null;

    private boolean keyEquals(Object k1, Object k2) {
      return (hasher == null ? k1.equals(k2) : hasher.equals(k1, k2));
    }

    private int keyHashCode(Object k1) {
      return (hasher == null ? k1.hashCode() : hasher.hashCode(k1));
    }

    private WeakKey WeakKeyCreate(K k) {
      if (k == null)
        return null;
      else
        return new WeakKey(k);
    }

    private WeakKey WeakKeyCreate(K k, ReferenceQueue<? super K> q) {
      if (k == null)
        return null;
      else
        return new WeakKey(k, q);
    }

    final public class WeakKey extends WeakReference<K> {

      public int hash;

      public WeakKey(K k) {
        super(k);
        hash = keyHashCode(k);
      }

      private WeakKey create(K k) {
        if (k == null)
          return null;
        else
          return new WeakKey(k);
      }

      public WeakKey(K k, ReferenceQueue<? super K> q) {
        super(k, q);
        hash = keyHashCode(k);
      }

      private WeakKey create(K k, ReferenceQueue<? super K> q) {
        if (k == null)
          return null;
        else
          return new WeakKey(k, q);
      }

      @Override
      public boolean equals(Object o) {
        if (o == null)
          return false;
        if (this == o)
          return true;
        if (!(o.getClass().equals(WeakKey.class)))
          return false;
        Object t = this.get();
        @SuppressWarnings("unchecked")
        Object u = ((WeakKey) o).get();
        if ((t == null) || (u == null))
          return false;
        if (t == u)
          return true;
        return keyEquals(t, u);
      }

      @Override
      public int hashCode() {
        return hash;
      }
    }

    public HashMap<WeakKey, V> hash;

    public ReferenceQueue<? super K> queue = new ReferenceQueue<K>();

    @SuppressWarnings("unchecked")
    private void processQueue() {
      WeakKey wk;
      while ((wk = (WeakKey) queue.poll()) != null) {
        hash.remove(wk);
      }
    }

    public WeakHasherMap(int initialCapacity, float loadFactor) {
      hash = new HashMap<WeakKey, V>(initialCapacity, loadFactor);
    }

    public WeakHasherMap(int initialCapacity) {
      hash = new HashMap<WeakKey, V>(initialCapacity);
    }

    public WeakHasherMap() {
      hash = new HashMap<WeakKey, V>();
    }

    public WeakHasherMap(Hasher h) {
      hash = new HashMap<WeakKey, V>();
      hasher = h;
    }

    @Override
    public int size() {
      return entrySet().size();
    }

    @Override
    public boolean isEmpty() {
      return entrySet().isEmpty();
    }

    @Override
    public boolean containsKey(Object key) {
      @SuppressWarnings("unchecked")
      K kkey = (K) key;
      return hash.containsKey(WeakKeyCreate(kkey));
    }

    @Override
    public V get(Object key) {
      @SuppressWarnings("unchecked")
      K kkey = (K) key;
      return hash.get(WeakKeyCreate(kkey));
    }

    @Override
    public V put(K key, V value) {
      processQueue();
      return hash.put(WeakKeyCreate(key, queue), value);
    }

    @Override
    public V remove(Object key) {
      processQueue();
      @SuppressWarnings("unchecked")
      K kkey = (K) key;
      return hash.remove(WeakKeyCreate(kkey));
    }

    @Override
    public void clear() {
      processQueue();
      hash.clear();
    }

    @SuppressWarnings("TypeParameterShadowing")
    final public class Entry<K, V> implements Map.Entry<K, V> {

      public Map.Entry<WeakKey, V> ent;

      public K key;

      public Entry(Map.Entry<WeakKey, V> ent, K key) {
        this.ent = ent;
        this.key = key;
      }

      @Override
      public K getKey() {
        return key;
      }

      @Override
      public V getValue() {
        return ent.getValue();
      }

      @Override
      public V setValue(V value) {
        return ent.setValue(value);
      }

      private boolean keyvalEquals(K o1, K o2) {
        return (o1 == null) ? (o2 == null) : keyEquals(o1, o2);
      }

      private boolean valEquals(V o1, V o2) {
        return (o1 == null) ? (o2 == null) : o1.equals(o2);
      }

      @SuppressWarnings("NonOverridingEquals")
      public boolean equals(Map.Entry<K, V> e) {
        return (keyvalEquals(key, e.getKey()) && valEquals(getValue(), e.getValue()));
      }

      @Override
      public int hashCode() {
        V v;
        return (((key == null) ? 0 : keyHashCode(key)) ^ (((v = getValue()) == null) ? 0 : v.hashCode()));
      }
    }

    final public class EntrySet extends AbstractSet<Map.Entry<K, V>> {

      public Set<Map.Entry<WeakKey, V>> hashEntrySet = hash.entrySet();

      @Override
      public Iterator<Map.Entry<K, V>> iterator() {
        return new Iterator<Map.Entry<K, V>>() {

          public Iterator<Map.Entry<WeakKey, V>> hashIterator = hashEntrySet.iterator();

          public Map.Entry<K, V> next = null;

          @Override
          public boolean hasNext() {
            while (hashIterator.hasNext()) {
              Map.Entry<WeakKey, V> ent = hashIterator.next();
              WeakKey wk = ent.getKey();
              K k = null;
              if ((wk != null) && ((k = wk.get()) == null)) {
                continue;
              }
              next = new Entry<K, V>(ent, k);
              return true;
            }
            return false;
          }

          @Override
          public Map.Entry<K, V> next() {
            if ((next == null) && !hasNext())
              throw new NoSuchElementException();
            Map.Entry<K, V> e = next;
            next = null;
            return e;
          }

          @Override
          public void remove() {
            hashIterator.remove();
          }
        };
      }

      @Override
      public boolean isEmpty() {
        return !(iterator().hasNext());
      }

      @Override
      public int size() {
        int j = 0;
        for (Iterator<Map.Entry<K, V>> i = iterator(); i.hasNext(); i.next()) j++;
        return j;
      }

      @Override
      public boolean remove(Object o) {
        processQueue();
        if (!(o instanceof Map.Entry<?, ?>))
          return false;
        @SuppressWarnings("unchecked")
        Map.Entry<K, V> e = (Map.Entry<K, V>) o;
        Object ev = e.getValue();
        WeakKey wk = WeakKeyCreate(e.getKey());
        Object hv = hash.get(wk);
        if ((hv == null) ? ((ev == null) && hash.containsKey(wk)) : hv.equals(ev)) {
          hash.remove(wk);
          return true;
        }
        return false;
      }

      @Override
      public int hashCode() {
        int h = 0;
        for (Iterator<Map.Entry<WeakKey, V>> i = hashEntrySet.iterator(); i.hasNext(); ) {
          Map.Entry<WeakKey, V> ent = i.next();
          WeakKey wk = ent.getKey();
          Object v;
          if (wk == null)
            continue;
          h += (wk.hashCode() ^ (((v = ent.getValue()) == null) ? 0 : v.hashCode()));
        }
        return h;
      }
    }

    public Set<Map.Entry<K, V>> entrySet = null;

    @Override
    public Set<Map.Entry<K, V>> entrySet() {
      if (entrySet == null)
        entrySet = new EntrySet();
      return entrySet;
    }

    public K findKey(Object key) {
      processQueue();
      K kkey = (K) key;
      WeakKey wkey = WeakKeyCreate(kkey);
      WeakKey found = hashMap_findKey(hash, wkey);
      return found == null ? null : found.get();
    }
  }

  static public class CompactLinkedHashSet<A> extends AbstractSet<A> {

    public UnsynchronizedCompactHashSet<Entry<A>> entries = new UnsynchronizedCompactHashSet();

    public Entry<A> head, tail;

    static public class Entry<A> {

      public A value;

      public Entry<A> prev, next;

      public int hashCode() {
        return _hashCode(value);
      }

      public boolean equals(Object o) {
        return o == this || eq(value, o);
      }
    }

    public boolean add(A a) {
      if (entries.contains(a))
        return false;
      Entry<A> n = new Entry();
      n.value = a;
      n.prev = tail;
      if (tail != null)
        tail.next = n;
      tail = n;
      if (head == null)
        head = n;
      entries.add(n);
      return true;
    }

    public boolean remove(Object a) {
      return remove(entries.find(a));
    }

    public boolean remove(Entry<A> node) {
      if (node == null)
        return false;
      if (node.next != null)
        node.next.prev = node.prev;
      else
        tail = node.prev;
      if (node.prev != null)
        node.prev.next = node.next;
      else
        head = node.next;
      entries.remove(node);
      return true;
    }

    public int size() {
      return entries.size();
    }

    public IterableIterator<A> iterator() {
      return new IterableIterator<A>() {

        public Entry<A> entry = head, prev = null;

        public boolean hasNext() {
          return entry != null;
        }

        public A next() {
          A a = entry.value;
          prev = entry;
          entry = entry.next;
          return a;
        }

        public void remove() {
          if (prev == null)
            throw new IllegalStateException();
          CompactLinkedHashSet.this.remove(prev);
          prev = null;
        }
      };
    }

    public void clear() {
      entries.clear();
      head = tail = null;
    }

    public boolean contains(Object a) {
      return entries.contains(a);
    }

    public A find(Object o) {
      Entry<A> e = entries.find(o);
      return e == null ? null : e.value;
    }

    public A prevElement(A a) {
      Entry<A> e = entries.find(a);
      if (e == null || e.prev == null)
        return null;
      return e.prev.value;
    }

    public A nextElement(A a) {
      Entry<A> e = entries.find(a);
      if (e == null || e.next == null)
        return null;
      return e.next.value;
    }

    public A first() {
      return head == null ? null : head.value;
    }

    public A last() {
      return tail == null ? null : tail.value;
    }

    public boolean removeIfSame(Object o) {
      A value = find(o);
      if (value == o) {
        remove(value);
        return true;
      }
      return false;
    }
  }

  static public class Pair<A, B> implements Comparable<Pair<A, B>> {

    final public Pair<A, B> setA(A a) {
      return a(a);
    }

    public Pair<A, B> a(A a) {
      this.a = a;
      return this;
    }

    final public A getA() {
      return a();
    }

    public A a() {
      return a;
    }

    public A a;

    final public Pair<A, B> setB(B b) {
      return b(b);
    }

    public Pair<A, B> b(B b) {
      this.b = b;
      return this;
    }

    final public B getB() {
      return b();
    }

    public B b() {
      return b;
    }

    public B b;

    public Pair() {
    }

    public Pair(A a, B b) {
      this.b = b;
      this.a = a;
    }

    public int hashCode() {
      return hashCodeFor(a) + 2 * hashCodeFor(b);
    }

    public boolean equals(Object o) {
      if (o == this)
        return true;
      if (!(o instanceof Pair))
        return false;
      Pair t = (Pair) o;
      return eq(a, t.a) && eq(b, t.b);
    }

    public String toString() {
      return "<" + a + ", " + b + ">";
    }

    public int compareTo(Pair<A, B> p) {
      if (p == null)
        return 1;
      int i = ((Comparable<A>) a).compareTo(p.a);
      if (i != 0)
        return i;
      return ((Comparable<B>) b).compareTo(p.b);
    }
  }

  static public class Fail extends RuntimeException implements IFieldsToList {

    public Object[] objects;

    public Fail() {
    }

    public Fail(Object... objects) {
      this.objects = objects;
    }

    public Object[] _fieldsToList() {
      return new Object[] { objects };
    }

    public Fail(Throwable cause, Object... objects) {
      super(cause);
      this.objects = objects;
    }

    public String toString() {
      return joinNemptiesWithColon("Fail", getMessage());
    }

    public String getMessage() {
      return commaCombine(getCause(), objects);
    }
  }

  static public interface IResourceHolder {

    public <A extends AutoCloseable> A add(A a);

    public Collection<AutoCloseable> takeAll();
  }

  static public class Rect implements WidthAndHeight, IFieldsToList {

    static final public String _fieldOrder = "x y w h";

    public int x;

    public int y;

    public int w;

    public int h;

    public Rect() {
    }

    public Rect(int x, int y, int w, int h) {
      this.h = h;
      this.w = w;
      this.y = y;
      this.x = x;
    }

    public boolean equals(Object o) {
      if (!(o instanceof Rect))
        return false;
      Rect __1 = (Rect) o;
      return x == __1.x && y == __1.y && w == __1.w && h == __1.h;
    }

    public int hashCode() {
      int h = 2543108;
      h = boostHashCombine(h, _hashCode(x));
      h = boostHashCombine(h, _hashCode(y));
      h = boostHashCombine(h, _hashCode(w));
      h = boostHashCombine(h, _hashCode(h));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { x, y, w, h };
    }

    public Rect(Rectangle r) {
      x = r.x;
      y = r.y;
      w = r.width;
      h = r.height;
    }

    public Rect(Pt p, int w, int h) {
      this.h = h;
      this.w = w;
      x = p.x;
      y = p.y;
    }

    public Rect(Rect r) {
      x = r.x;
      y = r.y;
      w = r.w;
      h = r.h;
    }

    final public Rectangle getRectangle() {
      return new Rectangle(x, y, w, h);
    }

    public String toString() {
      return x + "," + y + " / " + w + "," + h;
    }

    final public int x1() {
      return x;
    }

    final public int y1() {
      return y;
    }

    final public int x2() {
      return x + w;
    }

    final public int y2() {
      return y + h;
    }

    final public boolean contains(Pt p) {
      return contains(p.x, p.y);
    }

    final public boolean contains(int _x, int _y) {
      return _x >= x && _y >= y && _x < x + w && _y < y + h;
    }

    final public boolean contains(Rectangle r) {
      return rectContains(this, r);
    }

    final public boolean empty() {
      return w <= 0 || h <= 0;
    }

    final public int getWidth() {
      return w;
    }

    final public int getHeight() {
      return h;
    }

    final public int area() {
      return w * h;
    }

    final public int x() {
      return x;
    }

    final public int y() {
      return y;
    }

    public WidthAndHeight widthAndHeight() {
      return main.widthAndHeight(w, h);
    }
  }

  static public class Pt implements Comparable<Pt>, IDoublePt {

    public int x, y;

    public Pt() {
    }

    public Pt(Point p) {
      x = p.x;
      y = p.y;
    }

    public Pt(int x, int y) {
      this.y = y;
      this.x = x;
    }

    public Point getPoint() {
      return new Point(x, y);
    }

    public boolean equals(Object o) {
      return o instanceof Pt && x == ((Pt) o).x && y == ((Pt) o).y;
    }

    public int hashCode() {
      return boostHashCombine(x, y);
    }

    public int compareTo(Pt p) {
      if (y != p.y)
        return cmp(y, p.y);
      return cmp(x, p.x);
    }

    public String toString() {
      return x + ", " + y;
    }

    public double length() {
      return sqrt(x * x + y * y);
    }

    public Pt minus(Pt p) {
      return ptMinus(this, p);
    }

    public double x_double() {
      return x;
    }

    public double y_double() {
      return y;
    }
  }

  static public class LeftArrowScriptAutoCompleter extends Meta implements IFieldsToList {

    public GazelleV_LeftArrowScriptParser parser;

    public LeftArrowScriptAutoCompleter() {
    }

    public LeftArrowScriptAutoCompleter(GazelleV_LeftArrowScriptParser parser) {
      this.parser = parser;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + parser + ")";
    }

    public Object[] _fieldsToList() {
      return new Object[] { parser };
    }

    public List<String> tok;

    public CharInToken cursor;

    public String typedCharacters;

    public ScoredStringSearcher searcher;

    final public LeftArrowScriptAutoCompleter setG22utils(G22Utils g22utils) {
      return g22utils(g22utils);
    }

    public LeftArrowScriptAutoCompleter g22utils(G22Utils g22utils) {
      this.g22utils = g22utils;
      return this;
    }

    final public G22Utils getG22utils() {
      return g22utils();
    }

    public G22Utils g22utils() {
      return g22utils;
    }

    public G22Utils g22utils;

    public TreeMap<Integer, Collection<String>> knownVarsByTokenIdx = new TreeMap();

    public Map<Integer, LASValueDescriptor> typeHooks = new HashMap();

    transient public Set<Runnable> onAdaptingSearcher;

    public LeftArrowScriptAutoCompleter onAdaptingSearcher(Runnable r) {
      onAdaptingSearcher = createOrAddToSyncLinkedHashSet(onAdaptingSearcher, r);
      return this;
    }

    public LeftArrowScriptAutoCompleter removeAdaptingSearcherListener(Runnable r) {
      main.remove(onAdaptingSearcher, r);
      return this;
    }

    public void adaptingSearcher() {
      if (onAdaptingSearcher != null)
        for (var listener : onAdaptingSearcher) pcallF_typed(listener);
    }

    public LeftArrowScriptAutoCompleter(G22Utils g22utils, GazelleV_LeftArrowScriptParser parser) {
      this.parser = parser;
      this.g22utils = g22utils;
    }

    public void seekEnd(String text) {
      seek(text, l(text));
    }

    public void seek(String text, int iChar) {
      if (tok != null)
        throw fail("Don't reuse instance");
      parser.setText(text);
      parser.init();
      tok = parser.tok;
      cursor = charIndexToCharInToken(tok, iChar);
      if (even(cursor.iTok) && cursor.iTok > 0 && cursor.iChar == 0) {
        cursor.iTok--;
        cursor.iChar = l(token());
      }
      if (cursor.iTok > 1 && cursor.iChar == 0 && empty(space())) {
        cursor.iTok -= 2;
        cursor.iChar = l(token());
      }
      typedCharacters = takeFirst(cursor.token(), cursor.iChar);
      parser.onKnownVarsSnapshot(knownVars -> knownVarsByTokenIdx.put(parser.tokIdx(), cloneKeys(knownVars)));
      parser.onTypeHook(type -> typeHooks.put(parser.tokIdx(), type));
      try {
        parser.parse();
      } catch (Throwable __e) {
        print(exceptionToStringShort(__e));
      }
    }

    public String typedCharacters() {
      return typedCharacters;
    }

    public String space() {
      return get(tok, cursor.iTok - 1);
    }

    public String token() {
      return get(tok, cursor.iTok);
    }

    public String prevToken() {
      return get(tok, cursor.iTok - 2);
    }

    public boolean beginningOfCmd() {
      return eqOneOf(prevToken(), ";", "{", "}") || containsNewLine(space());
    }

    public Collection<String> getCompletions() {
      return searcher().get_transformListWithinScore(__1 -> stringsSortedByLength(__1));
    }

    public ScoredStringSearcher searcher() {
      searcher = new ScoredStringSearcher(typedCharacters);
      searcher.uniquify(true);
      if (empty(typedCharacters))
        searcher.returnAll = true;
      String prev = prevToken();
      LASValueDescriptor typeHook = typeHooks.get(cursor.iTok);
      if (scaffoldingEnabled(this)) {
        pnl("typeHooks", typeHooks);
        printVars("LeftArrowScriptAutoCompleter", "beginningOfCmd", beginningOfCmd(), "prev", prev, "cursor", cursor, "typedCharacters", typedCharacters, "typeHook", typeHook, "globalClassNames", l(parser.globalClassNames()));
      }
      if (typeHook != null && !beginningOfCmd()) {
        Class c = typeHook.javaClass();
        if (c == null)
          c = Object.class;
        addToSearcher(methodNames(c));
        addToSearcher(fieldNames(c));
      } else {
        if (beginningOfCmd() || !isIdentifier(prev) || eqOneOf(prev, "if", "else"))
          addToSearcher(globalMethodNames());
        addToSearcher(keys(parser.globalClassNames()));
        addToSearcher(predefinedExpressions());
        Collection<String> knownVars = floorValue(knownVarsByTokenIdx, cursor.iTok);
        addToSearcher(knownVars);
      }
      adaptingSearcher();
      return searcher;
    }

    public Collection<String> predefinedExpressions() {
      return ll("true", "false", "null");
    }

    transient public IF0<Collection<String>> globalMethodNames;

    public Collection<String> globalMethodNames() {
      return globalMethodNames != null ? globalMethodNames.get() : globalMethodNames_base();
    }

    final public Collection<String> globalMethodNames_fallback(IF0<Collection<String>> _f) {
      return _f != null ? _f.get() : globalMethodNames_base();
    }

    public Collection<String> globalMethodNames_base() {
      List<String> names = new ArrayList();
      for (var fc : parser.functionContainers) addAll(names, methodNames(fc));
      addAll(names, keys(parser.functionDefs));
      return names;
    }

    public void addToSearcher(String... l) {
      addToSearcher(asList(l));
    }

    public void addToSearcher(Iterable<String> l) {
      for (var s : unnullForIteration(l)) if (!eq(s, typedCharacters))
        searcher.add(s);
    }
  }

  static public class BufferedImageWithMeta extends BufferedImage implements IMeta {

    public BufferedImageWithMeta(ColorModel cm, WritableRaster raster, boolean isRasterPremultiplied, Hashtable<?, ?> properties) {
      super(cm, raster, isRasterPremultiplied, properties);
    }

    volatile public Object meta;

    public void _setMeta(Object meta) {
      this.meta = meta;
    }

    public Object _getMeta() {
      return meta;
    }

    final public boolean scaffolding() {
      return scaffoldingEnabled();
    }

    final public boolean scaffolded() {
      return scaffoldingEnabled();
    }

    public boolean scaffoldingEnabled() {
      return main.scaffoldingEnabled(this);
    }

    public boolean scaffoldingEnabled(Object o) {
      return main.scaffoldingEnabled(o);
    }

    public String toString_base() {
      return super.toString();
    }

    public String toString() {
      Object o = metaGet("toString", this);
      if (o instanceof String)
        return ((String) o);
      if (o instanceof IF1)
        return str(((IF1) o).get(this));
      return toString_base();
    }
  }

  static abstract public class F0<A> {

    abstract public A get();
  }

  static abstract public class F1<A, B> {

    abstract public B get(A a);
  }

  static abstract public class IterableIterator<A> implements Iterator<A>, Iterable<A> {

    public Iterator<A> iterator() {
      return this;
    }

    public void remove() {
      unsupportedOperation();
    }
  }

  static public class RGB {

    public float r, g, b;

    public RGB() {
    }

    public RGB(float brightness) {
      r = g = b = brightness;
    }

    public RGB(float r, float g, float b) {
      this.r = r;
      this.g = g;
      this.b = b;
    }

    public RGB(double r, double g, double b) {
      this.r = (float) r;
      this.g = (float) g;
      this.b = (float) b;
    }

    public RGB(double[] rgb) {
      this(rgb[0], rgb[1], rgb[2]);
    }

    public RGB(int rgb) {
      r = rgbRed(rgb) / 255f;
      g = rgbGreen(rgb) / 255f;
      b = rgbBlue(rgb) / 255f;
    }

    public RGB(double brightness) {
      this((float) brightness);
    }

    public RGB(Color color) {
      r = color.getRed() / 255f;
      g = color.getGreen() / 255f;
      b = color.getBlue() / 255f;
    }

    public RGB(String hex) {
      int i = l(hex) - 6;
      r = Integer.parseInt(hex.substring(i, i + 2), 16) / 255f;
      g = Integer.parseInt(hex.substring(i + 2, i + 4), 16) / 255f;
      b = Integer.parseInt(hex.substring(i + 4, i + 6), 16) / 255f;
    }

    public float getComponent(int i) {
      return i == 0 ? r : i == 1 ? g : b;
    }

    public int getInt(int i) {
      return i == 0 ? redInt() : i == 1 ? greenInt() : blueInt();
    }

    public Color getColor() {
      return new Color(clampZeroToOne(r), clampZeroToOne(g), clampZeroToOne(b));
    }

    public static RGB newSafe(float r, float g, float b) {
      return new RGB(Math.max(0, Math.min(1, r)), Math.max(0, Math.min(1, g)), Math.max(0, Math.min(1, b)));
    }

    public int asInt() {
      return getColor().getRGB() & 0xFFFFFF;
    }

    public int getInt() {
      return getColor().getRGB() & 0xFFFFFF;
    }

    public int asIntWithAlpha() {
      return rgbInt(redInt(), greenInt(), blueInt()) | 0xFF000000;
    }

    final public float brightness() {
      return getBrightness();
    }

    public float getBrightness() {
      return (r + g + b) / 3.0f;
    }

    public String getHexString() {
      return Integer.toHexString(asInt() | 0xFF000000).substring(2).toUpperCase();
    }

    @Override
    public boolean equals(Object o) {
      if (this == o)
        return true;
      if (!(o instanceof RGB))
        return false;
      RGB rgb = (RGB) o;
      if (Float.compare(rgb.b, b) != 0)
        return false;
      if (Float.compare(rgb.g, g) != 0)
        return false;
      if (Float.compare(rgb.r, r) != 0)
        return false;
      return true;
    }

    @Override
    public int hashCode() {
      int result = (r != +0.0f ? Float.floatToIntBits(r) : 0);
      result = 31 * result + (g != +0.0f ? Float.floatToIntBits(g) : 0);
      result = 31 * result + (b != +0.0f ? Float.floatToIntBits(b) : 0);
      return result;
    }

    public boolean isBlack() {
      return r == 0f && g == 0f && b == 0f;
    }

    public boolean isWhite() {
      return r == 1f && g == 1f && b == 1f;
    }

    public boolean isGrayscale() {
      return r == g && g == b;
    }

    public String toString() {
      return isGrayscale() ? formatChannel(r) : spaceCombine("RGB", formatChannel(r), formatChannel(g), formatChannel(b));
    }

    public String formatChannel(float value) {
      return formatDouble(value, 2);
    }

    public int redInt() {
      return iround(r * 255);
    }

    public int greenInt() {
      return iround(g * 255);
    }

    public int blueInt() {
      return iround(b * 255);
    }

    static public float brightnessToFloat(int brightness) {
      return brightness / 255f;
    }

    public RGB cloneMe() {
      return new RGB(r, g, b);
    }
  }

  public interface PCallPolicy {

    public void handlePcallFail(Throwable e);
  }

  public static interface IF0<A> {

    public A get();
  }

  static public interface Hasher<A> {

    public int hashCode(A a);

    public boolean equals(A a, A b);
  }

  static abstract public class CloseableIterableIterator<A> extends IterableIterator<A> implements AutoCloseable {

    public void close() throws Exception {
    }
  }

  static public interface IFieldsToList {

    public Object[] _fieldsToList();
  }

  static public interface IF2<A, B, C> {

    public C get(A a, B b);
  }

  static public interface IF1<A, B> {

    public B get(A a);
  }

  static public class PersistableThrowable extends DynamicObject {

    public String className;

    public String msg;

    public String stacktrace;

    final public PersistableThrowable setActualThrowable(Throwable actualThrowable) {
      return actualThrowable(actualThrowable);
    }

    public PersistableThrowable actualThrowable(Throwable actualThrowable) {
      this.actualThrowable = actualThrowable;
      return this;
    }

    final public Throwable getActualThrowable() {
      return actualThrowable();
    }

    public Throwable actualThrowable() {
      return actualThrowable;
    }

    transient public Throwable actualThrowable;

    public PersistableThrowable() {
    }

    public PersistableThrowable(Throwable e) {
      actualThrowable = e;
      if (e == null)
        className = "Crazy Null Error";
      else {
        className = getClassName(e).replace('/', '.');
        msg = e.getMessage();
        stacktrace = getStackTrace_noRecord(e);
      }
    }

    public String toString() {
      return nempty(msg) ? className + ": " + msg : className;
    }

    public RuntimeException asRuntimeException() {
      if (actualThrowable != null)
        return main.asRuntimeException(actualThrowable);
      return new Fail(this);
    }
  }

  static public interface IVF1<A> {

    public void get(A a);
  }

  static public class GazelleV_LeftArrowScript {

    abstract static public class Base extends HasTokenRangeWithSrc {

      public RuntimeException rethrowWithSrc(Throwable e) {
        return rethrowWithSrc("", e);
      }

      public RuntimeException rethrowWithSrc(String msg, Throwable e) {
        if (tokenRangeWithSrc() != null)
          throw new ScriptError(tokenRangeWithSrc(), msg, e);
        else
          throw rethrow(e);
      }

      public String indented() {
        return indentedScriptStruct(this);
      }

      public String shortenedSrc() {
        return shortenSrc(tokenRangeWithSrc());
      }
    }

    static public class ScriptError extends RuntimeException implements IHasTokenRangeWithSrc {

      public ScriptError(TokenRangeWithSrc src, Throwable reason) {
        super(reason);
        tokenRangeWithSrc(src);
      }

      public ScriptError(TokenRangeWithSrc src, String msg, Throwable reason) {
        super(msg, reason);
        tokenRangeWithSrc(src);
      }

      final public ScriptError setTokenRangeWithSrc(TokenRangeWithSrc tokenRangeWithSrc) {
        return tokenRangeWithSrc(tokenRangeWithSrc);
      }

      public ScriptError tokenRangeWithSrc(TokenRangeWithSrc tokenRangeWithSrc) {
        this.tokenRangeWithSrc = tokenRangeWithSrc;
        return this;
      }

      final public TokenRangeWithSrc getTokenRangeWithSrc() {
        return tokenRangeWithSrc();
      }

      public TokenRangeWithSrc tokenRangeWithSrc() {
        return tokenRangeWithSrc;
      }

      public TokenRangeWithSrc tokenRangeWithSrc;

      public TokenRangeWithSrc src() {
        return tokenRangeWithSrc();
      }

      public String toString() {
        return super.toString() + "\n  " + src() + " {{ " + shortenSrc(src()) + " }}";
      }
    }

    static public String shortenSrc(TokenRangeWithSrc src) {
      return src == null ? null : shorten(nlToSpace(src.text()));
    }

    public interface Evaluable extends IF0, IHasTokenRangeWithSrc {

      public default Object get() {
        return get(new FlexibleVarContext());
      }

      public Object get(VarContext ctx);

      public default LASValueDescriptor returnType() {
        return null;
      }

      public default Evaluable optimize() {
        return this;
      }

      public default Evaluable optimizeForReturnValueNotNeeded() {
        return this;
      }
    }

    abstract static public class EvaluableBase extends Base implements Evaluable {

      final public EvaluableBase setReturnType(LASValueDescriptor returnType) {
        return returnType(returnType);
      }

      public EvaluableBase returnType(LASValueDescriptor returnType) {
        this.returnType = returnType;
        return this;
      }

      final public LASValueDescriptor getReturnType() {
        return returnType();
      }

      public LASValueDescriptor returnType() {
        return returnType;
      }

      public LASValueDescriptor returnType;

      public boolean returnValueNeeded = true;

      public Evaluable optimizeForReturnValueNotNeeded() {
        returnValueNeeded = false;
        return optimize();
      }
    }

    static public AtomicLong scriptIDCounter = new AtomicLong();

    static public long scriptID() {
      return incAtomicLong(scriptIDCounter);
    }

    static public class ListFromScript extends EvaluableBase implements IFieldsToList {

      public Script script;

      public ListFromScript() {
      }

      public ListFromScript(Script script) {
        this.script = script;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + script + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { script };
      }

      public Object get(VarContext ctx) {
        return script.getAsList(ctx);
      }
    }

    static public class Script extends EvaluableBase {

      transient public long id = scriptID();

      public Map<String, FunctionDef> functionDefs;

      public Evaluable[] steps;

      public Map<String, LASValueDescriptor> params;

      public Script() {
      }

      public Script(List<Evaluable> steps) {
        this.steps = toTypedArray(Evaluable.class, steps);
      }

      public Object get(VarContext ctx) {
        Object result = null;
        var pingSource = pingSource();
        for (var step : steps) {
          ping(pingSource);
          result = step.get(ctx);
          var exiting = ctx.exitFromScript;
          if (exiting != null) {
            if (exiting == this) {
              ctx.exitFromScript = null;
              result = ctx.returnValue;
              ctx.returnValue(null);
              return result;
            }
            return null;
          }
        }
        return result;
      }

      public Object getAsList(VarContext ctx) {
        Object result = null;
        var pingSource = pingSource();
        List list = new ArrayList();
        for (var step : steps) {
          ping(pingSource);
          list.add(step.get(ctx));
          var exiting = ctx.exitFromScript;
          if (exiting != null) {
            if (exiting == this) {
              ctx.exitFromScript = null;
              result = ctx.returnValue;
              ctx.returnValue(null);
              list.add(result);
              return list;
            }
            return null;
          }
        }
        return list;
      }

      public String toStringLong() {
        return pnlToLines(steps);
      }

      public String toString() {
        return "Script " + n2(id);
      }

      public FunctionDef getFunction(String name) {
        return mapGet(functionDefs, name);
      }

      final public Script optimize() {
        return optimizeScript();
      }

      public Script optimizeScript() {
        int n = returnValueNeeded ? steps.length - 1 : steps.length;
        for (int i = 0; i < n; i++) steps[i] = steps[i].optimizeForReturnValueNotNeeded();
        for (var f : values(functionDefs)) f.optimize();
        return this;
      }
    }

    static public class FunctionDef extends Base implements IFieldsToList {

      public String name;

      public String[] args;

      public Script body;

      public FunctionDef() {
      }

      public FunctionDef(String name, String[] args, Script body) {
        this.body = body;
        this.args = args;
        this.name = name;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + name + ", " + args + ", " + body + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { name, args, body };
      }

      final public FunctionDef setReturnType(Type returnType) {
        return returnType(returnType);
      }

      public FunctionDef returnType(Type returnType) {
        this.returnType = returnType;
        return this;
      }

      final public Type getReturnType() {
        return returnType();
      }

      public Type returnType() {
        return returnType;
      }

      public Type returnType = Object.class;

      final public FunctionDef setArgTypes(LASValueDescriptor[] argTypes) {
        return argTypes(argTypes);
      }

      public FunctionDef argTypes(LASValueDescriptor[] argTypes) {
        this.argTypes = argTypes;
        return this;
      }

      final public LASValueDescriptor[] getArgTypes() {
        return argTypes();
      }

      public LASValueDescriptor[] argTypes() {
        return argTypes;
      }

      public LASValueDescriptor[] argTypes;

      final public FunctionDef setSynthetic(boolean synthetic) {
        return synthetic(synthetic);
      }

      public FunctionDef synthetic(boolean synthetic) {
        this.synthetic = synthetic;
        return this;
      }

      final public boolean getSynthetic() {
        return synthetic();
      }

      public boolean synthetic() {
        return synthetic;
      }

      public boolean synthetic = false;

      public FunctionDef(String name, List<String> args, Script body) {
        this.args = toStringArray(args);
        this.body = body;
        this.name = name;
      }

      public Object callFromOutside(Object... args) {
        return call(new FlexibleVarContext(), args);
      }

      public Object call(VarContext ctx, Object... args) {
        VarContext ctx2 = new FlexibleVarContext(ctx);
        int n = min(l(args), l(this.args));
        for (int i = 0; i < n; i++) ctx2.put(this.args[i], args[i]);
        return body.get(ctx2);
      }

      public void optimize() {
        body = body.optimize();
      }

      public boolean isConstructor() {
        return eq(name, "<init>");
      }
    }

    static public class Assignment extends EvaluableBase implements IFieldsToList {

      public String var;

      public Evaluable expression;

      public Assignment() {
      }

      public Assignment(String var, Evaluable expression) {
        this.expression = expression;
        this.var = var;
      }

      public Object[] _fieldsToList() {
        return new Object[] { var, expression };
      }

      public Object get(VarContext ctx) {
        Object o = expression.get(ctx);
        ctx.set(var, o);
        return o;
      }

      public String toString() {
        return var + " <- " + expression;
      }
    }

    static public class VarDeclaration extends EvaluableBase implements IFieldsToList {

      public String var;

      public Class type;

      public Evaluable expression;

      public VarDeclaration() {
      }

      public VarDeclaration(String var, Class type, Evaluable expression) {
        this.expression = expression;
        this.type = type;
        this.var = var;
      }

      public Object[] _fieldsToList() {
        return new Object[] { var, type, expression };
      }

      public Object get(VarContext ctx) {
        Object o = expression == null ? null : expression.get(ctx);
        ctx.set(var, o);
        return o;
      }

      public String toString() {
        return "var " + var + " <- " + expression;
      }
    }

    static public class AssignmentToOuterVar extends EvaluableBase implements IFieldsToList {

      public String var;

      public Evaluable expression;

      public AssignmentToOuterVar() {
      }

      public AssignmentToOuterVar(String var, Evaluable expression) {
        this.expression = expression;
        this.var = var;
      }

      public Object[] _fieldsToList() {
        return new Object[] { var, expression };
      }

      public Object get(VarContext ctx) {
        var parent = ctx.parent();
        assertNotNull("No outer variable context", parent);
        Object o = expression.get(ctx);
        parent.set(var, o);
        return o;
      }

      public String toString() {
        return "outer " + var + " <- " + expression;
      }
    }

    static public class NewObject extends EvaluableBase {

      public NewObject() {
      }

      public Class c;

      public Evaluable[] args;

      public NewObject(Class c) {
        this(c, null);
      }

      public NewObject(Class c, Evaluable[] args) {
        this.args = args;
        this.c = c;
        returnType(new LASValueDescriptor.Exact(c, false));
      }

      public Object get(VarContext ctx) {
        try {
          return preciseNuObject(c, evalArgs(args, ctx));
        } catch (Throwable e) {
          throw rethrowWithSrc(e);
        }
      }

      public String toString() {
        return "new " + formatFunctionCall(className(c), args);
      }
    }

    static public class NewObject_LASClass extends NewObject {

      public NewObject_LASClass() {
      }

      public ResolvableLASClass lasClass;

      public NewObject_LASClass(ResolvableLASClass lasClass) {
        this.lasClass = lasClass;
      }

      public NewObject_LASClass(ResolvableLASClass lasClass, Evaluable[] args) {
        this.args = args;
        this.lasClass = lasClass;
      }

      public void resolve() {
        if (c == null)
          c = lasClass.get();
      }

      public Object get(VarContext ctx) {
        resolve();
        return super.get(ctx);
      }

      public String toString() {
        return "new " + formatFunctionCall(str(lasClass), args);
      }
    }

    static public class NewObject_UnknownClass extends NewObject implements IFieldsToList {

      public Evaluable classExpr;

      public Evaluable[] args;

      public NewObject_UnknownClass() {
      }

      public NewObject_UnknownClass(Evaluable classExpr, Evaluable[] args) {
        this.args = args;
        this.classExpr = classExpr;
      }

      public Object[] _fieldsToList() {
        return new Object[] { classExpr, args };
      }

      public Object get(VarContext ctx) {
        try {
          Class c = (Class) (classExpr.get(ctx));
          return preciseNuObject(c, evalArgs(args, ctx));
        } catch (Throwable e) {
          throw rethrowWithSrc(e);
        }
      }

      public String toString() {
        return "new " + formatFunctionCall(classExpr, args);
      }
    }

    static public class CallFunction extends EvaluableBase implements IFieldsToList {

      public FunctionDef f;

      public Evaluable[] args;

      public CallFunction() {
      }

      public CallFunction(FunctionDef f, Evaluable[] args) {
        this.args = args;
        this.f = f;
      }

      public Object[] _fieldsToList() {
        return new Object[] { f, args };
      }

      public Object get(VarContext ctx) {
        var evaledArgs = evalArgs(args, ctx);
        if (ctx.exiting())
          return null;
        return f.call(ctx, evaledArgs);
      }

      public String toString() {
        return formatFunctionCall(f.name, args);
      }

      public LASValueDescriptor returnType() {
        return LASValueDescriptor.fromType(f.getReturnType());
      }
    }

    static public class GetVar extends EvaluableBase implements IFieldsToList {

      public String var;

      public GetVar() {
      }

      public GetVar(String var) {
        this.var = var;
      }

      public Object[] _fieldsToList() {
        return new Object[] { var };
      }

      public Object get(VarContext ctx) {
        return ctx.get(var);
      }

      public String toString() {
        return var;
      }
    }

    static public class Const extends EvaluableBase implements IFieldsToList {

      public Object value;

      public Const() {
      }

      public Const(Object value) {
        this.value = value;
      }

      public Object[] _fieldsToList() {
        return new Object[] { value };
      }

      public Object get(VarContext ctx) {
        return value;
      }

      public String toString() {
        return strOrClassName(value);
      }

      public LASValueDescriptor returnType() {
        return new LASValueDescriptor.KnownValue(value);
      }

      public Object _serialize() {
        boolean ok = isUnproblematicValue(value);
        return ok ? this : toStringWithClass(value);
      }
    }

    static public class GetStaticField extends EvaluableBase implements IFieldsToList {

      public Field field;

      public GetStaticField() {
      }

      public GetStaticField(Field field) {
        this.field = field;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + field + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { field };
      }

      public Object get(VarContext ctx) {
        try {
          return field.get(null);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String _serialize() {
        return str(field);
      }
    }

    abstract static public class CallOnTarget extends EvaluableBase implements IFieldsToList {

      public Evaluable target;

      public CallOnTarget() {
      }

      public CallOnTarget(Evaluable target) {
        this.target = target;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + target + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { target };
      }

      final public CallOnTarget setAllowNullReference(boolean allowNullReference) {
        return allowNullReference(allowNullReference);
      }

      public CallOnTarget allowNullReference(boolean allowNullReference) {
        this.allowNullReference = allowNullReference;
        return this;
      }

      final public boolean getAllowNullReference() {
        return allowNullReference();
      }

      public boolean allowNullReference() {
        return allowNullReference;
      }

      public boolean allowNullReference = false;

      public Object handleNullReference() {
        if (allowNullReference)
          return null;
        else
          throw new NullPointerException();
      }

      abstract public Object evalOnTarget(VarContext ctx, Object object);

      public Object get(VarContext ctx) {
        try {
          Object object = target.get(ctx);
          if (object == null)
            return handleNullReference();
          return evalOnTarget(ctx, object);
        } catch (Throwable e) {
          throw rethrowWithSrc(e);
        }
      }
    }

    static public class CallMethodOrGetField extends CallOnTarget {

      public CallMethodOrGetField() {
      }

      public String name;

      public CallMethodOrGetField(Evaluable target, String name) {
        this.name = name;
        this.target = target;
      }

      public Object evalOnTarget(VarContext ctx, Object object) {
        try {
          return preciseGetOrCallMethod(object, name);
        } catch (Throwable e) {
          throw rethrowWithSrc("Was getting " + name, e);
        }
      }
    }

    static public class GetField extends CallOnTarget {

      public GetField() {
      }

      public String name;

      public GetField(Evaluable target, String name) {
        this.name = name;
        this.target = target;
      }

      public Object evalOnTarget(VarContext ctx, Object object) {
        try {
          return _get(object, name);
        } catch (Throwable e) {
          throw rethrowWithSrc("Was getting " + name, e);
        }
      }
    }

    static public class GetVarContext extends EvaluableBase {

      public Object get(VarContext ctx) {
        return ctx;
      }
    }

    static public class ThrowMethodNotFoundException extends EvaluableBase implements IFieldsToList {

      public CallMethod instruction;

      public ThrowMethodNotFoundException() {
      }

      public ThrowMethodNotFoundException(CallMethod instruction) {
        this.instruction = instruction;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + instruction + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { instruction };
      }

      public Object get(VarContext ctx) {
        throw fail("Method not found: " + instruction);
      }
    }

    static public class ThrowNullPointerException extends EvaluableBase implements IFieldsToList {

      public CallMethod instruction;

      public ThrowNullPointerException() {
      }

      public ThrowNullPointerException(CallMethod instruction) {
        this.instruction = instruction;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + instruction + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { instruction };
      }

      public Object get(VarContext ctx) {
        throw fail("Null pointer exception: " + instruction);
      }
    }

    static public class CallMethod extends CallOnTarget {

      public CallMethod() {
      }

      public String methodName;

      public Evaluable[] args;

      public CallMethod(Evaluable target, String methodName, Evaluable[] args) {
        this.args = args;
        this.methodName = methodName;
        this.target = target;
      }

      public Object evalOnTarget(VarContext ctx, Object object) {
        return newPreciseCall(object, methodName, evalArgs(args, ctx));
      }

      public String toString() {
        return target + "." + formatFunctionCall(methodName, args);
      }

      public Evaluable optimize() {
        var targetType = target.returnType();
        if (targetType != null && targetType.knownValue()) {
          Object o = targetType.value();
          if (o == null)
            return allowNullReference ? _const(null) : new ThrowNullPointerException(this);
          Class[] argTypes = new Class[l(args)];
          for (int i = 0; i < l(args); i++) {
            var type = args[i].returnType();
            if (type == null || !type.javaClassIsExact())
              return this;
            argTypes[i] = type.javaClass();
          }
          List<Method> methods = findMethodsNamed_cached(o, methodName);
          if (any(methods, m -> m.isVarArgs()))
            return this;
          var __4 = findMethod_withPrimitiveWidening_onTypes(o, methodName, argTypes);
          var method = __4.a;
          var widening = __4.b;
          if (method == null)
            return new ThrowMethodNotFoundException(this);
          return new DirectMethodCallOnKnownTarget(widening, o instanceof Class ? null : o, method, args);
        }
        return this;
      }
    }

    static public Object[] evalArgs(Evaluable[] args, VarContext ctx) {
      return mapToArrayOrNull(args, arg -> arg.get(ctx));
    }

    static public class CallMethodOrGlobalFunction extends CallMethod {

      public CallMethodOrGlobalFunction() {
      }

      public MethodOnObject globalFunction;

      static final public Object methodNotFoundSentinel = new Object();

      public CallMethodOrGlobalFunction(Evaluable target, String methodName, MethodOnObject globalFunction, Evaluable[] args) {
        this.args = args;
        this.globalFunction = globalFunction;
        this.methodName = methodName;
        this.target = target;
      }

      public String toString() {
        return target + "." + formatFunctionCall(methodName + "+", args);
      }

      public Object evalOnTarget(VarContext ctx, Object o) {
        Object[] realArgs = evalArgs(args, ctx);
        Object result = newPreciseCall_sentinel(o, methodName, methodNotFoundSentinel, realArgs);
        if (result != methodNotFoundSentinel)
          return result;
        return newPreciseCall(globalFunction.object, globalFunction.method, itemPlusArray(o, realArgs));
      }
    }

    static public class CallMethodOrGetFieldOrGlobalFunction extends CallMethodOrGetField {

      public CallMethodOrGetFieldOrGlobalFunction() {
      }

      public MethodOnObject globalFunction;

      static final public Object notFoundSentinel = new Object();

      public CallMethodOrGetFieldOrGlobalFunction(Evaluable target, String name, MethodOnObject globalFunction) {
        this.globalFunction = globalFunction;
        this.name = name;
        this.target = target;
      }

      public String toString() {
        return target + "." + name + "+";
      }

      public Object evalOnTarget(VarContext ctx, Object o) {
        try {
          Object result = preciseGetOrCallMethod_sentinel(o, name, notFoundSentinel);
          if (result != notFoundSentinel)
            return result;
          return newPreciseCall(globalFunction.object, globalFunction.method, o);
        } catch (Throwable e) {
          throw rethrowWithSrc("Was getting " + name, e);
        }
      }
    }

    abstract static public class LambdaBase extends EvaluableBase implements IFieldsToList {

      public Class intrface;

      public LambdaBase() {
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + intrface + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { intrface };
      }

      transient public Method implementedMethod;

      public LambdaBase(Class intrface) {
        this.intrface = intrface;
        implementedMethod = findSingleInterfaceMethodOrFail(intrface);
      }
    }

    static public class LambdaMethodOnArgument extends LambdaBase {

      public String methodName;

      public Evaluable[] args;

      public LambdaMethodOnArgument(Class intrface, String methodName, Evaluable[] args) {
        super(intrface);
        this.args = args;
        this.methodName = methodName;
      }

      public Object get(VarContext ctx) {
        return proxyFromInvocationHandler(intrface, (proxy, method, actualArgs) -> {
          if (method.getDeclaringClass() == intrface)
            return forwardCall(actualArgs[0], ctx);
          else
            return handleObjectMethodsInProxyInvocationHandler(this, implementedMethod, method, proxy, actualArgs);
        });
      }

      public Object forwardCall(Object target, VarContext ctx) {
        return call(target, methodName, evalArgs(args, ctx));
      }
    }

    static public class LambdaDef extends EvaluableBase implements IFieldsToList {

      public Class intrface;

      public String[] args;

      public Evaluable body;

      public LambdaDef() {
      }

      public Object[] _fieldsToList() {
        return new Object[] { intrface, args, body };
      }

      public Map<String, LASValueDescriptor> argTypes = new HashMap();

      transient public Method implementedMethod;

      public LambdaDef(Class intrface, String[] args, Evaluable body) {
        this.body = body;
        this.args = args;
        this.intrface = intrface;
        implementedMethod = findSingleInterfaceMethodOrFail(intrface);
        if (implementedMethod.getParameterCount() != l(args))
          throw fail("Bad parameter count for lambda: " + implementedMethod + " vs: " + joinWithComma(args));
      }

      public Object get(VarContext ctx) {
        return proxyFromInvocationHandler(intrface, (proxy, method, actualArgs) -> {
          ping();
          if (method.getDeclaringClass() == intrface) {
            var ctx2 = new FlexibleVarContext(ctx);
            var argNames = args;
            for (int i = 0; i < l(args); i++) ctx2.put(argNames[i], actualArgs[i]);
            return body.get(ctx2);
          } else
            return handleObjectMethodsInProxyInvocationHandler(this, implementedMethod, method, proxy, actualArgs);
        });
      }

      public String toString() {
        return "Lambda(" + shortenedSrc() + ")";
      }
    }

    abstract static public class CurriedLambdaBase extends EvaluableBase implements IFieldsToList {

      public Class intrface;

      public Evaluable[] curriedArgs;

      public CurriedLambdaBase() {
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + intrface + ", " + curriedArgs + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { intrface, curriedArgs };
      }

      transient public Method implementedMethod;

      public CurriedLambdaBase(Class intrface, Evaluable[] curriedArgs) {
        this.curriedArgs = curriedArgs;
        this.intrface = intrface;
        implementedMethod = findSingleInterfaceMethodOrFail(intrface);
      }

      public Object get(VarContext ctx) {
        try {
          Object[] curriedArguments = evalArgs(curriedArgs, ctx);
          return proxyFromInvocationHandler(intrface, (proxy, method, actualArgs) -> {
            try {
              if (method.getDeclaringClass() == intrface)
                return forwardCall(ctx, concatMethodArgs(curriedArguments, actualArgs));
              else
                return handleObjectMethodsInProxyInvocationHandler(this, implementedMethod, method, proxy, actualArgs);
            } catch (Throwable e) {
              throw rethrowWithSrc(e);
            }
          });
        } catch (Throwable e) {
          throw rethrowWithSrc(e);
        }
      }

      abstract public Object forwardCall(VarContext ctx, Object[] args);
    }

    static public class CurriedMethodLambda extends CurriedLambdaBase {

      public CurriedMethodLambda() {
      }

      public Object target;

      public String targetMethod;

      public CurriedMethodLambda(Class intrface, Object target, String targetMethod, Evaluable[] curriedArgs) {
        super(intrface, curriedArgs);
        this.targetMethod = targetMethod;
        this.target = target;
      }

      public Object forwardCall(VarContext ctx, Object[] args) {
        return call(target, targetMethod, args);
      }
    }

    static public class CurriedScriptFunctionLambda extends CurriedLambdaBase {

      public FunctionDef f;

      public CurriedScriptFunctionLambda(Class intrface, FunctionDef f, Evaluable[] curriedArgs) {
        super(intrface, curriedArgs);
        this.f = f;
      }

      public Object forwardCall(VarContext ctx, Object[] args) {
        return f.call(ctx, args);
      }
    }

    static public class CurriedConstructorLambda extends CurriedLambdaBase {

      public Constructor[] ctors;

      public CurriedConstructorLambda(Class intrface, Constructor[] ctors, Evaluable[] curriedArgs) {
        super(intrface, curriedArgs);
        this.ctors = ctors;
      }

      public Object forwardCall(VarContext ctx, Object[] args) {
        return preciseNuObject(ctors, args);
      }
    }

    static public class DirectMethodCallOnKnownTarget extends EvaluableBase implements IFieldsToList {

      public boolean widening = false;

      public Object target;

      public Method method;

      public Evaluable[] args;

      public DirectMethodCallOnKnownTarget() {
      }

      public DirectMethodCallOnKnownTarget(boolean widening, Object target, Method method, Evaluable[] args) {
        this.args = args;
        this.method = method;
        this.target = target;
        this.widening = widening;
      }

      public Object[] _fieldsToList() {
        return new Object[] { widening, target, method, args };
      }

      public Object get(VarContext ctx) {
        var evaluatedArgs = evalArgs(args, ctx);
        return widening ? invokeMethodWithWidening(method, target, evaluatedArgs) : invokeMethod(method, target, evaluatedArgs);
      }

      public String toString() {
        return (target == null ? "" : target + ".") + formatFunctionCall(str(method), args);
      }

      public LASValueDescriptor returnType() {
        return LASValueDescriptor.fromClass(method.getReturnType());
      }
    }

    static public class While extends EvaluableBase implements IFieldsToList {

      public Evaluable condition;

      public Evaluable body;

      public While() {
      }

      public While(Evaluable condition, Evaluable body) {
        this.body = body;
        this.condition = condition;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + condition + ", " + body + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { condition, body };
      }

      public Object get(VarContext ctx) {
        while (!ctx.exiting() && (Boolean) condition.get(ctx)) {
          body.get(ctx);
        }
        return null;
      }
    }

    abstract static public class ForEachBase extends EvaluableBase implements IFieldsToList {

      public Evaluable collection;

      public Evaluable body;

      public ForEachBase() {
      }

      public ForEachBase(Evaluable collection, Evaluable body) {
        this.body = body;
        this.collection = collection;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + collection + ", " + body + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { collection, body };
      }

      public Object get(VarContext ctx) {
        var coll = collection.get(ctx);
        Iterator iterator;
        List out;
        try {
          if (coll == null)
            out = new ArrayList();
          else if (coll.getClass().isArray()) {
            if (coll instanceof Object[]) {
              var array = (Object[]) coll;
              out = emptyList(array.length);
              for (var element : array) {
                if (ctx.exiting())
                  return null;
                processElement(ctx, out, element);
              }
            } else if (coll instanceof byte[]) {
              var array = (byte[]) coll;
              out = emptyList(array.length);
              for (var element : array) {
                if (ctx.exiting())
                  return null;
                processElement(ctx, out, element);
              }
            } else if (coll instanceof short[]) {
              var array = (short[]) coll;
              out = emptyList(array.length);
              for (var element : array) {
                if (ctx.exiting())
                  return null;
                processElement(ctx, out, element);
              }
            } else if (coll instanceof double[]) {
              var array = (double[]) coll;
              out = emptyList(array.length);
              for (var element : array) {
                if (ctx.exiting())
                  return null;
                processElement(ctx, out, element);
              }
            } else if (coll instanceof float[]) {
              var array = (float[]) coll;
              out = emptyList(array.length);
              for (var element : array) {
                if (ctx.exiting())
                  return null;
                processElement(ctx, out, element);
              }
            } else if (coll instanceof int[]) {
              var array = (int[]) coll;
              out = emptyList(array.length);
              for (var element : array) {
                if (ctx.exiting())
                  return null;
                processElement(ctx, out, element);
              }
            } else if (coll instanceof long[]) {
              var array = (long[]) coll;
              out = emptyList(array.length);
              for (var element : array) {
                if (ctx.exiting())
                  return null;
                processElement(ctx, out, element);
              }
            } else if (coll instanceof char[]) {
              var array = (char[]) coll;
              out = emptyList(array.length);
              for (var element : array) {
                if (ctx.exiting())
                  return null;
                processElement(ctx, out, element);
              }
            } else if (coll instanceof boolean[]) {
              var array = (boolean[]) coll;
              out = emptyList(array.length);
              for (var element : array) {
                if (ctx.exiting())
                  return null;
                processElement(ctx, out, element);
              }
            } else
              throw fail("todo for each with: " + coll);
          } else if (coll instanceof Iterable) {
            out = emptyList((Iterable) coll);
            iterator = ((Iterable) coll).iterator();
            try {
              while (iterator.hasNext()) {
                if (ctx.exiting())
                  return null;
                var element = iterator.next();
                processElement(ctx, out, element);
              }
            } finally {
              if (iterator instanceof AutoCloseable) {
                try {
                  ((AutoCloseable) iterator).close();
                } catch (Exception __e) {
                  throw rethrow(__e);
                }
              }
            }
          } else
            throw fail("Not iterable: " + className(coll));
        } finally {
          loopDone(ctx);
        }
        return out;
      }

      abstract public void processElement(VarContext ctx, List out, Object o);

      abstract public void loopDone(VarContext ctx);
    }

    static public class ForEach extends ForEachBase {

      public ForEach() {
      }

      public String var;

      public ForEach(Evaluable collection, String var, Evaluable body) {
        this.body = body;
        this.var = var;
        this.collection = collection;
      }

      public void processElement(VarContext ctx, List out, Object o) {
        ctx.set(var, o);
        out.add(body.get(ctx));
      }

      public void loopDone(VarContext ctx) {
        ctx.unset(var);
      }
    }

    static public class ForIterator extends EvaluableBase implements IFieldsToList {

      static final public String _fieldOrder = "iterable var body";

      public Evaluable iterable;

      public String var;

      public Evaluable body;

      public ForIterator() {
      }

      public ForIterator(Evaluable iterable, String var, Evaluable body) {
        this.body = body;
        this.var = var;
        this.iterable = iterable;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + iterable + ", " + var + ", " + body + ")";
      }

      public boolean equals(Object o) {
        if (!(o instanceof ForIterator))
          return false;
        ForIterator __5 = (ForIterator) o;
        return eq(iterable, __5.iterable) && eq(var, __5.var) && eq(body, __5.body);
      }

      public int hashCode() {
        int h = -214906825;
        h = boostHashCombine(h, _hashCode(iterable));
        h = boostHashCombine(h, _hashCode(var));
        h = boostHashCombine(h, _hashCode(body));
        return h;
      }

      public Object[] _fieldsToList() {
        return new Object[] { iterable, var, body };
      }

      public Object get(VarContext ctx) {
        VarContext subContext = new FlexibleVarContext(ctx);
        var iterable = this.iterable.get(ctx);
        Iterator iterator = iterator_gen(iterable);
        return new MapI(value -> {
          subContext.set(var, value);
          return body.get(subContext);
        }, iterator);
      }
    }

    static public class ForNested extends EvaluableBase implements IFieldsToList {

      static final public String _fieldOrder = "iterable var body";

      public Evaluable iterable;

      public String var;

      public Evaluable body;

      public ForNested() {
      }

      public ForNested(Evaluable iterable, String var, Evaluable body) {
        this.body = body;
        this.var = var;
        this.iterable = iterable;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + iterable + ", " + var + ", " + body + ")";
      }

      public boolean equals(Object o) {
        if (!(o instanceof ForNested))
          return false;
        ForNested __6 = (ForNested) o;
        return eq(iterable, __6.iterable) && eq(var, __6.var) && eq(body, __6.body);
      }

      public int hashCode() {
        int h = -1363247360;
        h = boostHashCombine(h, _hashCode(iterable));
        h = boostHashCombine(h, _hashCode(var));
        h = boostHashCombine(h, _hashCode(body));
        return h;
      }

      public Object[] _fieldsToList() {
        return new Object[] { iterable, var, body };
      }

      public Object get(VarContext ctx) {
        VarContext subContext = new FlexibleVarContext(ctx);
        var iterable = this.iterable.get(ctx);
        Iterator iterator = iterator_gen(iterable);
        return nestedIterator(iterator, value -> {
          subContext.set(var, value);
          return iterator_gen(body.get(subContext));
        });
      }
    }

    static public class ForPairs extends ForEachBase {

      public ForPairs() {
      }

      public String varA, varB;

      public ForPairs(Evaluable collection, Evaluable body, String varA, String varB) {
        this.varB = varB;
        this.varA = varA;
        this.body = body;
        this.collection = collection;
      }

      public void processElement(VarContext ctx, List out, Object o) {
        Pair p = (Pair) o;
        ctx.set(varA, p.a);
        ctx.set(varB, p.b);
        out.add(body.get(ctx));
      }

      public void loopDone(VarContext ctx) {
        ctx.unset(varA);
        ctx.unset(varB);
      }
    }

    static public class ForKeyValue extends EvaluableBase implements IFieldsToList {

      public Evaluable map;

      public Evaluable body;

      public String varA;

      public String varB;

      public ForKeyValue() {
      }

      public ForKeyValue(Evaluable map, Evaluable body, String varA, String varB) {
        this.varB = varB;
        this.varA = varA;
        this.body = body;
        this.map = map;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + map + ", " + body + ", " + varA + ", " + varB + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { map, body, varA, varB };
      }

      public Object get(VarContext ctx) {
        Map<?, ?> theMap = (Map) map.get(ctx);
        List out;
        try {
          if (theMap != null) {
            out = emptyList(theMap.size());
            for (var entry : theMap.entrySet()) {
              if (ctx.exiting())
                return null;
              ctx.set(varA, entry.getKey());
              ctx.set(varB, entry.getValue());
              out.add(body.get(ctx));
            }
          } else
            out = new ArrayList();
        } finally {
          ctx.unset(varA);
          ctx.unset(varB);
        }
        return out;
      }
    }

    static public class ForIntTo extends EvaluableBase implements IFieldsToList {

      public Evaluable endValue;

      public String var;

      public Evaluable body;

      public ForIntTo() {
      }

      public ForIntTo(Evaluable endValue, String var, Evaluable body) {
        this.body = body;
        this.var = var;
        this.endValue = endValue;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + endValue + ", " + var + ", " + body + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { endValue, var, body };
      }

      public Evaluable optimize() {
        if (!returnValueNeeded)
          body = body.optimizeForReturnValueNotNeeded();
        return this;
      }

      public Object get(VarContext ctx) {
        int n = (Integer) endValue.get(ctx), i = 0;
        List out = returnValueNeeded ? new ArrayList() : null;
        try {
          ctx.put(var, i);
          while (i < n) {
            if (ctx.exiting())
              return null;
            Object o = body.get(ctx);
            {
              if (out != null)
                out.add(o);
            }
            ctx.set(var, i = (Integer) ctx.get(var) + 1);
          }
        } finally {
          ctx.unset(var);
        }
        return out;
      }
    }

    static public class ForIndex extends EvaluableBase {

      public ForIndex() {
      }

      public Evaluable collection, body;

      public String varIndex, varElement;

      public ForIndex(Evaluable collection, Evaluable body, String varIndex, String varElement) {
        this.varElement = varElement;
        this.varIndex = varIndex;
        this.body = body;
        this.collection = collection;
      }

      public Object get(VarContext ctx) {
        return new ForIndex_instance(collection, body, varIndex, varElement).get(ctx);
      }
    }

    static public class ForIndex_instance extends ForEachBase {

      public String varIndex, varElement;

      public int index;

      public ForIndex_instance(Evaluable collection, Evaluable body, String varIndex, String varElement) {
        this.varElement = varElement;
        this.varIndex = varIndex;
        this.body = body;
        this.collection = collection;
      }

      public void processElement(VarContext ctx, List out, Object o) {
        ctx.set(varIndex, index++);
        ctx.set(varElement, o);
        out.add(body.get(ctx));
      }

      public void loopDone(VarContext ctx) {
        ctx.unset(varIndex);
        ctx.unset(varElement);
      }
    }

    static public class IfThen extends EvaluableBase implements IFieldsToList {

      public Evaluable condition;

      public Evaluable body;

      public Evaluable elseBranch;

      public IfThen() {
      }

      public IfThen(Evaluable condition, Evaluable body, Evaluable elseBranch) {
        this.elseBranch = elseBranch;
        this.body = body;
        this.condition = condition;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + condition + ", " + body + ", " + elseBranch + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { condition, body, elseBranch };
      }

      public IfThen(Evaluable condition, Evaluable body) {
        this.condition = condition;
        this.body = body;
      }

      public Object get(VarContext ctx) {
        if ((Boolean) condition.get(ctx))
          return body.get(ctx);
        else if (elseBranch != null)
          return elseBranch.get(ctx);
        else
          return null;
      }
    }

    static public class ReturnFromScript extends EvaluableBase implements IFieldsToList {

      public Script script;

      public Evaluable value;

      public ReturnFromScript() {
      }

      public ReturnFromScript(Script script, Evaluable value) {
        this.value = value;
        this.script = script;
      }

      public Object[] _fieldsToList() {
        return new Object[] { script, value };
      }

      public Object get(VarContext ctx) {
        Object result = value.get(ctx);
        ctx.exitFromScript(script);
        ctx.returnValue(result);
        return null;
      }

      public String toString() {
        return formatFunctionCall("ReturnFromScript", script, value);
      }
    }

    static public class Continue extends EvaluableBase implements IFieldsToList {

      public Script loopBody;

      public Continue() {
      }

      public Continue(Script loopBody) {
        this.loopBody = loopBody;
      }

      public Object[] _fieldsToList() {
        return new Object[] { loopBody };
      }

      public Object get(VarContext ctx) {
        ctx.exitFromScript(loopBody);
        ctx.returnValue(null);
        return null;
      }

      public String toString() {
        return formatFunctionCall("Continue", loopBody);
      }
    }

    static public class RepeatN extends EvaluableBase implements IFieldsToList {

      public Evaluable n;

      public Evaluable body;

      public RepeatN() {
      }

      public RepeatN(Evaluable n, Evaluable body) {
        this.body = body;
        this.n = n;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + n + ", " + body + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { n, body };
      }

      public Object get(VarContext ctx) {
        long count = ((Number) n.get(ctx)).longValue();
        for (int _repeat_0 = 0; _repeat_0 < count; _repeat_0++) {
          if (ctx.exiting())
            return null;
          body.get(ctx);
        }
        return null;
      }
    }

    static public class BoolAnd extends EvaluableBase implements IFieldsToList {

      public Evaluable a;

      public Evaluable b;

      public BoolAnd() {
      }

      public BoolAnd(Evaluable a, Evaluable b) {
        this.b = b;
        this.a = a;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + a + ", " + b + ")";
      }

      public boolean equals(Object o) {
        if (!(o instanceof BoolAnd))
          return false;
        BoolAnd __7 = (BoolAnd) o;
        return eq(a, __7.a) && eq(b, __7.b);
      }

      public int hashCode() {
        int h = 1729330797;
        h = boostHashCombine(h, _hashCode(a));
        h = boostHashCombine(h, _hashCode(b));
        return h;
      }

      public Object[] _fieldsToList() {
        return new Object[] { a, b };
      }

      public Object get(VarContext ctx) {
        if (!((Boolean) a.get(ctx)))
          return false;
        return b.get(ctx);
      }
    }

    static public class BoolOr extends EvaluableBase implements IFieldsToList {

      public Evaluable a;

      public Evaluable b;

      public BoolOr() {
      }

      public BoolOr(Evaluable a, Evaluable b) {
        this.b = b;
        this.a = a;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + a + ", " + b + ")";
      }

      public boolean equals(Object o) {
        if (!(o instanceof BoolOr))
          return false;
        BoolOr __8 = (BoolOr) o;
        return eq(a, __8.a) && eq(b, __8.b);
      }

      public int hashCode() {
        int h = 1995447949;
        h = boostHashCombine(h, _hashCode(a));
        h = boostHashCombine(h, _hashCode(b));
        return h;
      }

      public Object[] _fieldsToList() {
        return new Object[] { a, b };
      }

      public Object get(VarContext ctx) {
        if (((Boolean) a.get(ctx)))
          return true;
        return b.get(ctx);
      }
    }

    static public class TempBlock extends EvaluableBase implements IFieldsToList {

      public Evaluable tempExpr;

      public Evaluable body;

      public TempBlock() {
      }

      public TempBlock(Evaluable tempExpr, Evaluable body) {
        this.body = body;
        this.tempExpr = tempExpr;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + tempExpr + ", " + body + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { tempExpr, body };
      }

      public Object get(VarContext ctx) {
        AutoCloseable __2 = (AutoCloseable) (tempExpr.get(ctx));
        try {
          return body.get(ctx);
        } finally {
          _close(__2);
        }
      }
    }

    static public class WillReturn extends EvaluableBase implements IFieldsToList {

      public Evaluable exp;

      public Evaluable body;

      public WillReturn() {
      }

      public WillReturn(Evaluable exp, Evaluable body) {
        this.body = body;
        this.exp = exp;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + exp + ", " + body + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { exp, body };
      }

      public Object get(VarContext ctx) {
        body.get(ctx);
        return exp.get(ctx);
      }
    }

    static public class ClassDef extends EvaluableBase implements IFieldsToList {

      public ResolvableLASClass lasClass;

      public ClassDef() {
      }

      public ClassDef(ResolvableLASClass lasClass) {
        this.lasClass = lasClass;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + lasClass + ")";
      }

      public boolean equals(Object o) {
        if (!(o instanceof ClassDef))
          return false;
        ClassDef __9 = (ClassDef) o;
        return eq(lasClass, __9.lasClass);
      }

      public int hashCode() {
        int h = 757052301;
        h = boostHashCombine(h, _hashCode(lasClass));
        return h;
      }

      public Object[] _fieldsToList() {
        return new Object[] { lasClass };
      }

      public Object get(VarContext ctx) {
        return lasClass.get();
      }
    }

    static public class SetField extends EvaluableBase implements IFieldsToList {

      public Evaluable target;

      public String name;

      public Evaluable expr;

      public SetField() {
      }

      public SetField(Evaluable target, String name, Evaluable expr) {
        this.expr = expr;
        this.name = name;
        this.target = target;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + target + ", " + name + ", " + expr + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { target, name, expr };
      }

      final public SetField setAllowNullReference(boolean allowNullReference) {
        return allowNullReference(allowNullReference);
      }

      public SetField allowNullReference(boolean allowNullReference) {
        this.allowNullReference = allowNullReference;
        return this;
      }

      final public boolean getAllowNullReference() {
        return allowNullReference();
      }

      public boolean allowNullReference() {
        return allowNullReference;
      }

      public boolean allowNullReference = false;

      public Object handleNullReference() {
        if (allowNullReference)
          return null;
        else
          throw new NullPointerException();
      }

      public Object get(VarContext ctx) {
        try {
          Object value = expr.get(ctx);
          Object object = target.get(ctx);
          if (object == null)
            handleNullReference();
          else
            set(object, name, value);
          return value;
        } catch (Throwable e) {
          throw rethrowWithSrc(e);
        }
      }
    }

    static public class SetStaticField extends EvaluableBase implements IFieldsToList {

      public Field field;

      public Evaluable expr;

      public SetStaticField() {
      }

      public SetStaticField(Field field, Evaluable expr) {
        this.expr = expr;
        this.field = field;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + field + ", " + expr + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { field, expr };
      }

      public Object get(VarContext ctx) {
        try {
          Object value = expr.get(ctx);
          field.set(null, value);
          return value;
        } catch (Throwable e) {
          throw rethrowWithSrc(e);
        }
      }
    }

    static public class Throw extends EvaluableBase implements IFieldsToList {

      public Evaluable expr;

      public Throw() {
      }

      public Throw(Evaluable expr) {
        this.expr = expr;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + expr + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { expr };
      }

      public Object get(VarContext ctx) {
        throw asRuntimeException((Throwable) expr.get(ctx));
      }
    }

    static public class TryCatch extends EvaluableBase implements IFieldsToList {

      public Evaluable body;

      public String var;

      public Evaluable catchBlock;

      public TryCatch() {
      }

      public TryCatch(Evaluable body, String var, Evaluable catchBlock) {
        this.catchBlock = catchBlock;
        this.var = var;
        this.body = body;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + body + ", " + var + ", " + catchBlock + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { body, var, catchBlock };
      }

      public Object get(VarContext ctx) {
        try {
          return body.get(ctx);
        } catch (Throwable e) {
          var addVar = var == null ? null : ctx.tempPut(var, e);
          AutoCloseable __3 = addVar;
          try {
            return catchBlock.get(ctx);
          } finally {
            _close(__3);
          }
        }
      }
    }

    static public class TryFinally extends EvaluableBase implements IFieldsToList {

      public Evaluable body;

      public Evaluable finallyBlock;

      public TryFinally() {
      }

      public TryFinally(Evaluable body, Evaluable finallyBlock) {
        this.finallyBlock = finallyBlock;
        this.body = body;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + body + ", " + finallyBlock + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { body, finallyBlock };
      }

      public Object get(VarContext ctx) {
        try {
          return body.get(ctx);
        } finally {
          finallyBlock.get(ctx);
        }
      }
    }

    static public structure_Data structureDataForLAS() {
      structure_Data d = new structure_Data();
      d.skipDefaultValues(true);
      d.shouldIncludeField = field -> {
        String c = shortClassName(field.getDeclaringClass());
        String f = field.getName();
        boolean shouldInclude = !(eq(c, "HasTokenRangeWithSrc") && eq(f, "src"));
        return shouldInclude;
      };
      return d;
    }

    static public boolean isUnproblematicValue(Object o) {
      return o == null || o instanceof Number || o instanceof String || o instanceof Boolean || o instanceof Class;
    }

    static public String scriptStruct(Object o) {
      String s = struct(o, structureDataForLAS());
      List<String> tok = structTok(s);
      String prefix = shortName(GazelleV_LeftArrowScript.class) + "$";
      for (int i = 1; i < l(tok); i += 2) tok.set(i, replacePrefix(prefix, "$", tok.get(i)));
      return join(tok);
    }

    static public String indentedScriptStruct(Object o) {
      return indentStructureString(scriptStruct(o));
    }

    static public Evaluable _const(Object o) {
      return new Const(o);
    }

    static public class Then extends CallOnTarget {

      public CallOnTarget call1, call2;

      public Then(CallOnTarget call1, CallOnTarget call2) {
        this.call2 = call2;
        this.call1 = call1;
        target = call1.target;
        call1.target = null;
      }

      public Object evalOnTarget(VarContext ctx, Object object) {
        call1.evalOnTarget(ctx, object);
        return call2.evalOnTarget(ctx, object);
      }
    }

    static public class Synchronized extends EvaluableBase implements IFieldsToList {

      public Evaluable target;

      public Evaluable body;

      public Synchronized() {
      }

      public Synchronized(Evaluable target, Evaluable body) {
        this.body = body;
        this.target = target;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + target + ", " + body + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { target, body };
      }

      public Evaluable optimize() {
        if (!returnValueNeeded)
          body = body.optimizeForReturnValueNotNeeded();
        return this;
      }

      public Object get(VarContext ctx) {
        synchronized (target.get(ctx)) {
          return body.get(ctx);
        }
      }
    }
  }

  static public interface IVF2<A, B> {

    public void get(A a, B b);
  }

  static public interface WidthAndHeight {

    default public int w() {
      return getWidth();
    }

    default public int width() {
      return getWidth();
    }

    public int getWidth();

    default public int h() {
      return getHeight();
    }

    default public int height() {
      return getHeight();
    }

    public int getHeight();

    public default Rect bounds() {
      return rect(0, 0, getWidth(), getHeight());
    }

    default public int area() {
      return toInt(areaAsLong());
    }

    default public long areaAsLong() {
      return longMul(w(), h());
    }
  }

  static public class SynchronizedList<E> extends SynchronizedCollection<E> implements List<E> {

    public SynchronizedList() {
    }

    public List<E> list;

    public SynchronizedList(List<E> list) {
      super(list);
      this.list = list;
    }

    public SynchronizedList(List<E> list, Object mutex) {
      super(list, mutex);
      this.list = list;
    }

    public boolean equals(Object o) {
      if (this == o)
        return true;
      synchronized (mutex) {
        return list.equals(o);
      }
    }

    public int hashCode() {
      synchronized (mutex) {
        return list.hashCode();
      }
    }

    public E get(int index) {
      synchronized (mutex) {
        return list.get(index);
      }
    }

    public E set(int index, E element) {
      synchronized (mutex) {
        return list.set(index, element);
      }
    }

    public void add(int index, E element) {
      synchronized (mutex) {
        list.add(index, element);
      }
    }

    public E remove(int index) {
      synchronized (mutex) {
        return list.remove(index);
      }
    }

    public int indexOf(Object o) {
      synchronized (mutex) {
        return list.indexOf(o);
      }
    }

    public int lastIndexOf(Object o) {
      synchronized (mutex) {
        return list.lastIndexOf(o);
      }
    }

    public boolean addAll(int index, Collection<? extends E> c) {
      synchronized (mutex) {
        return list.addAll(index, c);
      }
    }

    public ListIterator<E> listIterator() {
      return list.listIterator();
    }

    public ListIterator<E> listIterator(int index) {
      return list.listIterator(index);
    }

    public List<E> subList(int fromIndex, int toIndex) {
      synchronized (mutex) {
        return new SynchronizedList<>(list.subList(fromIndex, toIndex), mutex);
      }
    }

    @Override
    public void replaceAll(java.util.function.UnaryOperator<E> operator) {
      synchronized (mutex) {
        list.replaceAll(operator);
      }
    }

    @Override
    public void sort(Comparator<? super E> c) {
      synchronized (mutex) {
        list.sort(c);
      }
    }

    @java.io.Serial
    private Object readResolve() {
      return (list instanceof RandomAccess ? new SynchronizedRandomAccessList<>(list) : this);
    }
  }

  static public class LASValueDescriptor {

    public LASValueDescriptor() {
    }

    public boolean knownValue() {
      return false;
    }

    public Object value() {
      return null;
    }

    public Type type() {
      return javaClass();
    }

    public Class javaClass() {
      return null;
    }

    public boolean javaClassIsExact() {
      return false;
    }

    public boolean canBeNull() {
      return true;
    }

    public boolean canFail() {
      return false;
    }

    public boolean willFail() {
      return false;
    }

    static public class Exact extends LASValueDescriptor implements IFieldsToList {

      public Class c;

      public boolean canBeNull = false;

      public Exact() {
      }

      public Exact(Class c, boolean canBeNull) {
        this.canBeNull = canBeNull;
        this.c = c;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + c + ", " + canBeNull + ")";
      }

      public boolean equals(Object o) {
        if (!(o instanceof Exact))
          return false;
        Exact __1 = (Exact) o;
        return eq(c, __1.c) && eq(canBeNull, __1.canBeNull);
      }

      public int hashCode() {
        int h = 67394271;
        h = boostHashCombine(h, _hashCode(c));
        h = boostHashCombine(h, _hashCode(canBeNull));
        return h;
      }

      public Object[] _fieldsToList() {
        return new Object[] { c, canBeNull };
      }

      public Class javaClass() {
        return c;
      }

      public boolean javaClassIsExact() {
        return true;
      }

      public boolean canBeNull() {
        return canBeNull;
      }
    }

    static public class NonExact extends LASValueDescriptor implements IFieldsToList {

      public Class c;

      public boolean canBeNull = false;

      public NonExact() {
      }

      public NonExact(Class c, boolean canBeNull) {
        this.canBeNull = canBeNull;
        this.c = c;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + c + ", " + canBeNull + ")";
      }

      public boolean equals(Object o) {
        if (!(o instanceof NonExact))
          return false;
        NonExact __2 = (NonExact) o;
        return eq(c, __2.c) && eq(canBeNull, __2.canBeNull);
      }

      public int hashCode() {
        int h = 1445514322;
        h = boostHashCombine(h, _hashCode(c));
        h = boostHashCombine(h, _hashCode(canBeNull));
        return h;
      }

      public Object[] _fieldsToList() {
        return new Object[] { c, canBeNull };
      }

      public Class javaClass() {
        return c;
      }

      public boolean javaClassIsExact() {
        return false;
      }

      public boolean canBeNull() {
        return canBeNull;
      }
    }

    static public class NonExactType extends LASValueDescriptor implements IFieldsToList {

      static final public String _fieldOrder = "type canBeNull";

      public Type type;

      public boolean canBeNull = false;

      public NonExactType() {
      }

      public NonExactType(Type type, boolean canBeNull) {
        this.canBeNull = canBeNull;
        this.type = type;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + type + ", " + canBeNull + ")";
      }

      public boolean equals(Object o) {
        if (!(o instanceof NonExactType))
          return false;
        NonExactType __3 = (NonExactType) o;
        return eq(type, __3.type) && eq(canBeNull, __3.canBeNull);
      }

      public int hashCode() {
        int h = 1099847340;
        h = boostHashCombine(h, _hashCode(type));
        h = boostHashCombine(h, _hashCode(canBeNull));
        return h;
      }

      public Object[] _fieldsToList() {
        return new Object[] { type, canBeNull };
      }

      public Type type() {
        return type;
      }

      public boolean javaClassIsExact() {
        return false;
      }

      public boolean canBeNull() {
        return canBeNull;
      }
    }

    static public LASValueDescriptor nonExactCanBeNull(Type c) {
      return new NonExact(typeToClass(c), true);
    }

    static public class KnownValue extends LASValueDescriptor implements IFieldsToList {

      public Object value;

      public KnownValue() {
      }

      public KnownValue(Object value) {
        this.value = value;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + value + ")";
      }

      public boolean equals(Object o) {
        if (!(o instanceof KnownValue))
          return false;
        KnownValue __4 = (KnownValue) o;
        return eq(value, __4.value);
      }

      public int hashCode() {
        int h = -1456305138;
        h = boostHashCombine(h, _hashCode(value));
        return h;
      }

      public Object[] _fieldsToList() {
        return new Object[] { value };
      }

      public boolean knownValue() {
        return true;
      }

      public Object value() {
        return value;
      }

      public Class javaClass() {
        return value == null ? null : value.getClass();
      }

      public boolean javaClassIsExact() {
        return value != null;
      }

      public boolean canBeNull() {
        return value == null;
      }
    }

    static public class WillFail extends LASValueDescriptor {

      public boolean canFail() {
        return true;
      }

      public boolean willFail() {
        return true;
      }
    }

    static public LASValueDescriptor fromClass(Class c) {
      return new NonExact(c, true);
    }

    static public LASValueDescriptor fromType(Type type) {
      return new NonExact(typeToClass(type), true);
    }

    public String toString() {
      return "LASValueDescriptor " + javaClass();
    }
  }

  static public class Meta implements IMeta {

    volatile public Object meta;

    public void _setMeta(Object meta) {
      this.meta = meta;
    }

    public Object _getMeta() {
      return meta;
    }

    final public boolean scaffolding() {
      return scaffoldingEnabled();
    }

    final public boolean scaffolded() {
      return scaffoldingEnabled();
    }

    public boolean scaffoldingEnabled() {
      return main.scaffoldingEnabled(this);
    }

    public boolean scaffoldingEnabled(Object o) {
      return main.scaffoldingEnabled(o);
    }

    public String toString_base() {
      return super.toString();
    }

    public String toString() {
      Object o = metaGet("toString", this);
      if (o instanceof String)
        return ((String) o);
      if (o instanceof IF1)
        return str(((IF1) o).get(this));
      return toString_base();
    }
  }

  static public class FlexibleVarContext extends VarContext {

    public Map<String, Object> vars;

    public FlexibleVarContext() {
    }

    public FlexibleVarContext(VarContext parent) {
      super(parent);
    }

    public Object get(String name) {
      if (containsKey(vars, name))
        return mapGet(vars, name);
      if (parent != null)
        return parent.get(name);
      return null;
    }

    public void set(String name, Object value) {
      vars = putOrCreateSyncMap(vars, name, value);
    }

    public AutoCloseable tempSet(String name, Object value) {
      initMap();
      return main.tempPut(vars, name, value);
    }

    public void unset(String name) {
      remove(vars, name);
    }

    public Map<String, Object> varMap() {
      return vars;
    }

    final public void initMap() {
      makeThreadSafe();
    }

    public void makeThreadSafe() {
      if (vars == null)
        vars = syncHashMap();
    }
  }

  static public class PingSourceCancelledException extends RuntimeException implements IFieldsToList {

    public PingSource pingSource;

    public PingSourceCancelledException() {
    }

    public PingSourceCancelledException(PingSource pingSource) {
      this.pingSource = pingSource;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + pingSource + ")";
    }

    public Object[] _fieldsToList() {
      return new Object[] { pingSource };
    }
  }

  static public class TokenRangeWithSrc extends TokenRange {

    public List<String> tok;

    final public TokenRangeWithSrc setSourceInfo(Object sourceInfo) {
      return sourceInfo(sourceInfo);
    }

    public TokenRangeWithSrc sourceInfo(Object sourceInfo) {
      this.sourceInfo = sourceInfo;
      return this;
    }

    final public Object getSourceInfo() {
      return sourceInfo();
    }

    public Object sourceInfo() {
      return sourceInfo;
    }

    public Object sourceInfo;

    public TokenRangeWithSrc() {
    }

    public TokenRangeWithSrc(List<String> tok, int start) {
      this.start = start;
      end = start;
    }

    public TokenRangeWithSrc(List<String> tok, int start, int end) {
      this.end = end;
      this.start = start;
    }

    public TokenRangeWithSrc(ListAndIndex<String> startPtr, ListAndIndex<String> endPtr) {
      assertNotNull("startPtr", startPtr);
      assertNotNull("endPtr", endPtr);
      assertSame(tok = startPtr.list(), endPtr.list());
      start = startPtr.idx();
      end = endPtr.idx();
    }

    public ListAndIndex<String> startPtr() {
      return new ListAndIndex(tok, start);
    }

    public ListAndIndex<String> endPtr() {
      return new ListAndIndex(tok, end);
    }

    public LineAndColumn startLineAndCol() {
      return tokenToLineAndColumn(startPtr());
    }

    public LineAndColumn endLineAndCol() {
      return tokenToLineAndColumn(endPtr());
    }

    public String text() {
      return joinSubList(tok, start, end);
    }

    public String renderRange() {
      return renderLineAndColumnRange(startLineAndCol(), endLineAndCol());
    }

    public String toString() {
      return spaceCombine(sourceInfo(), renderRange());
    }

    public String fullSourceText() {
      return join(tok);
    }
  }

  static public class ScoredStringSearcher extends ScoredSearcher_stable<String> {

    public Set<String> seen;

    public ScoredStringSearcher() {
    }

    public ScoredStringSearcher(String query, Object... __) {
      super(query);
    }

    public ScoredStringSearcher uniquify(boolean b) {
      seen = b ? new HashSet() : null;
      return this;
    }

    final public void add(String s) {
      put(s);
    }

    public void put(String s) {
      if (seen == null || seen.add(s))
        put(s, s);
    }

    public void addAll(Iterable<String> l) {
      for (var s : unnullForIteration(l)) add(s);
    }

    public void addAll(String... l) {
      addAll(asList(l));
    }
  }

  static public class ClassNameResolver {

    final public ClassNameResolver setByteCodePath(File byteCodePath) {
      return byteCodePath(byteCodePath);
    }

    public ClassNameResolver byteCodePath(File byteCodePath) {
      this.byteCodePath = byteCodePath;
      return this;
    }

    final public File getByteCodePath() {
      return byteCodePath();
    }

    public File byteCodePath() {
      return byteCodePath;
    }

    public File byteCodePath = byteCodePathForClass(getClass());

    public List<String> importedPackages = itemPlusList("java.lang", endingWith_dropSuffix(standardImports(), ".*"));

    public Set<String> allFullyQualifiedClassNames_cache;

    public Set<String> allFullyQualifiedClassNames() {
      if (allFullyQualifiedClassNames_cache == null)
        allFullyQualifiedClassNames_cache = allFullyQualifiedClassNames_load();
      return allFullyQualifiedClassNames_cache;
    }

    public Set<String> allFullyQualifiedClassNames_load() {
      Set<String> set = new HashSet();
      assertNotNull(byteCodePath);
      set.addAll(classNamesInJarOrDir(byteCodePath));
      printVars("ClassNameResolver", "byteCodePath", byteCodePath, "classesFound", l(set));
      set.addAll(classNamesInLoadedJigsawModules());
      return set;
    }

    public ClassNameResolver init() {
      allFullyQualifiedClassNames();
      return this;
    }

    public String findClass(String name) {
      for (String pkg : importedPackages) {
        String fullName = pkg + "." + name;
        if (allFullyQualifiedClassNames().contains(fullName))
          return fullName;
      }
      return null;
    }

    public void printMe() {
      printVars("ClassNameResolver", "byteCodePath", byteCodePath);
      print("importedPackages", importedPackages);
    }
  }

  static public class ThreadPool implements AutoCloseable {

    public int max = numberOfCores();

    public List<PooledThread> all = new ArrayList();

    public Set<PooledThread> used = new HashSet();

    public Set<PooledThread> free = new HashSet();

    public boolean verbose, retired;

    public class InternalPingSource extends PingSource {
    }

    public InternalPingSource internalPingSource = new InternalPingSource();

    public MultiSleeper sleeper = new MultiSleeper();

    public ThreadPool() {
    }

    public ThreadPool(int max) {
      this.max = max;
    }

    synchronized public int maxSize() {
      return max;
    }

    synchronized public int total() {
      return l(used) + l(free);
    }

    transient public Set<Runnable> onCustomerMustWaitAlert;

    public ThreadPool onCustomerMustWaitAlert(Runnable r) {
      onCustomerMustWaitAlert = createOrAddToSyncLinkedHashSet(onCustomerMustWaitAlert, r);
      return this;
    }

    public ThreadPool removeCustomerMustWaitAlertListener(Runnable r) {
      main.remove(onCustomerMustWaitAlert, r);
      return this;
    }

    public void customerMustWaitAlert() {
      if (onCustomerMustWaitAlert != null)
        for (var listener : onCustomerMustWaitAlert) pcallF_typed(listener);
    }

    public void fireCustomerMustWaitAlert() {
      vmBus_send("customerMustWaitAlert", this, currentThread());
      customerMustWaitAlert();
    }

    public PooledThread acquireThreadOrQueue(Runnable action) {
      if (action == null)
        return null;
      PooledThread t;
      synchronized (this) {
        if (_hasFreeAfterCreating()) {
          t = _firstFreeThread();
          markUsed(t);
        } else
          t = _anyThread();
      }
      t.addWork(action);
      return t;
    }

    public boolean _hasFreeAfterCreating() {
      checkNotRetired();
      if (nempty(free))
        return true;
      if (total() < max) {
        PooledThread t = newThread();
        all.add(t);
        free.add(t);
        return true;
      }
      return false;
    }

    public PooledThread acquireThreadOrWait(Runnable action) {
      try {
        if (action == null)
          return null;
        PooledThread t;
        while (true) {
          synchronized (this) {
            if (_hasFreeAfterCreating()) {
              t = _firstFreeThread();
              break;
            } else
              _waitWaitWait();
          }
        }
        t.addWork(action);
        return t;
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public PooledThread _firstFreeThread() {
      return first(free);
    }

    public PooledThread _anyThread() {
      return random(used);
    }

    public class PooledThread extends Thread {

      public PooledThread(String name) {
        super(name);
      }

      public AppendableChain<Runnable> q;

      synchronized public Runnable _grabWorkOrSleep() {
        try {
          Runnable r = first(q);
          if (r == null) {
            markFree(this);
            if (verbose)
              print("Thread sleeps");
            synchronized (this) {
              wait();
            }
            if (verbose)
              print("Thread woke up");
            return null;
          }
          q = popFirst(q);
          return r;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public void run() {
        try {
          pingSource_tl().set(internalPingSource);
          while (!retired()) {
            ping();
            Runnable r = _grabWorkOrSleep();
            if (verbose)
              print(this + " work: " + r);
            if (r != null)
              try {
                if (verbose)
                  print(this + " running: " + r);
                r.run();
                pingSource_tl().set(internalPingSource);
                if (verbose)
                  print(this + " done");
              } catch (Throwable e) {
                pingSource_tl().set(internalPingSource);
                if (verbose)
                  print(this + " error");
                printStackTrace(e);
              } finally {
                pingSource_tl().set(internalPingSource);
                if (verbose)
                  print("ThreadPool finally");
              }
          }
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      synchronized public boolean isEmpty() {
        return empty(q);
      }

      public void addWork(Runnable r) {
        if (verbose)
          print("Added work to " + this + ": " + r);
        synchronized (this) {
          q = chainPlus(q, r);
          notifyAll();
        }
      }
    }

    public PooledThread newThread() {
      PooledThread t = new PooledThread("Thread Pool Inhabitant " + n2(total() + 1));
      t.start();
      return t;
    }

    synchronized public void markFree(PooledThread t) {
      used.remove(t);
      free.add(t);
      notifyAll();
    }

    synchronized public void markUsed(PooledThread t) {
      free.remove(t);
      used.add(t);
    }

    synchronized public String toString() {
      return retired() ? "Retired ThreadPool" : "ThreadPool " + roundBracket(commaCombine(n2(used) + " used out of " + n2(total()), max <= total() ? null : "could grow to " + n2(max)));
    }

    synchronized public boolean retired() {
      return retired;
    }

    synchronized public void retire() {
      if (verbose)
        print("ThreadPool Retiring");
      retired = true;
      for (var thread : free) syncNotifyAll(thread);
    }

    public void checkNotRetired() {
      if (retired())
        throw fail("retired");
    }

    synchronized public void close() {
      try {
        retire();
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void _waitWaitWait() {
      try {
        do {
          fireCustomerMustWaitAlert();
          wait();
          checkNotRetired();
        } while (empty(free));
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void dO(String text, Runnable r) {
      if (r == null)
        return;
      new PingSource(this, text).dO(r);
    }

    public ISleeper_v2 sleeper() {
      return sleeper;
    }
  }

  static public class G22Utils_Base {

    transient public Set<IVF1<File>> onProjectFileChanged;

    public G22Utils_Base onProjectFileChanged(IVF1<File> f) {
      onProjectFileChanged = createOrAddToSyncLinkedHashSet(onProjectFileChanged, f);
      return this;
    }

    public G22Utils_Base removeProjectFileChangedListener(IVF1<File> f) {
      main.remove(onProjectFileChanged, f);
      return this;
    }

    public void projectFileChanged(File file) {
      if (onProjectFileChanged != null)
        for (var listener : onProjectFileChanged) pcallF_typed(listener, file);
    }
  }

  static public class G22Utils extends G22Utils_Base implements AutoCloseable, TransientObject {

    final public G22Utils setBackgroundProcessesUI(IBackgroundProcesses backgroundProcessesUI) {
      return backgroundProcessesUI(backgroundProcessesUI);
    }

    public G22Utils backgroundProcessesUI(IBackgroundProcesses backgroundProcessesUI) {
      this.backgroundProcessesUI = backgroundProcessesUI;
      return this;
    }

    final public IBackgroundProcesses getBackgroundProcessesUI() {
      return backgroundProcessesUI();
    }

    public IBackgroundProcesses backgroundProcessesUI() {
      return backgroundProcessesUI;
    }

    public IBackgroundProcesses backgroundProcessesUI;

    final public G22Utils setModule(Enterable module) {
      return module(module);
    }

    public G22Utils module(Enterable module) {
      this.module = module;
      return this;
    }

    final public Enterable getModule() {
      return module();
    }

    public Enterable module() {
      return module;
    }

    public Enterable module;

    final public G22Utils setMasterStuff(G22MasterStuff masterStuff) {
      return masterStuff(masterStuff);
    }

    public G22Utils masterStuff(G22MasterStuff masterStuff) {
      this.masterStuff = masterStuff;
      return this;
    }

    final public G22MasterStuff getMasterStuff() {
      return masterStuff();
    }

    public G22MasterStuff masterStuff() {
      return masterStuff;
    }

    public G22MasterStuff masterStuff;

    final public G22Utils setConcepts(Concepts concepts) {
      return concepts(concepts);
    }

    public G22Utils concepts(Concepts concepts) {
      this.concepts = concepts;
      return this;
    }

    final public Concepts getConcepts() {
      return concepts();
    }

    public Concepts concepts() {
      return concepts;
    }

    public Concepts concepts;

    final public G22Utils setProjectActions(G22ProjectActions projectActions) {
      return projectActions(projectActions);
    }

    public G22Utils projectActions(G22ProjectActions projectActions) {
      this.projectActions = projectActions;
      return this;
    }

    final public G22ProjectActions getProjectActions() {
      return projectActions();
    }

    public G22ProjectActions projectActions() {
      return projectActions;
    }

    public G22ProjectActions projectActions;

    final public G22AutoStarter getAutoStarter() {
      return autoStarter();
    }

    public G22AutoStarter autoStarter() {
      return autoStarter;
    }

    public G22AutoStarter autoStarter = new G22AutoStarter(this);

    final public G22Utils setFunctionTimings(FunctionTimings<String> functionTimings) {
      return functionTimings(functionTimings);
    }

    public G22Utils functionTimings(FunctionTimings<String> functionTimings) {
      this.functionTimings = functionTimings;
      return this;
    }

    final public FunctionTimings<String> getFunctionTimings() {
      return functionTimings();
    }

    public FunctionTimings<String> functionTimings() {
      return functionTimings;
    }

    public FunctionTimings<String> functionTimings = new FunctionTimings();

    final public Map<String, GazelleV_LeftArrowScript.FunctionDef> getProjectWideFunctionDefs() {
      return projectWideFunctionDefs();
    }

    public Map<String, GazelleV_LeftArrowScript.FunctionDef> projectWideFunctionDefs() {
      return projectWideFunctionDefs;
    }

    public Map<String, GazelleV_LeftArrowScript.FunctionDef> projectWideFunctionDefs = syncMap();

    final public Map<String, Class> getProjectWideClassDefs() {
      return projectWideClassDefs();
    }

    public Map<String, Class> projectWideClassDefs() {
      return projectWideClassDefs;
    }

    public Map<String, Class> projectWideClassDefs = syncMap();

    public Timestamp recompileDate;

    final public Set<AutoCloseable> getAutoClosingResources() {
      return autoClosingResources();
    }

    public Set<AutoCloseable> autoClosingResources() {
      return autoClosingResources;
    }

    public Set<AutoCloseable> autoClosingResources = syncLinkedHashSet();

    public FileWatchService fileWatcher;

    public boolean projectFileListenerInitiated = false;

    final public CombinedStringifier getStringifier() {
      return stringifier();
    }

    public CombinedStringifier stringifier() {
      return stringifier;
    }

    public CombinedStringifier stringifier = new CombinedStringifier(o -> o instanceof BufferedImage ? "Image (" + ((BufferedImage) o).getWidth() + "*" + ((BufferedImage) o).getHeight() + " px)" : null);

    public ILASClassLoader lasClassLoader() {
      return masterStuff == null ? null : masterStuff.lasClassLoader();
    }

    final public G22Utils setConfirmProjectReplacements(boolean confirmProjectReplacements) {
      return confirmProjectReplacements(confirmProjectReplacements);
    }

    public G22Utils confirmProjectReplacements(boolean confirmProjectReplacements) {
      this.confirmProjectReplacements = confirmProjectReplacements;
      return this;
    }

    final public boolean getConfirmProjectReplacements() {
      return confirmProjectReplacements();
    }

    public boolean confirmProjectReplacements() {
      return confirmProjectReplacements;
    }

    public boolean confirmProjectReplacements = false;

    public ImageSurface stdImageSurface_noToolTip() {
      return stdImageSurface_noToolTip(imageSurface());
    }

    public ImageSurface stdImageSurface_noToolTip(ImageSurface is) {
      imageSurface_pixelated(is);
      is.setAutoZoomToDisplay(true).repaintInThread(false);
      is.defaultImageDir = () -> dbDir();
      is.specialPurposed = true;
      return is;
    }

    public ImageSurface stdImageSurface() {
      return stdImageSurface(imageSurface());
    }

    public ImageSurface stdImageSurface(ImageSurface is) {
      stdImageSurface_noToolTip(is);
      new ImageSurface_PositionToolTip(is);
      return is;
    }

    public List<ImageSurface> stdImageSurfaces(Collection images) {
      return map(__20 -> stdImageSurface(__20), toBufferedImages(images));
    }

    public ImageSurface stdImageSurface(MakesBufferedImage img) {
      return stdImageSurface(toBufferedImage(img));
    }

    public ImageSurface stdImageSurface(BufferedImage img) {
      var is = stdImageSurface();
      is.setImage(img);
      return is;
    }

    public ImageSurface stdImageSurface(File file) {
      var is = stdImageSurface();
      is.setImage(file);
      return is;
    }

    public ImageSurface stdImageSurface(G22GalleryImage img) {
      return stdImageSurface(img == null ? null : img.path);
    }

    public ImageSurface stdImageSurfaceWithSelection(MakesBufferedImage img, Rect selection) {
      return stdImageSurfaceWithSelection(toBufferedImage(img), selection);
    }

    public ImageSurface stdImageSurfaceWithSelection(BufferedImage img, Rect selection) {
      var is = stdImageSurface(img);
      is.setSelection(selection);
      return is;
    }

    public String stringify(Object o) {
      return stringifier.toString(o);
    }

    transient public Set<IVF1<G22Variable>> onBigVariableLoaded;

    public G22Utils onBigVariableLoaded(IVF1<G22Variable> f) {
      onBigVariableLoaded = createOrAddToSyncLinkedHashSet(onBigVariableLoaded, f);
      return this;
    }

    public G22Utils removeBigVariableLoadedListener(IVF1<G22Variable> f) {
      main.remove(onBigVariableLoaded, f);
      return this;
    }

    public void bigVariableLoaded(G22Variable var) {
      if (onBigVariableLoaded != null)
        for (var listener : onBigVariableLoaded) pcallF_typed(listener, var);
    }

    transient public Set<IVF1<GazelleV_LeftArrowScriptParser>> onSettingUpParser;

    public G22Utils onSettingUpParser(IVF1<GazelleV_LeftArrowScriptParser> f) {
      onSettingUpParser = createOrAddToSyncLinkedHashSet(onSettingUpParser, f);
      return this;
    }

    public G22Utils removeSettingUpParserListener(IVF1<GazelleV_LeftArrowScriptParser> f) {
      main.remove(onSettingUpParser, f);
      return this;
    }

    public void settingUpParser(GazelleV_LeftArrowScriptParser parser) {
      if (onSettingUpParser != null)
        for (var listener : onSettingUpParser) pcallF_typed(listener, parser);
    }

    transient public Set<IVF1<JLeftArrowScriptIDE>> onSettingUpScriptIDE;

    public G22Utils onSettingUpScriptIDE(IVF1<JLeftArrowScriptIDE> f) {
      onSettingUpScriptIDE = createOrAddToSyncLinkedHashSet(onSettingUpScriptIDE, f);
      return this;
    }

    public G22Utils removeSettingUpScriptIDEListener(IVF1<JLeftArrowScriptIDE> f) {
      main.remove(onSettingUpScriptIDE, f);
      return this;
    }

    public void settingUpScriptIDE(JLeftArrowScriptIDE ide) {
      if (onSettingUpScriptIDE != null)
        for (var listener : onSettingUpScriptIDE) pcallF_typed(listener, ide);
    }

    public GazelleV_LeftArrowScriptParser leftArrowParser() {
      GazelleV_LeftArrowScriptParser parser = new GazelleV_LeftArrowScriptParser();
      parser.classNameResolver(classNameResolver());
      parser.lasClassLoader(lasClassLoader());
      settingUpParser(parser);
      parser.addClassAlias("Bool", "Boolean");
      parser.addClassAlias("BollingerBands", "LiveBollingerBands");
      parser.addClassAlias("Freq", "Frequency");
      parser.addClassAlias("PriceDigitizer", "PriceDigitizer2");
      parser.addClassAlias("MRUAndAllTimeTop", "MRUAndAllTimeTop_optimized");
      parser.findExternalObject2 = name -> {
        {
          var __2 = projectWideClassDefs.get(name);
          if (__2 != null)
            return __2;
        }
        return parser.findExternalObject2_base(name);
      };
      parser.addFunctionDefs(projectWideFunctionDefs);
      return parser;
    }

    public Object leftArrow(String script) {
      return leftArrowParse(script).get();
    }

    public GazelleV_LeftArrowScript.Script leftArrowParse(String script) {
      return leftArrowParser().parse(script);
    }

    public Object leftArrowWithVars(String script, Object... vars) {
      var parser = leftArrowParser();
      for (int i = 0; i < l(vars); i += 2) parser.addVar((String) vars[i], or(_getClass(vars[i + 1]), Object.class), true);
      var parsed = parser.parse(script);
      FlexibleVarContext varContext = new FlexibleVarContext();
      for (int i = 0; i < l(vars); i += 2) varContext.set((String) vars[i], vars[i + 1]);
      return parsed.get(varContext);
    }

    public void basicParserTest() {
      var parser = leftArrowParser();
      print("classContainerPrefixes", parser.classContainerPrefixes());
      assertEquals(pair(1, 2), parser.parse("new Pair 1 2").get());
    }

    final public JLeftArrowScriptIDE leftArrowScriptIDE() {
      return leftArrowIDE();
    }

    public JLeftArrowScriptIDE leftArrowIDE() {
      JLeftArrowScriptIDE ide = new JLeftArrowScriptIDE();
      ide.g22utils(this);
      ide.scriptTimeout(projectWideScriptTimeout());
      settingUpScriptIDE(ide);
      return ide;
    }

    public File byteCodePath() {
      return assertNotNull(getBytecodePathForClass(this));
    }

    public ClassNameResolver classNameResolver_cache;

    public ClassNameResolver classNameResolver() {
      if (classNameResolver_cache == null)
        classNameResolver_cache = classNameResolver_load();
      return classNameResolver_cache;
    }

    public ClassNameResolver classNameResolver_load() {
      return new ClassNameResolver().byteCodePath(byteCodePath()).init();
    }

    public File databasesMotherDir() {
      return masterStuff.databasesMotherDir();
    }

    public File dirOfProjectNamed(String name) {
      assertNempty(name);
      return newFile(databasesMotherDir(), name);
    }

    public AutoCloseable enter() {
      return module == null ? null : module.enter();
    }

    public String defaultDBName() {
      return "Default";
    }

    public File lastOpenedDBsFile() {
      return newFile(databasesMotherDir(), "Last Opened");
    }

    public File recentlyOpenedDBsFile() {
      return newFile(databasesMotherDir(), "Recently Opened");
    }

    public File autoUpdateFile() {
      return newFile(databasesMotherDir(), "Auto-Update");
    }

    public boolean autoUpdateEnabled() {
      return fileExists(autoUpdateFile());
    }

    public void setAutoUpdate(boolean b) {
      createOrRemoveFile(autoUpdateFile(), b);
    }

    public List<String> dbsToOpen() {
      return loadRecentProjectsFile(lastOpenedDBsFile());
    }

    public List<String> dbNamesRecentlyOpened() {
      return loadRecentProjectsFile(recentlyOpenedDBsFile());
    }

    public void addToRecentDBNames(String dbName, boolean hidden) {
      List<String> list = dbNamesRecentlyOpened();
      List<String> list2 = cloneList(list);
      removeAll(list2, dbName, "*" + dbName);
      list2.add(0, hidden ? "*" + dbName : dbName);
      truncateList(list2, 100);
      if (!eq(list, list2))
        saveTextFile(recentlyOpenedDBsFile(), lines(list2));
    }

    public List<String> loadRecentProjectsFile(File file) {
      List<String> dbNames = new ArrayList();
      for (String name : tlft(loadTextFile(file))) {
        String name2 = dropPrefix("*", name);
        if (fileExists(newFile(databasesMotherDir(), name2)))
          dbNames.add(name);
      }
      if (empty(dbNames))
        dbNames.add(defaultDBName());
      return dbNames;
    }

    public void setOpenDBs(Collection<? extends IG22LoadedDB> dbs) {
      List<String> dbNames = new ArrayList();
      for (var db : dbs) {
        var dbDir = conceptsDir(db.concepts());
        if (sameFile(databasesMotherDir(), dirOfFile(dbDir)))
          dbNames.add((db.hidden() ? "*" : "") + fileName(dbDir));
      }
      saveTextFile(lastOpenedDBsFile(), lines(dbNames));
    }

    public <A extends G22LeftArrowScript> void setupScriptCRUD(SimpleCRUD_v2<A> crud) {
      setupScriptCRUD(crud, false);
    }

    public <A extends G22LeftArrowScript> void setupScriptCRUD(SimpleCRUD_v2<A> crud, boolean allowRunOnProjectOpen) {
      crud.useNewChangeHandler(true);
      crud.editableFieldsForItem = x -> llNonNulls("description", allowRunOnProjectOpen ? "runOnProjectOpen" : null, allowRunOnProjectOpen ? "runOrder" : null);
      crud.multiLineField("text");
      crud.multiLineField("editingText");
      crud.makeTextArea = text -> jMinHeight(200, crud.makeTextArea_base(text));
      crud.humanizeFieldNames = false;
      crud.iconButtons(true);
      crud.itemToMap_inner2 = c -> scriptToMap(c, allowRunOnProjectOpen);
      crud.dontDuplicateFields = litset("runOnProjectOpen", "runCount", "lastResultByMode");
    }

    public Map<String, Object> scriptToMap(G22LeftArrowScript c) {
      return scriptToMap(c, false);
    }

    public Map<String, Object> scriptToMap(G22LeftArrowScript c, boolean allowRunOnProjectOpen) {
      return litorderedmap("Description", c.description(), "Status", renderScriptStatus(c), "LoC", renderScriptLoC(c), "Import note", c.importNote, "Run on project open", c.renderRunOnProjectOpenStatus());
    }

    public String renderScriptStatus(G22LeftArrowScript c) {
      return or2_rev("Empty", joinNemptiesWithSpacedPlus(c.isClearForAutoRun() ? "Clear for auto-run" : null, c.isSavedDistinctFromAutoRunVersion() ? "Saved (not cleared)" : null, c.isEditing() ? "Editing" : null));
    }

    public String renderScriptLoC(G22LeftArrowScript c) {
      return n2(intMax(mapLL(__78 -> linesOfCode_javaTok(__78), c.editingText, c.text, c.codeForAutoRun())));
    }

    public List<G22Label> labelsForFile(File file) {
      if (file == null)
        return null;
      File labelsFile = appendToFileName(file, ".labels");
      List<String> labels = tlft(loadTextFile(labelsFile));
      return map(__21 -> getLabel(__21), labels);
    }

    public File labelsFile(File file) {
      if (file == null)
        return null;
      return appendToFileName(file, ".labels");
    }

    public void setLabelsForFile(File file, List<G22Label> labels) {
      List<String> list = map(labels, label -> label.name);
      File f = labelsFile(file);
      saveTextFile(f, lines(list));
      print("Saved " + nLabels(list) + " (" + joinWithComma(list) + ") to " + f);
    }

    public G22Label getLabel(String name) {
      if (empty(name))
        return null;
      if (containsNewLine(name))
        throw fail("No newlines in label names allowed: " + name);
      return uniqCI(concepts, G22Label.class, "name", name);
    }

    final public File projectDir() {
      return dbDir();
    }

    public File dbDir() {
      return conceptsDir(concepts);
    }

    final public File projectFile(String name) {
      return fileInDbDir(name);
    }

    public File fileInDbDir(String name) {
      return newFile(dbDir(), name);
    }

    public class GazelleDB implements IFieldsToList {

      public String name;

      public File dir;

      public GazelleDB() {
      }

      public GazelleDB(String name, File dir) {
        this.dir = dir;
        this.name = name;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + name + ", " + dir + ")";
      }

      public boolean equals(Object o) {
        if (!(o instanceof GazelleDB))
          return false;
        GazelleDB __0 = (GazelleDB) o;
        return eq(name, __0.name) && eq(dir, __0.dir);
      }

      public int hashCode() {
        int h = 1669530526;
        h = boostHashCombine(h, _hashCode(name));
        h = boostHashCombine(h, _hashCode(dir));
        return h;
      }

      public Object[] _fieldsToList() {
        return new Object[] { name, dir };
      }

      public String name() {
        return name;
      }

      public File dir() {
        return dir;
      }

      public boolean loaded() {
        return loadedDB() != null;
      }

      public IG22LoadedDB loadedDB_cache;

      public IG22LoadedDB loadedDB() {
        if (loadedDB_cache == null)
          loadedDB_cache = loadedDB_load();
        return loadedDB_cache;
      }

      public IG22LoadedDB loadedDB_load() {
        return masterStuff.getLoadedDBForConceptDir(dir);
      }

      public File conceptsFile() {
        return conceptsFileIn(dir);
      }
    }

    public List<GazelleDB> gazelleDBs() {
      List<GazelleDB> dbs = new ArrayList();
      for (File dir : listDirsContainingFileNamed(databasesMotherDir(), "concepts.structure.gz")) dbs.add(new GazelleDB(fileName(dir), dir));
      return dbs;
    }

    public IterableIterator<Concepts> peekAllProjectsConcepts() {
      var classFinder = masterStuff.makeClassFinder();
      return mapI_pcall(gazelleDBs(), db -> {
        var cc = newConceptsWithClassFinder(db.conceptsFile(), classFinder);
        cc.loadFromDisk();
        return cc;
      });
    }

    public RSyntaxTextAreaWithSearch newSyntaxTextArea() {
      return newSyntaxTextArea((IF1) null);
    }

    public RSyntaxTextAreaWithSearch newSyntaxTextArea(IF1<JComponent, JComponent> wrapStatusLabel) {
      RSyntaxTextAreaWithSearch ta = new RSyntaxTextAreaWithSearch(wrapStatusLabel);
      ta.textArea().setHighlightCurrentLine(false);
      ta.menuLessOperation();
      return ta;
    }

    public RSyntaxTextAreaWithSearch newSyntaxTextArea(String text) {
      var ta = newSyntaxTextArea();
      ta.setText(text);
      return ta;
    }

    public File projectStoryTextFile() {
      return newFile(dbDir(), "story.txt");
    }

    public String projectName() {
      return fileName(dbDir());
    }

    public void close() {
      try {
        autoStarter.close();
        closeAndClear(autoClosingResources);
        {
          cleanUp(fileWatcher);
          fileWatcher = null;
        }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void close(AutoCloseable c) {
      main.close(c);
    }

    public G22Variable findProjectVar(String name) {
      return conceptWhereCI(concepts, G22Variable.class, "name", name);
    }

    public Collection<String> projectVarNames() {
      return collect("name", list(concepts, G22Variable.class));
    }

    public Object getProjectVar(String name) {
      G22Variable var = findProjectVar(name);
      return var == null ? null : var.value();
    }

    public Object getBigProjectVarOnce(String name) {
      G22Variable var = findProjectVar(name);
      return var == null ? null : var.getOnce();
    }

    public Object getMandatoryProjectVar(String name) {
      return assertNotNull(name, getProjectVar(name));
    }

    public Object getOrSetTransientProjectVar(String name, IF0 f) {
      {
        var __3 = getProjectVar(name);
        if (__3 != null)
          return __3;
      }
      return setTransientProjectVarAndReturn(name, f.get());
    }

    public Object getProjectVarOrCallScript(String name, long scriptID) {
      {
        var __4 = getProjectVar(name);
        if (__4 != null)
          return __4;
      }
      return callScript(scriptID);
    }

    public Object getProjectVarSetByScript(String name, long scriptID) {
      {
        var __5 = getProjectVar(name);
        if (__5 != null)
          return __5;
      }
      callScript(scriptID);
      return getProjectVar(name);
    }

    public Object getProjectVarFromAnyProject(String name) {
      for (var project : masterStuff().openProjects()) {
        var __6 = project.g22utils().getProjectVar(name);
        if (__6 != null)
          return __6;
      }
      return null;
    }

    final public List getVarFromAnyProject(String name) {
      return getProjectVarFromAllProjects(name);
    }

    public List getProjectVarFromAllProjects(String name) {
      return nonNulls(masterStuff().openProjects(), project -> project.g22utils().getProjectVar(name));
    }

    public G22Variable projectVarConcept(String name) {
      return optimizedUniqCI(concepts, G22Variable.class, "name", name);
    }

    public Object waitForProjectVar(String name) {
      return waitForProjectVar(infinity(), name);
    }

    public Object waitForProjectVar(double timeoutSeconds, String name) {
      G22Variable var = projectVarConcept(name);
      return waitForCalculatedValueUsingChangeListener(timeoutSeconds, () -> var.value(), var);
    }

    public void setBigProjectVar(boolean persistent, String name, Object value) {
      if (persistent)
        setBigProjectVar(name, value);
      else
        setTransientProjectVar(name, value);
    }

    public G22Variable setProjectVar(boolean persistent, String name, Object value) {
      G22Variable var = projectVarConcept(name);
      if (!persistent)
        var.persistent(persistent);
      var.value(value);
      if (persistent)
        var.persistent(persistent);
      return var;
    }

    public void unloadProjectVar(String name) {
      var var = findProjectVar(name);
      {
        if (var != null)
          var.unload();
      }
    }

    public <A> A setBigProjectVar(String name, A value) {
      setPersistentProjectVar(name, value);
      G22Variable var = projectVarConcept(name);
      var.makeBig();
      return value;
    }

    public Object getCachedProjectVar(String name) {
      var var = findProjectVar(name);
      return var == null ? null : var.cachedValue();
    }

    public boolean isBigProjectVar(String name) {
      var v = findProjectVar(name);
      return v != null && v.big();
    }

    public <A> A setPersistentProjectVar(String name, A value) {
      setProjectVar(true, name, value);
      return value;
    }

    public G22Variable setTransientProjectVar(String name, Object value) {
      return setProjectVar(false, name, value);
    }

    public <A> A setTransientProjectVarAndReturn(String name, A value) {
      setProjectVar(false, name, value);
      return value;
    }

    public void setAutoClosingProjectVar(String name, Object value) {
      setTransientProjectVar(name, value).autoClose(true);
    }

    public void clearProjectVar(String name) {
      var v = findProjectVar(name);
      {
        if (v != null)
          v.clear();
      }
    }

    public void deleteProjectVar(String name) {
      deleteConcept(findProjectVar(name));
    }

    final public Object getOrCreateTransientProjectVar(String name, IF0 maker) {
      return getOrCreateProjectVar(name, maker);
    }

    public Object getOrCreateProjectVar(String name, IF0 maker) {
      return getOrCreateProjectVar(projectVarConcept(name), maker);
    }

    public Object getOrCreatePersistentProjectVar(String name, IF0 maker) {
      var var = projectVarConcept(name);
      Object value = getOrCreateProjectVar(var, maker);
      var.persistent(true);
      return value;
    }

    public Object getOrCreateBigProjectVar(String name, IF0 maker) {
      var var = projectVarConcept(name);
      Object value = getOrCreateProjectVar(var, maker);
      var.makeBig();
      return value;
    }

    public Object getOrCreateAutoClosingProjectVar(String name, IF0 maker) {
      var var = projectVarConcept(name);
      Object value = getOrCreateProjectVar(var, maker);
      var.autoClose(true);
      return value;
    }

    public G22Variable getOrCreateAutoClosingProjectVar_returnVar(String name, IF0 maker) {
      var var = projectVarConcept(name);
      getOrCreateProjectVar(var, maker);
      return var.autoClose(true);
    }

    public boolean projectVarIsNotNull(String name) {
      var var = findProjectVar(name);
      return var != null && var.has();
    }

    public Object getOrCreateProjectVar(G22Variable var, IF0 maker) {
      if (!var.has()) {
        Object value = maker.get();
        if (value != null)
          var.setValueIfNull(value);
      }
      return var.get();
    }

    public IVarWithNotify liveProjectVar(String name) {
      return liveProjectVar(name, null);
    }

    public IVarWithNotify liveProjectVar(String name, Object defaultValue) {
      G22Variable var = projectVarConcept(name);
      var.persistent(true);
      var.setValueIfNull(defaultValue);
      return var.varValue();
    }

    public IVarWithNotify liveTransientProjectVar(String name) {
      return liveTransientProjectVar(name, null);
    }

    public IVarWithNotify liveTransientProjectVar(String name, Object defaultValue) {
      G22Variable var = projectVarConcept(name);
      var.persistent(false);
      var.setValueIfNull(defaultValue);
      return var.varValue();
    }

    public void replaceCloseableProjectVar(String name, IF0<? extends AutoCloseable> calc) {
      Object value = getProjectVar(name);
      if (value instanceof AutoCloseable) {
        main.close((AutoCloseable) value);
        deleteProjectVar(name);
      }
      setTransientProjectVar(name, calc == null ? null : calc.get());
    }

    public void projectVarChanged(String name) {
      var var = findProjectVar(name);
      {
        if (var != null)
          var.changeInsideOfValue();
      }
    }

    public Collection<G22Variable> projectVarChanged(Object value) {
      var vars = conceptsWhere(concepts, G22Variable.class, "value", value);
      for (var var : vars) var.change();
      return vars;
    }

    public double defaultScriptTimeout() {
      return 10.0;
    }

    public double projectWideScriptTimeout() {
      return or(toDoubleOrNull(getProjectVar("!Script Timeout")), defaultScriptTimeout());
    }

    public G22Analyzer getAnalyzer(long id) {
      var a = getConcept(concepts, G22Analyzer.class, id);
      if (a == null)
        throw fail("Analyzer not found: " + id);
      return a;
    }

    public G22LeftArrowScript getScript(long id) {
      var a = getConcept(concepts, G22LeftArrowScript.class, id);
      if (a == null)
        throw fail("Script not found: " + id);
      return a;
    }

    public Object callScript(long id) {
      var script = getScript(id);
      return script.evaluateWithoutTimeout();
    }

    public Object callAutoRunnableScript(long id) {
      var script = getScript(id);
      return script.evaluateAutoRunWithoutTimeout();
    }

    public double defaultTimeout() {
      return infinity();
    }

    public <A> A evalRegisteredCode(String processName, IF0<A> code) {
      return evalRegisteredCode(defaultTimeout(), processName, code);
    }

    public <A> A evalRegisteredCode(double timeoutSeconds, String processName, IF0<A> code) {
      if (code == null)
        return null;
      return evalWithTimeoutOrTypedException(timeoutSeconds, () -> useThisThreadAsBackgroundProcess(processName, code));
    }

    public Thread startAsRegisteredThread(Runnable r) {
      return startAsRegisteredThread(str_shorten(r), r);
    }

    public Thread startAsRegisteredThread(String processName, Runnable r) {
      if (r == null)
        return null;
      return startThread(processName, () -> useThisThreadAsBackgroundProcess(processName, toIF0(r)));
    }

    public <A> A useThisThreadAsBackgroundProcess(String processName, IF0<A> code) {
      AutoCloseable __8 = enter();
      try {
        var process = backgroundProcessesUI.tempAdd(processName);
        try {
          Thread myThread = currentThread();
          process.setInterruptAction(new Runnable() {

            public void run() {
              try {
                cancelThread(myThread);
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "cancelThread(myThread)";
            }
          });
          return code.get();
        } finally {
          _close(process);
        }
      } finally {
        _close(__8);
      }
    }

    public Object host() {
      AutoCloseable __9 = enter();
      try {
        return dm_os();
      } finally {
        _close(__9);
      }
    }

    public <A> A timeFunction(String name, IF0<A> f) {
      return functionTimings.get(name, f);
    }

    public boolean isConceptsDir(File dir) {
      return isSameFile(conceptsDir(concepts), dir);
    }

    synchronized public FileWatchService fileWatcher() {
      {
        if (fileWatcher == null)
          fileWatcher = new FileWatchService();
        return fileWatcher;
      }
    }

    synchronized public G22Utils onProjectFileChanged(IVF1<File> listener) {
      super.onProjectFileChanged(listener);
      if (!projectFileListenerInitiated) {
        projectFileListenerInitiated = true;
        fileWatcher().addRecursiveListener(dbDir(), __10 -> projectFileChanged(__10));
      }
      return this;
    }

    public G22ProjectInfo projectInfo_cache;

    public G22ProjectInfo projectInfo() {
      if (projectInfo_cache == null)
        projectInfo_cache = projectInfo_load();
      return projectInfo_cache;
    }

    public G22ProjectInfo projectInfo_load() {
      return optimizedUniq(concepts, G22ProjectInfo.class);
    }

    public RunnablesReferenceQueue runnablesReferenceQueue() {
      return masterStuff.runnablesReferenceQueue();
    }

    public EphemeralObjectIDs ephemeralObjectIDs() {
      return masterStuff.ephemeralObjectIDs();
    }

    public Object eph(long id) {
      return ephemeralObjectIDs().get(id);
    }

    public void openInBrowser(String url) {
      main.openPlatformBrowser(url);
    }

    public String compilationDate() {
      return or2(compilationDateFromClassPath(this), "unknown");
    }

    public String projectID() {
      return projectInfo().projectID();
    }

    public IG22LoadedDB getLoadedDB() {
      return masterStuff.getLoadedDB(concepts);
    }

    public ConceptsComboBox<G22GalleryImage> galleryImagesComboBox() {
      return swing(() -> new ConceptsComboBox<G22GalleryImage>(concepts, G22GalleryImage.class));
    }

    public IBackgroundProcess tempAddBackgroundProcess(String name) {
      return backgroundProcessesUI == null ? null : backgroundProcessesUI.tempAdd(name);
    }

    public IF1<String, Class> classFinder() {
      var master = masterStuff.makeClassFinder();
      return name -> {
        {
          var __7 = projectWideClassDefs().get(dropPrefix("main$", name));
          if (__7 != null)
            return __7;
        }
        return master.get(name);
      };
    }

    public Object restructure(Object o) {
      return unstructure(structure(o), false, concepts.classFinder);
    }

    public G22ProjectActions project() {
      return projectActions();
    }

    public boolean openPathInProject(String path) {
      return projectActions().openPathInProject(path);
    }

    final public void showUIURL(String url) {
      openUIURL(url);
    }

    final public void goToURIURL(String url) {
      openUIURL(url);
    }

    public void openUIURL(String url) {
      projectActions().openUIURL(url);
    }

    public BufferedImage loadProjectImage(String fileName) {
      return loadImage2(projectFile(fileName));
    }

    public IG22LoadedDB openDB(String name) {
      return openDB(name, false);
    }

    public IG22LoadedDB openDB(String name, boolean hidden) {
      return masterStuff().openDB(name, hidden);
    }

    public G22Utils getProject(String name) {
      return openDB(name, true).g22utils();
    }

    public G22Utils getProjectIfExists(String name) {
      return !masterStuff().projectExists(name) ? null : getProject(name);
    }

    public G22Utils getProjectIfOpen(String name) {
      var db = first(openProjects(), p -> eqic(p.g22utils().projectName(), name));
      return db == null ? null : db.g22utils();
    }

    final public G22JavaObjectVisualizer visualizeJavaObject(Object o) {
      return visualizeObject(o);
    }

    public G22JavaObjectVisualizer visualizeObject(Object o) {
      return new G22JavaObjectVisualizer(this, o);
    }

    final public G22JavaObjectVisualizer visualizeJavaObjectWithoutType(Object o) {
      return visualizeObjectWithoutType(o);
    }

    public G22JavaObjectVisualizer visualizeObjectWithoutType(Object o) {
      return visualizeObject(o).withTypeAndTime(false);
    }

    transient public IF0<G22VariablesPanel> makeVariablesPanel;

    public G22VariablesPanel makeVariablesPanel() {
      return makeVariablesPanel != null ? makeVariablesPanel.get() : makeVariablesPanel_base();
    }

    final public G22VariablesPanel makeVariablesPanel_fallback(IF0<G22VariablesPanel> _f) {
      return _f != null ? _f.get() : makeVariablesPanel_base();
    }

    public G22VariablesPanel makeVariablesPanel_base() {
      return new G22VariablesPanel().g22utils(this);
    }

    transient public IF0<JComponent> jGazelleLogo;

    public JComponent jGazelleLogo() {
      return jGazelleLogo != null ? jGazelleLogo.get() : jGazelleLogo_base();
    }

    final public JComponent jGazelleLogo_fallback(IF0<JComponent> _f) {
      return _f != null ? _f.get() : jGazelleLogo_base();
    }

    public JComponent jGazelleLogo_base() {
      return main.jGazelleLogo();
    }

    public boolean devMode() {
      return masterStuff().devMode();
    }

    public <A extends Concept> List<A> list(Class<A> type) {
      return list(type, concepts());
    }

    public <A extends Concept> List<A> list(Class<A> type, Concepts cc) {
      return main.list(cc, type);
    }

    public <A extends Concept> List<A> list(Concepts concepts, Class<A> type) {
      return main.list(type, concepts);
    }

    public G22GalleryImage galleryImageForMD5(String md5) {
      return firstThat(list(concepts, G22GalleryImage.class), img -> cic(fileName(img.path), md5));
    }

    public JComponent wrapImageSurface(ImageSurface is) {
      return is == null ? null : jscroll_centered_borderless(is);
    }

    public JComponent wrap(Object o) {
      var c = main.wrap(o);
      if (c instanceof ImageSurface)
        return wrapImageSurface((ImageSurface) c);
      return c;
    }

    transient public IF0<String> byUser;

    public String byUser() {
      return byUser != null ? byUser.get() : byUser_base();
    }

    final public String byUser_fallback(IF0<String> _f) {
      return _f != null ? _f.get() : byUser_base();
    }

    public String byUser_base() {
      return "";
    }

    final public Collection<? extends IG22LoadedDB> openProjects() {
      return getLoadedDBs();
    }

    public Collection<? extends IG22LoadedDB> getLoadedDBs() {
      return masterStuff().openProjects();
    }

    public <A extends Concept> List<A> listInOpenProjects(Class<A> type) {
      return concatMap(openProjects(), db -> db.g22utils().list(type));
    }

    transient public PicturesByMD5 picturesByMD5_cache;

    public PicturesByMD5 picturesByMD5() {
      if (picturesByMD5_cache == null)
        picturesByMD5_cache = picturesByMD5_load();
      return picturesByMD5_cache;
    }

    public PicturesByMD5 picturesByMD5_load() {
      return new PicturesByMD5(projectFile("Images")).extension(".qoi");
    }

    public JButton reloadButton(String toolTip, Runnable action) {
      return jimageButton("#1101440", toolTip, action);
    }

    public void registerConcept(Concept c) {
      main.registerConcept(concepts, c);
    }

    public void registerConcept(Concepts cc, Concept c) {
      main.registerConcept(cc, c);
    }

    public void addingAdditionalAutoCompletes(LeftArrowScriptAutoCompleter autoCompleter) {
      String token = autoCompleter.prevToken();
      if (isIdentifier(token) && contains(token, "ProjectVar"))
        autoCompleter.addToSearcher(quoteAll(projectVarNames()));
      autoCompleter.addToSearcher(keys(projectWideClassDefs()));
    }

    public boolean addLibrary(String library) {
      if (!main.addLibrary(library))
        return false;
      print("Loaded library: " + library);
      masterStuff().newClassesDefined();
      return true;
    }

    public boolean addLibrary(File library) {
      if (!main.addLibrary(library))
        return false;
      print("Loaded library: " + library);
      masterStuff().newClassesDefined();
      return true;
    }

    public <A extends AutoCloseable> WrappedCloseable<A> addResource(A resource) {
      if (resource == null)
        return null;
      autoClosingResources.add(resource);
      return new WrappedCloseable<A>(resource) {

        @Override
        public void beforeClose() {
          autoClosingResources.remove(resource);
        }
      };
    }

    public Object callFunctionFromScript(int scriptID, String functionName, Object... args) {
      return callFunctionFromScript((long) scriptID, functionName, args);
    }

    public Object callLatestFunctionFromScript(int scriptID, String functionName, Object... args) {
      var function = getScript(scriptID).latestCompileResult().get().getFunction(functionName);
      return function.callFromOutside(args);
    }

    public Object callSavedFunctionFromScript(int scriptID, String functionName, Object... args) {
      var function = getScript(scriptID).compileSaved().get().getFunction(functionName);
      return function.callFromOutside(args);
    }

    public Object callFunctionFromScript(long scriptID, String functionName, Object... args) {
      var function = getScript(scriptID).safestCompileResult().get().getFunction(functionName);
      return function.callFromOutside(args);
    }

    public Object callProjectFunction(String functionName, Object... args) {
      var function = assertNotNull(functionName, projectWideFunctionDefs.get(functionName));
      return function.callFromOutside(args);
    }

    public JComponent visualizeAutoRunnableScript(long scriptID) {
      return visualizeAutoRunnableScript(getScript(scriptID));
    }

    public JComponent visualizeAutoRunnableScript(G22LeftArrowScript script) {
      if (script == null)
        return null;
      if (!script.isClearForAutoRun())
        return jcenteredlabel("Script not clear for auto-run");
      try {
        Object result = script.evaluateAutoRunWithoutTimeout();
        var objVisualizer = new G22JavaObjectVisualizer(this, result).withType(false);
        return objVisualizer.visualize();
      } catch (Throwable e) {
        printStackTrace(e);
        return jErrorView(e);
      }
    }

    public void importProjectFromZip(File zipFile, String baseDirInZip, String projectName) {
      File dir = dirOfProjectNamed(projectName);
      if (isConceptsDir(dir)) {
        if (eqic(projectName(), "Default")) {
          infoMessage("Sorry dude");
          return;
        }
        IG22LoadedDB defaultDB = masterStuff().getLoadedDBForConceptDir(dirOfProjectNamed("Default"));
        IG22LoadedDB preloadedDefaultDB = defaultDB;
        if (defaultDB == null)
          defaultDB = openDB("Default");
        project().closeProject();
        defaultDB.g22utils().importProjectFromZip(zipFile, baseDirInZip, projectName);
        if (preloadedDefaultDB == null)
          defaultDB.projectActions().closeProject();
        return;
      }
      if (!directoryIsEmpty(dir)) {
        if (confirmProjectReplacements && !swingConfirm("Archive and overwrite existing project " + projectName + "?"))
          return;
        File archiveDir = javaxBackupDir("Gazelle/" + projectName + "-" + computerID() + "-" + ymdMinusHMS());
        moveFile(dir, archiveDir);
        infoMessage("Archived project to: " + archiveDir);
      }
      zip2dir(zipFile, empty(baseDirInZip) ? dir : dir.getParentFile());
      infoBox("Imported project " + projectName);
      masterStuff().openDB(projectName);
    }

    public void importProjectFromZip(File zipFile) {
      String baseDir = baseDirInZip(zipFile);
      String projectName = takeFirst(baseDir, smartIndexOf(baseDir, '/'));
      if (empty(projectName)) {
        {
          inputText("Please enter name for imported project", name -> {
            if (!validFileName(name)) {
              infoBox("Invalid name, use simpler characters");
              importProjectFromZip(zipFile);
              return;
            }
            importProjectFromZip(zipFile, "", name);
          });
          return;
        }
      }
      assertValidFileName(projectName);
      importProjectFromZip(zipFile, baseDir, projectName);
    }

    public Class export(Class c) {
      if (c != null) {
        projectWideClassDefs.put(dropHashFromClassName(shortClassName(c)), c);
        newFunctionsDefined();
      }
      return c;
    }

    final public GazelleV_LeftArrowScript.FunctionDef export(GazelleV_LeftArrowScript.FunctionDef def) {
      return exportFunction(def);
    }

    public GazelleV_LeftArrowScript.FunctionDef exportFunction(GazelleV_LeftArrowScript.FunctionDef def) {
      return def == null ? null : exportFunction(def.name, def);
    }

    final public GazelleV_LeftArrowScript.FunctionDef export(String name, GazelleV_LeftArrowScript.FunctionDef def) {
      return exportFunction(name, def);
    }

    public GazelleV_LeftArrowScript.FunctionDef exportFunction(String name, GazelleV_LeftArrowScript.FunctionDef def) {
      projectWideFunctionDefs.put(name, def);
      newFunctionsDefined();
      return def;
    }

    final public GazelleV_LeftArrowScript.FunctionDef unexport(String name) {
      return unexportFunction(name);
    }

    public GazelleV_LeftArrowScript.FunctionDef unexportFunction(String name) {
      GazelleV_LeftArrowScript.FunctionDef f = projectWideFunctionDefs.remove(name);
      if (f != null) {
        print("Undefined function " + name);
        newFunctionsDefined();
      }
      return f;
    }

    public void newFunctionsDefined() {
      masterStuff().newClassesDefined();
      recompileDate = tsNow();
    }

    public boolean shouldRecompile(LASCompileResult cr) {
      return recompileDate != null && cr.compilationStart() != null && cr.compilationStart().compareTo(recompileDate) < 0;
    }

    public boolean compileResultValid(LASCompileResult cr, String code) {
      return cr != null && eq(cr.script, code) && !shouldRecompile(cr);
    }

    public String toString() {
      return "G22Utils(" + quote(projectName()) + ")";
    }

    public void editScript(G22LeftArrowScript script) {
      projectActions().editScript(script);
    }

    public JButton editButton(String toolTip, Runnable action) {
      return jimageButtonScaledToWidth(16, "#1103068", toolTip, action);
    }

    public JButton editScriptButton(G22LeftArrowScript script) {
      return editButton("Edit script", () -> projectActions().editScript(script));
    }

    public G22ScriptView scriptView(long scriptID) {
      return new G22ScriptView(getScript(scriptID));
    }

    public File gazelleJar() {
      return getBytecodePathForClass(this);
    }

    public List<PersistableThrowable> projectErrors() {
      return projectActions().projectErrors();
    }

    public JComponent jErrorView(Throwable e) {
      var view = main.jErrorView(e);
      var scriptErrors = instancesOf(GazelleV_LeftArrowScript.ScriptError.class, allCausesIncludingSelf(e));
      var sources = mapNotNulls(scriptErrors, __11 -> __11.tokenRangeWithSrc());
      if (empty(sources))
        return view;
      sources = uniquifySources(sources);
      return centerAndEastWithMargin(view, jline(map(sources, src -> jThreadedButton(str_shorten(src, 40), () -> projectActions().goToSource(src)))));
    }

    public List<TokenRangeWithSrc> uniquifySources(List<TokenRangeWithSrc> sources) {
      return uniquifyWith(sources, src -> pair(src.sourceInfo, src.renderRange()));
    }

    public structure_Data makeStructureData() {
      return concepts().makeStructureData();
    }

    public String g22struct(Object o) {
      return struct(o, makeStructureData());
    }

    public Object g22unstruct(String struct) {
      return unstructure(struct, classFinder());
    }

    public Object stem() {
      return dm_stem(module());
    }

    public void reloadProject() {
      masterStuff().reopenDB(getLoadedDB());
    }

    public File downloadProjectFromGazAI(GazAICredentials credentials, String projectName) {
      try {
        var cred = credentials.asParams();
        var params = cloneMap(cred);
        params.put("asZip", 1);
        var url = "https://gaz.ai/dl-authed/gazelle/" + spaceToPercent20(projectName) + "/";
        var conn = urlConnection(url);
        var file = javaxBackupDir(concat(projectName + " Downloaded ", ymdMinusHMS(), ".zip"));
        doPostBinaryToFile(makePostData(params), conn, file);
        if (!isZip(file))
          throw fail("Download failed, not authenticated for Gaz.AI?");
        fileSavedInfoBox(file);
        return file;
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void waitForAutoStart() {
      autoStarter().waitUntilDone();
    }
  }

  static final public class ParameterizedTypeImpl implements ParameterizedType {

    public ParameterizedTypeImpl() {
    }

    public Type ownerType;

    public Type rawType;

    public Type[] typeArguments;

    public ParameterizedTypeImpl(Type ownerType, Type rawType, Type... typeArguments) {
      this.typeArguments = typeArguments;
      this.rawType = rawType;
      this.ownerType = ownerType;
    }

    public Type[] getActualTypeArguments() {
      return typeArguments;
    }

    public Type getRawType() {
      return rawType;
    }

    public Type getOwnerType() {
      return ownerType;
    }

    @Override
    public boolean equals(Object other) {
      if (other instanceof ParameterizedType)
        return eq(ownerType, ((ParameterizedType) other).getOwnerType()) && eq(rawType, ((ParameterizedType) other).getRawType()) && eq(asList(typeArguments), asList(((ParameterizedType) other).getActualTypeArguments()));
      return false;
    }

    @Override
    public int hashCode() {
      return Arrays.hashCode(typeArguments) ^ rawType.hashCode() ^ _hashCode(ownerType);
    }

    @Override
    public String toString() {
      int length = typeArguments.length;
      if (length == 0)
        return typeToString(rawType);
      StringBuilder stringBuilder = new StringBuilder();
      stringBuilder.append(typeToString(rawType)).append("<").append(typeToString(typeArguments[0]));
      for (int i = 1; i < length; i++) {
        stringBuilder.append(", ").append(typeToString(typeArguments[i]));
      }
      return stringBuilder.append(">").toString();
    }

    static public String typeToString(Type type) {
      return type instanceof Class ? ((Class<?>) type).getName() : type.toString();
    }
  }

  static public class GenericArrayTypeImpl implements GenericArrayType {

    final public Type genericComponentType;

    public GenericArrayTypeImpl(Type ct) {
      genericComponentType = ct;
    }

    public static GenericArrayTypeImpl make(Type ct) {
      return new GenericArrayTypeImpl(ct);
    }

    public Type getGenericComponentType() {
      return genericComponentType;
    }

    public String toString() {
      return getGenericComponentType().getTypeName() + "[]";
    }

    @Override
    public boolean equals(Object o) {
      if (o instanceof GenericArrayType) {
        GenericArrayType that = (GenericArrayType) o;
        return Objects.equals(genericComponentType, that.getGenericComponentType());
      } else
        return false;
    }

    @Override
    public int hashCode() {
      return Objects.hashCode(genericComponentType);
    }
  }

  public interface ILASClassLoader {

    public Class<?> defineLASClass(String name, IF0<byte[]> generateClass);

    public Object rememberClassBytes(boolean rememberClassBytes);
  }

  static public class LASClassDef extends HasTokenRangeWithSrc {

    final public LASClassDef setUserGivenName(String userGivenName) {
      return userGivenName(userGivenName);
    }

    public LASClassDef userGivenName(String userGivenName) {
      this.userGivenName = userGivenName;
      return this;
    }

    final public String getUserGivenName() {
      return userGivenName();
    }

    public String userGivenName() {
      return userGivenName;
    }

    public String userGivenName;

    final public LASClassDef setClassDefPrefix(String classDefPrefix) {
      return classDefPrefix(classDefPrefix);
    }

    public LASClassDef classDefPrefix(String classDefPrefix) {
      this.classDefPrefix = classDefPrefix;
      return this;
    }

    final public String getClassDefPrefix() {
      return classDefPrefix();
    }

    public String classDefPrefix() {
      return classDefPrefix;
    }

    public String classDefPrefix = "userCode.";

    final public LASClassDef setFullCompilation(boolean fullCompilation) {
      return fullCompilation(fullCompilation);
    }

    public LASClassDef fullCompilation(boolean fullCompilation) {
      this.fullCompilation = fullCompilation;
      return this;
    }

    final public boolean getFullCompilation() {
      return fullCompilation();
    }

    public boolean fullCompilation() {
      return fullCompilation;
    }

    public boolean fullCompilation = false;

    final public LASClassDef setVerbose(boolean verbose) {
      return verbose(verbose);
    }

    public LASClassDef verbose(boolean verbose) {
      this.verbose = verbose;
      return this;
    }

    final public boolean getVerbose() {
      return verbose();
    }

    public boolean verbose() {
      return verbose;
    }

    public boolean verbose = true;

    final public LASClassDef setSuperClass(Type superClass) {
      return superClass(superClass);
    }

    public LASClassDef superClass(Type superClass) {
      this.superClass = superClass;
      return this;
    }

    final public Type getSuperClass() {
      return superClass();
    }

    public Type superClass() {
      return superClass;
    }

    public Type superClass = Object.class;

    public List<FieldDef> fields = new ArrayList();

    public Map<String, FieldDef> fieldsByName = new HashMap();

    public List<GazelleV_LeftArrowScript.FunctionDef> methods = new ArrayList();

    public MultiMap<String, GazelleV_LeftArrowScript.FunctionDef> methodsByName = new MultiMap();

    public List<GazelleV_LeftArrowScript.FunctionDef> methodBodies = new ArrayList();

    public List<Type> interfaces = new ArrayList();

    public GazelleV_LeftArrowScript.FunctionDef initializerMethod;

    public List<GazelleV_LeftArrowScript.Evaluable> initializers = new ArrayList();

    public BitSet isFieldInitializer = new BitSet();

    static public class FieldDef {

      final public FieldDef setName(String name) {
        return name(name);
      }

      public FieldDef name(String name) {
        this.name = name;
        return this;
      }

      final public String getName() {
        return name();
      }

      public String name() {
        return name;
      }

      public String name;

      final public FieldDef setType(Type type) {
        return type(type);
      }

      public FieldDef type(Type type) {
        this.type = type;
        return this;
      }

      final public Type getType() {
        return type();
      }

      public Type type() {
        return type;
      }

      public Type type;

      final public FieldDef setInitializer(GazelleV_LeftArrowScript.Evaluable initializer) {
        return initializer(initializer);
      }

      public FieldDef initializer(GazelleV_LeftArrowScript.Evaluable initializer) {
        this.initializer = initializer;
        return this;
      }

      final public GazelleV_LeftArrowScript.Evaluable getInitializer() {
        return initializer();
      }

      public GazelleV_LeftArrowScript.Evaluable initializer() {
        return initializer;
      }

      public GazelleV_LeftArrowScript.Evaluable initializer;

      public Set<String> modifiers;

      public boolean hasModifier(String modifier) {
        return contains(modifiers, modifier);
      }

      public void addModifier(String modifier) {
        modifiers = createOrAddToSet(modifiers, modifier);
      }
    }

    public String structForHash() {
      return GazelleV_LeftArrowScript.scriptStruct(litorderedmap("userGivenName", userGivenName, "fields", fields, "methods", methods, "fullCompilation", fullCompilation));
    }

    public String classHash_cache;

    public String classHash() {
      if (classHash_cache == null)
        classHash_cache = classHash_load();
      return classHash_cache;
    }

    public String classHash_load() {
      String struct = structForHash();
      if (verbose)
        print("structForHash", struct);
      return md5(struct);
    }

    public String finalClassName() {
      return classDefPrefix() + finalClassNameWithoutPrefix();
    }

    public String finalClassNameWithoutPrefix() {
      return or2(userGivenName, "C") + "_" + classHash();
    }

    public byte[] toBytes_cache;

    public byte[] toBytes() {
      if (toBytes_cache == null)
        toBytes_cache = toBytes_load();
      return toBytes_cache;
    }

    public byte[] toBytes_load() {
      ClassMaker classMaker = new ClassMaker(finalClassName(), className(typeToClass(superClass)), mapToStringArray(interfaces, i -> className(typeToClass(i))));
      var cp = classMaker.getConstantPool();
      for (var field : fields) {
        var type = field.type;
        var fg = new FieldGen(Const.ACC_PUBLIC, typeToBCELType(type), field.name, cp);
        fg.isTransient(field.hasModifier("transient"));
        if (type instanceof ParameterizedType)
          fg.addAttribute(new org.apache.bcel.classfile.Signature(cp.addUtf8("Signature"), 2, cp.addUtf8(typeToVMSignature((ParameterizedType) type)), cp.getConstantPool()));
        classMaker.addField(fg);
      }
      if (nempty(initializers)) {
        addMethod(initializerMethod = new GazelleV_LeftArrowScript.FunctionDef("$initFields", new String[0], new GazelleV_LeftArrowScript.Script(initializers)).returnType(void.class));
        if (!hasUserDefinedDefaultConstructor())
          addMethod(new GazelleV_LeftArrowScript.FunctionDef("<init>", new String[0], new GazelleV_LeftArrowScript.Script(emptyList())).returnType(void.class));
      }
      for (var method : methods) if (fullCompilation)
        fullyCompileMethod(classMaker, method);
      else
        semiCompileMethod(classMaker, method);
      if (!hasUserDefinedDefaultConstructor())
        classMaker.addDefaultConstructor();
      if (srcRef() != null)
        classMaker.addField(new FieldGen(Const.ACC_PUBLIC | Const.ACC_STATIC, classToBCELType(TokenRangeWithSrc.class), srcRefField(), classMaker.getConstantPool()));
      return classMaker.toBytes();
    }

    public TokenRangeWithSrc srcRef() {
      return tokenRangeWithSrc();
    }

    public void addToInitializerMethod(FieldDef field) {
      isFieldInitializer.set(l(initializers));
      initializers.add(new GazelleV_LeftArrowScript.SetField(new GazelleV_LeftArrowScript.GetVar("this"), field.name, field.initializer));
    }

    public boolean hasUserDefinedDefaultConstructor() {
      return any(methods, m -> m.isConstructor() && empty(m.args));
    }

    public void semiCompileMethod(ClassMaker classMaker, GazelleV_LeftArrowScript.FunctionDef method) {
      int iMethod = l(methodBodies);
      methodBodies.add(method);
      String bodyFieldName = "_body" + iMethod;
      classMaker.addField(new FieldGen(Const.ACC_PUBLIC | Const.ACC_STATIC, classToBCELType(GazelleV_LeftArrowScript.Evaluable.class), bodyFieldName, classMaker.getConstantPool()));
      int nArgs = l(method.args);
      MethodMaker mm = new MethodMaker(classMaker.cg(), Const.ACC_PUBLIC, typeToBCEL(method.returnType), method.name, mapToArray(__79 -> typeToBCEL(__79), method.argTypes));
      int iThis = 0, iCtx = mm.frameSize;
      if (method.isConstructor()) {
        mm.aload(iThis);
        mm.invokeConstructor(typeToClass(superClass));
        if (initializerMethod != null) {
          mm.aload(iThis);
          mm.il.append(mm.factory.createInvoke(classMaker.className(), initializerMethod.name, mm.wrapType(void.class), mm.wrapTypes(new Class[0]), Const.INVOKESPECIAL));
        }
      }
      mm.newObject(FlexibleVarContext.class);
      mm.astore(iCtx);
      mm.aload(iCtx);
      mm.stringConstant("this");
      mm.aload(iThis);
      mm.invokeVirtual(VarContext.class, void.class, "put", String.class, Object.class);
      for (int iArg = 0; iArg < nArgs; iArg++) {
        mm.aload(iCtx);
        mm.stringConstant(method.args[iArg]);
        mm.aloadArgWithAutoboxing(iArg);
        mm.invokeVirtual(VarContext.class, void.class, "put", String.class, Object.class);
      }
      mm.getStaticField(classMaker.className(), bodyFieldName, GazelleV_LeftArrowScript.Evaluable.class);
      mm.aload(iCtx);
      mm.invokeInterface(GazelleV_LeftArrowScript.Evaluable.class, Object.class, "get", VarContext.class);
      Type type = method.returnType();
      if (type == void.class)
        mm._return();
      else {
        if (type instanceof Class && isPrimitiveType((Class) type)) {
          Class c = (Class) type;
          Class boxed = primitiveToBoxedType(c);
          mm.checkCast(typeToBCEL(boxed));
          mm.invokeVirtual(boxed, c, c + "Value");
          mm.returnPrimitive(c);
        } else {
          if (type != Object.class)
            mm.checkCast(typeToBCEL(type));
          mm.areturn();
        }
      }
      mm.done();
    }

    public void fullyCompileMethod(ClassMaker classMaker, GazelleV_LeftArrowScript.FunctionDef method) {
      MethodMaker mm = new MethodMaker(classMaker, typeToClass(method.returnType()), method.name, repArray(Class.class, Object.class, l(method.args)));
      var tbc = new LASToByteCode(mm) {

        public JVMStackCellType compileGetVar(GazelleV_LeftArrowScript.GetVar code) {
          if (eq(code.var, "this")) {
            mm.aload(0);
            return JVMStackCellType.objValue;
          }
          int iArg = indexOf(method.args, code.var);
          if (iArg >= 0) {
            mm.aload(iArg + 1);
            return JVMStackCellType.objValue;
          }
          return super.compileGetVar(code);
        }
      };
      tbc.postConversion = stackTop -> mm.convertToObject(stackTop);
      tbc.compileScript(method.body);
      mm.areturn();
      mm.done();
    }

    public void init(Class c) {
      for (int iMethod = 0; iMethod < l(methodBodies); iMethod++) {
        String bodyFieldName = "_body" + iMethod;
        set(c, bodyFieldName, methodBodies.get(iMethod).body);
      }
      setOpt(c, srcRefField(), srcRef());
    }

    public ResolvableLASClass resolvable(ILASClassLoader lasClassLoader) {
      return new ResolvableLASClass(lasClassLoader, this);
    }

    public Object typeToBCEL(LASValueDescriptor descriptor) {
      return or(descriptor == null ? null : descriptor.javaClass(), Object.class);
    }

    public Object typeToBCEL(Type type) {
      {
        var __1 = resolvableClassToName(type);
        if (__1 != null)
          return __1;
      }
      return typeToClass(type);
    }

    public void addField(FieldDef field) {
      fields.add(field);
      fieldsByName.put(field.name, field);
      if (field.initializer != null)
        addToInitializerMethod(field);
    }

    public void addMethod(GazelleV_LeftArrowScript.FunctionDef method) {
      methods.add(method);
      methodsByName.put(method.name, method);
    }

    public String srcRefField() {
      return "__srcRef";
    }
  }

  static public class SynchronizedCollection<E> implements Collection<E>, Serializable {

    public SynchronizedCollection() {
    }

    @java.io.Serial
    static final public long serialVersionUID = 3053995032091335093L;

    @SuppressWarnings("serial")
    public Collection<E> c;

    @SuppressWarnings("serial")
    public Object mutex;

    public SynchronizedCollection(Collection<E> c) {
      this.c = Objects.requireNonNull(c);
      mutex = this;
    }

    public SynchronizedCollection(Collection<E> c, Object mutex) {
      this.c = Objects.requireNonNull(c);
      this.mutex = Objects.requireNonNull(mutex);
    }

    public int size() {
      synchronized (mutex) {
        return c.size();
      }
    }

    public boolean isEmpty() {
      synchronized (mutex) {
        return c.isEmpty();
      }
    }

    public boolean contains(Object o) {
      synchronized (mutex) {
        return c.contains(o);
      }
    }

    public Object[] toArray() {
      synchronized (mutex) {
        return c.toArray();
      }
    }

    public <T> T[] toArray(T[] a) {
      synchronized (mutex) {
        return c.toArray(a);
      }
    }

    public <T> T[] toArray(java.util.function.IntFunction<T[]> f) {
      synchronized (mutex) {
        return c.toArray(f);
      }
    }

    public Iterator<E> iterator() {
      return c.iterator();
    }

    public boolean add(E e) {
      synchronized (mutex) {
        return c.add(e);
      }
    }

    public boolean remove(Object o) {
      synchronized (mutex) {
        return c.remove(o);
      }
    }

    public boolean containsAll(Collection<?> coll) {
      synchronized (mutex) {
        return c.containsAll(coll);
      }
    }

    public boolean addAll(Collection<? extends E> coll) {
      synchronized (mutex) {
        return c.addAll(coll);
      }
    }

    public boolean removeAll(Collection<?> coll) {
      synchronized (mutex) {
        return c.removeAll(coll);
      }
    }

    public boolean retainAll(Collection<?> coll) {
      synchronized (mutex) {
        return c.retainAll(coll);
      }
    }

    public void clear() {
      synchronized (mutex) {
        c.clear();
      }
    }

    public String toString() {
      synchronized (mutex) {
        return c.toString();
      }
    }

    @Override
    public void forEach(java.util.function.Consumer<? super E> consumer) {
      synchronized (mutex) {
        c.forEach(consumer);
      }
    }

    @Override
    public boolean removeIf(java.util.function.Predicate<? super E> filter) {
      synchronized (mutex) {
        return c.removeIf(filter);
      }
    }

    @Override
    public Spliterator<E> spliterator() {
      return c.spliterator();
    }

    @Override
    public java.util.stream.Stream<E> stream() {
      return c.stream();
    }

    @Override
    public java.util.stream.Stream<E> parallelStream() {
      return c.parallelStream();
    }

    @java.io.Serial
    private void writeObject(ObjectOutputStream s) throws IOException {
      synchronized (mutex) {
        s.defaultWriteObject();
      }
    }
  }

  static public class SynchronizedRandomAccessList<E> extends SynchronizedList<E> implements RandomAccess {

    public SynchronizedRandomAccessList() {
    }

    public SynchronizedRandomAccessList(List<E> list) {
      super(list);
    }

    public SynchronizedRandomAccessList(List<E> list, Object mutex) {
      super(list, mutex);
    }

    public List<E> subList(int fromIndex, int toIndex) {
      synchronized (mutex) {
        return new SynchronizedRandomAccessList<>(list.subList(fromIndex, toIndex), mutex);
      }
    }

    @java.io.Serial
    static final public long serialVersionUID = 1530674583602358482L;

    @java.io.Serial
    private Object writeReplace() {
      return new SynchronizedList<>(list);
    }
  }

  static public class HasTokenRangeWithSrc implements IHasTokenRangeWithSrc {

    final public HasTokenRangeWithSrc setTokenRangeWithSrc(TokenRangeWithSrc tokenRangeWithSrc) {
      return tokenRangeWithSrc(tokenRangeWithSrc);
    }

    public HasTokenRangeWithSrc tokenRangeWithSrc(TokenRangeWithSrc tokenRangeWithSrc) {
      this.tokenRangeWithSrc = tokenRangeWithSrc;
      return this;
    }

    final public TokenRangeWithSrc getTokenRangeWithSrc() {
      return tokenRangeWithSrc();
    }

    public TokenRangeWithSrc tokenRangeWithSrc() {
      return tokenRangeWithSrc;
    }

    public TokenRangeWithSrc tokenRangeWithSrc;
  }

  static public class SimpleLeftToRightParser extends Meta {

    public String text;

    public List<String> tok;

    final public ListAndIndex<String> getPtr() {
      return ptr();
    }

    public ListAndIndex<String> ptr() {
      return ptr;
    }

    public ListAndIndex<String> ptr;

    public ListAndIndex<String> mainLoopPtr;

    public String currentToken;

    public boolean caseInsensitive = false;

    public List warnings = new ArrayList();

    public SimpleLeftToRightParser() {
    }

    public SimpleLeftToRightParser(String text) {
      this.text = text;
    }

    public SimpleLeftToRightParser(List<String> tok) {
      this.tok = tok;
    }

    transient public IF1<String, List<String>> tokenize;

    public List<String> tokenize(String text) {
      return tokenize != null ? tokenize.get(text) : tokenize_base(text);
    }

    final public List<String> tokenize_fallback(IF1<String, List<String>> _f, String text) {
      return _f != null ? _f.get(text) : tokenize_base(text);
    }

    public List<String> tokenize_base(String text) {
      return javaTok(text);
    }

    final public String token() {
      return t();
    }

    public String t() {
      return currentToken;
    }

    public String token(int i) {
      return get(tok, ptr.idx() + i * 2);
    }

    final public String consume() {
      return next();
    }

    final public String tpp() {
      return next();
    }

    public String next() {
      var t = t();
      next(1);
      return t;
    }

    final public String prevSpace() {
      return lastSpace();
    }

    public String lastSpace() {
      return get(tok, ptr.idx() - 1);
    }

    public String nextSpace() {
      return get(tok, ptr.idx() + 1);
    }

    public String space(int i) {
      return get(tok, ptr.idx() + i * 2 + 1);
    }

    public void unconsume() {
      next(-1);
    }

    final public boolean eqTok(String a, String b) {
      return tokEq(a, b);
    }

    public boolean tokEq(String a, String b) {
      return eqOrEqic(caseInsensitive, a, b);
    }

    public boolean tokEqOneOf(String a, String... l) {
      return any(l, b -> tokEq(a, b));
    }

    public boolean is(int i, String t) {
      return tokEq(token(i), t);
    }

    public boolean is(String t) {
      return tokEq(currentToken, t);
    }

    public boolean was(String t) {
      return tokEq(token(-1), t);
    }

    public boolean isOneOf(String... tokens) {
      return tokEqOneOf(currentToken, tokens);
    }

    public String[] consumeArray(int n) {
      String[] array = new String[n];
      for (int i = 0; i < n; i++) array[i] = consume();
      return array;
    }

    public boolean isInteger() {
      return isInteger(t());
    }

    public boolean isInteger(String s) {
      return main.isInteger(s);
    }

    public boolean isIdentifier() {
      return isIdentifier(t());
    }

    public boolean isIdentifier(String s) {
      return main.isIdentifier(s);
    }

    public String consumeIdentifier() {
      return assertIdentifier(consume());
    }

    public String consumeIdentifierOpt() {
      return isIdentifier(t()) ? consume() : null;
    }

    public int consumeInteger() {
      return parseInt(assertInteger(consume()));
    }

    public boolean consumeOpt(String token) {
      if (!is(token))
        return false;
      consume();
      return true;
    }

    public void consume(String token) {
      if (!is(token))
        throw fail("Expected " + quote(token) + ", got " + describeToken(token()));
      consume();
    }

    public String describeToken(String token) {
      return token == null ? "EOF" : quote(token);
    }

    public String consumeOneOf(String... tokens) {
      if (!isOneOf(tokens))
        throw fail("Expected one of " + asList(tokens));
      return consume();
    }

    public void ptr(ListAndIndex<String> ptr) {
      this.ptr = ptr;
      fetch();
    }

    final public int tokIdx() {
      return idx();
    }

    public int idx() {
      return ptr.idx();
    }

    public int lTok() {
      return l(tok);
    }

    public int nRemainingTokens() {
      return (lTok() - idx()) / 2;
    }

    final public boolean endOfText() {
      return atEnd();
    }

    public boolean atEnd() {
      return ptr.atEnd();
    }

    public void fetch() {
      currentToken = ptr.get();
    }

    public boolean lineBreak() {
      return containsLineBreak(get(tok, ptr.idx() - 1));
    }

    public boolean atEndOrLineBreak() {
      return atEnd() || lineBreak();
    }

    public void init() {
      if (tok == null)
        tok = tokenize(text);
      if (ptr == null)
        ptr(new ListAndIndex(tok, 1));
    }

    public boolean mainLoop() {
      init();
      if (atEnd())
        return false;
      if (eq(mainLoopPtr, ptr))
        throw fail("main loop didn't advance (current token: " + quote(token()) + ")");
      mainLoopPtr = ptr;
      return true;
    }

    public class AssureAdvance {

      public ListAndIndex<String> cur;

      {
        init();
      }

      public boolean get() {
        if (atEnd())
          return false;
        if (eq(cur, ptr))
          throw fail("Parse loop didn't advance (current token: " + quote(token()) + ")");
        cur = ptr;
        return true;
      }
    }

    public void unknownToken() {
      warn("Unknown token: " + t());
    }

    public void warn(String msg) {
      warnings.add(print(msg));
    }

    final public void skip(int n) {
      next(n);
    }

    final public void consume(int n) {
      next(n);
    }

    public void next(int n) {
      ptr(min(lTok(), ptr.idx() + n * 2));
    }

    public void ptr(int i) {
      ptr(new ListAndIndex(tok, min(i | 1, l(tok))));
    }

    public LineAndColumn lineAndColumn() {
      return tokenToLineAndColumn(ptr);
    }

    public LineAndColumn lineAndColumn(int idx) {
      return tokenToLineAndColumn(ptr.plus(idx * 2));
    }

    public String consumeUntilSpaceOr(IF0<Boolean> pred) {
      int i = idx();
      do next(); while (!atEnd() && empty(lastSpace()) && !pred.get());
      return joinSubList(tok, i, idx() - 1);
    }

    public void setText(String text) {
      this.text = text;
      tok = null;
      ptr = null;
    }

    public int relativeIndexOf(String token) {
      int n = nRemainingTokens();
      for (int i = 0; i < n; i++) if (eqTok(token(i), token))
        return i;
      return -1;
    }
  }

  public interface IMultiMap<A, B> {

    public Set<A> keySet();

    public Collection<B> get(A a);

    public int size();

    public int keyCount();
  }

  static public class ResolvableLASClass implements IResolvableClass {

    public ResolvableLASClass() {
    }

    transient public ILASClassLoader lasClassLoader;

    public LASClassDef classDef;

    public Class resolvedClass;

    public ResolvableLASClass(ILASClassLoader lasClassLoader, LASClassDef classDef) {
      this.classDef = classDef;
      this.lasClassLoader = lasClassLoader;
    }

    public String resolveToClassName() {
      return classDef.finalClassName();
    }

    final public Class resolveToClass() {
      return get();
    }

    public Class get() {
      if (resolvedClass == null) {
        if (lasClassLoader == null)
          throw fail("Need LASClassLoader to define " + classDef.userGivenName);
        resolvedClass = lasClassLoader.defineLASClass(classDef.finalClassName(), () -> classDef.toBytes());
        classDef.init(resolvedClass);
      }
      return resolvedClass;
    }

    public String toString() {
      if (resolvedClass != null)
        return className(resolvedClass);
      {
        var __1 = userGivenName();
        if (__1 != null)
          return __1;
      }
      if (classDef.classHash_cache != null)
        return classDef.finalClassNameWithoutPrefix();
      return or2(userGivenName(), "script-defined class") + " [unresolved]";
    }

    public String userGivenName() {
      return classDef.userGivenName;
    }
  }

  static public interface ISetter<A> {

    public void set(A a);
  }

  abstract static public class VarContext {

    final public VarContext getParent() {
      return parent();
    }

    public VarContext parent() {
      return parent;
    }

    public VarContext parent;

    public VarContext() {
    }

    public VarContext(VarContext parent) {
      this.parent = parent;
    }

    abstract public Object get(String name);

    final public void put(String name, Object value) {
      set(name, value);
    }

    abstract public void set(String name, Object value);

    final public AutoCloseable tempPut(String name, Object value) {
      return tempSet(name, value);
    }

    abstract public AutoCloseable tempSet(String name, Object value);

    abstract public void unset(String name);

    abstract public Map<String, Object> varMap();

    public void printMe() {
      pnl(varMap());
      print("parent", parent);
    }

    final public VarContext setExitFromScript(Object exitFromScript) {
      return exitFromScript(exitFromScript);
    }

    public VarContext exitFromScript(Object exitFromScript) {
      this.exitFromScript = exitFromScript;
      return this;
    }

    final public Object getExitFromScript() {
      return exitFromScript();
    }

    public Object exitFromScript() {
      return exitFromScript;
    }

    public Object exitFromScript;

    final public VarContext setReturnValue(Object returnValue) {
      return returnValue(returnValue);
    }

    public VarContext returnValue(Object returnValue) {
      this.returnValue = returnValue;
      return this;
    }

    final public Object getReturnValue() {
      return returnValue();
    }

    public Object returnValue() {
      return returnValue;
    }

    public Object returnValue;

    public boolean exiting() {
      ping();
      return exitFromScript != null;
    }
  }

  static public class MapI<A, B> extends IterableIterator<B> {

    public IF1<A, B> f;

    public Iterator<A> it;

    public MapI(IF1<A, B> f, Iterator<A> it) {
      this.it = it;
      this.f = f;
    }

    public boolean hasNext() {
      return it.hasNext();
    }

    public B next() {
      return f.get(it.next());
    }
  }

  static public interface IAutoCloseableF0<A> extends IF0<A>, AutoCloseable {
  }

  static public class CharInToken implements IFieldsToList {

    static final public String _fieldOrder = "tok iTok iChar";

    public List<String> tok;

    public int iTok;

    public int iChar;

    public CharInToken() {
    }

    public CharInToken(List<String> tok, int iTok, int iChar) {
      this.iChar = iChar;
      this.iTok = iTok;
      this.tok = tok;
    }

    public boolean equals(Object o) {
      if (!(o instanceof CharInToken))
        return false;
      CharInToken __1 = (CharInToken) o;
      return eq(tok, __1.tok) && iTok == __1.iTok && iChar == __1.iChar;
    }

    public int hashCode() {
      int h = 2081721214;
      h = boostHashCombine(h, _hashCode(tok));
      h = boostHashCombine(h, _hashCode(iTok));
      h = boostHashCombine(h, _hashCode(iChar));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { tok, iTok, iChar };
    }

    public String token() {
      return get(tok, iTok);
    }

    public String toString() {
      return renderRecordVars("CharInToken", "iTok", iTok, "iChar", iChar, "token", token());
    }
  }

  static public class UnsynchronizedCompactHashSet<A> extends java.util.AbstractSet<A> {

    final static public int INITIAL_SIZE = 3;

    public final static double LOAD_FACTOR = 0.75;

    final static public Object nullObject = new Object();

    final static public Object deletedObject = new Object();

    public int elements;

    public int freecells;

    public A[] objects;

    public int modCount;

    public UnsynchronizedCompactHashSet() {
      this(INITIAL_SIZE);
    }

    public UnsynchronizedCompactHashSet(int size) {
      objects = (A[]) new Object[(size == 0 ? 1 : size)];
      elements = 0;
      freecells = objects.length;
      modCount = 0;
    }

    public UnsynchronizedCompactHashSet(Collection<A> c) {
      this(c.size());
      addAll(c);
    }

    @Override
    public Iterator<A> iterator() {
      return new CompactHashIterator<A>();
    }

    @Override
    public int size() {
      return elements;
    }

    @Override
    public boolean isEmpty() {
      return elements == 0;
    }

    @Override
    public boolean contains(Object o) {
      return find(o) != null;
    }

    public A find(Object o) {
      if (o == null)
        o = nullObject;
      int hash = o.hashCode();
      int index = (hash & 0x7FFFFFFF) % objects.length;
      int offset = 1;
      while (objects[index] != null && !(objects[index].hashCode() == hash && objects[index].equals(o))) {
        index = ((index + offset) & 0x7FFFFFFF) % objects.length;
        offset = offset * 2 + 1;
        if (offset == -1)
          offset = 2;
      }
      return objects[index];
    }

    public boolean removeIfSame(Object o) {
      A value = find(o);
      if (value == o) {
        remove(value);
        return true;
      }
      return false;
    }

    @Override
    public boolean add(Object o) {
      if (o == null)
        o = nullObject;
      int hash = o.hashCode();
      int index = (hash & 0x7FFFFFFF) % objects.length;
      int offset = 1;
      int deletedix = -1;
      while (objects[index] != null && !(objects[index].hashCode() == hash && objects[index].equals(o))) {
        if (objects[index] == deletedObject)
          deletedix = index;
        index = ((index + offset) & 0x7FFFFFFF) % objects.length;
        offset = offset * 2 + 1;
        if (offset == -1)
          offset = 2;
      }
      if (objects[index] == null) {
        if (deletedix != -1)
          index = deletedix;
        else
          freecells--;
        modCount++;
        elements++;
        objects[index] = (A) o;
        if (1 - (freecells / (double) objects.length) > LOAD_FACTOR)
          rehash();
        return true;
      } else
        return false;
    }

    @Override
    public boolean remove(Object o) {
      if (o == null)
        o = nullObject;
      int hash = o.hashCode();
      int index = (hash & 0x7FFFFFFF) % objects.length;
      int offset = 1;
      while (objects[index] != null && !(objects[index].hashCode() == hash && objects[index].equals(o))) {
        index = ((index + offset) & 0x7FFFFFFF) % objects.length;
        offset = offset * 2 + 1;
        if (offset == -1)
          offset = 2;
      }
      if (objects[index] != null) {
        objects[index] = (A) deletedObject;
        modCount++;
        elements--;
        return true;
      } else
        return false;
    }

    @Override
    public void clear() {
      elements = 0;
      for (int ix = 0; ix < objects.length; ix++) objects[ix] = null;
      freecells = objects.length;
      modCount++;
    }

    @Override
    public Object[] toArray() {
      Object[] result = new Object[elements];
      Object[] objects = this.objects;
      int pos = 0;
      for (int i = 0; i < objects.length; i++) if (objects[i] != null && objects[i] != deletedObject) {
        if (objects[i] == nullObject)
          result[pos++] = null;
        else
          result[pos++] = objects[i];
      }
      return result;
    }

    @Override
    public <T> T[] toArray(T[] a) {
      int size = elements;
      if (a.length < size)
        a = (T[]) java.lang.reflect.Array.newInstance(a.getClass().getComponentType(), size);
      A[] objects = this.objects;
      int pos = 0;
      for (int i = 0; i < objects.length; i++) if (objects[i] != null && objects[i] != deletedObject) {
        if (objects[i] == nullObject)
          a[pos++] = null;
        else
          a[pos++] = (T) objects[i];
      }
      return a;
    }

    public void rehash() {
      int garbagecells = objects.length - (elements + freecells);
      if (garbagecells / (double) objects.length > 0.05)
        rehash(objects.length);
      else
        rehash(objects.length * 2 + 1);
    }

    public void rehash(int newCapacity) {
      int oldCapacity = objects.length;
      @SuppressWarnings("unchecked")
      A[] newObjects = (A[]) new Object[newCapacity];
      for (int ix = 0; ix < oldCapacity; ix++) {
        Object o = objects[ix];
        if (o == null || o == deletedObject)
          continue;
        int hash = o.hashCode();
        int index = (hash & 0x7FFFFFFF) % newCapacity;
        int offset = 1;
        while (newObjects[index] != null) {
          index = ((index + offset) & 0x7FFFFFFF) % newCapacity;
          offset = offset * 2 + 1;
          if (offset == -1)
            offset = 2;
        }
        newObjects[index] = (A) o;
      }
      objects = newObjects;
      freecells = objects.length - elements;
    }

    public class CompactHashIterator<T> implements Iterator<T> {

      public int index;

      public int lastReturned = -1;

      public int expectedModCount;

      @SuppressWarnings("empty-statement")
      public CompactHashIterator() {
        for (index = 0; index < objects.length && (objects[index] == null || objects[index] == deletedObject); index++) ;
        expectedModCount = modCount;
      }

      @Override
      public boolean hasNext() {
        return index < objects.length;
      }

      @SuppressWarnings("empty-statement")
      @Override
      public T next() {
        int length = objects.length;
        if (index >= length) {
          lastReturned = -2;
          throw new NoSuchElementException();
        }
        lastReturned = index;
        for (index += 1; index < length && (objects[index] == null || objects[index] == deletedObject); index++) ;
        if (objects[lastReturned] == nullObject)
          return null;
        else
          return (T) objects[lastReturned];
      }

      @Override
      public void remove() {
        if (modCount != expectedModCount)
          throw new ConcurrentModificationException();
        if (lastReturned == -1 || lastReturned == -2)
          throw new IllegalStateException();
        if (objects[lastReturned] != null && objects[lastReturned] != deletedObject) {
          objects[lastReturned] = (A) deletedObject;
          elements--;
          modCount++;
          expectedModCount = modCount;
        }
      }
    }

    public int capacity() {
      return objects.length;
    }

    public boolean shrinkToFactor(double factor) {
      if (factor > LOAD_FACTOR)
        throw fail("Shrink factor must be equal to or smaller than load factor: " + factor + " / " + LOAD_FACTOR);
      int newCapacity = max(INITIAL_SIZE, iround(size() / factor));
      if (newCapacity >= capacity())
        return false;
      rehash(newCapacity);
      return true;
    }
  }

  static public class FailedRule extends RuleWithParams {

    public List<Exp> satisfiedConditions;

    public Exp remainingCondition;

    public FailedRule() {
    }

    public FailedRule(IfThen rule, VarMatches matches, Exp remainingCondition) {
      this.remainingCondition = remainingCondition;
      this.matches = matches;
      this.rule = rule;
    }

    public FailedRule(IfThen rule, VarMatches matches, List<Exp> satisfiedConditions, Exp remainingCondition) {
      this.remainingCondition = remainingCondition;
      this.satisfiedConditions = satisfiedConditions;
      this.matches = matches;
      this.rule = rule;
    }
  }

  static public class RuleWithParams implements IFieldsToList {

    static final public String _fieldOrder = "rule matches";

    public IfThen rule;

    public VarMatches matches;

    public RuleWithParams() {
    }

    public RuleWithParams(IfThen rule, VarMatches matches) {
      this.matches = matches;
      this.rule = rule;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + rule + ", " + matches + ")";
    }

    public boolean equals(Object o) {
      if (!(o instanceof RuleWithParams))
        return false;
      RuleWithParams __7 = (RuleWithParams) o;
      return eq(rule, __7.rule) && eq(matches, __7.matches);
    }

    public int hashCode() {
      int h = 1254104616;
      h = boostHashCombine(h, _hashCode(rule));
      h = boostHashCombine(h, _hashCode(matches));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { rule, matches };
    }

    public String ruleID() {
      return rule.globalID;
    }
  }

  static public class IfThen implements IFieldsToList {

    static final public String _fieldOrder = "in out globalID options originalText";

    public Exp in;

    public Exp out;

    public IfThen() {
    }

    public IfThen(Exp in, Exp out) {
      this.out = out;
      this.in = in;
    }

    public boolean equals(Object o) {
      if (!(o instanceof IfThen))
        return false;
      IfThen __8 = (IfThen) o;
      return eq(in, __8.in) && eq(out, __8.out);
    }

    public int hashCode() {
      int h = -2108234502;
      h = boostHashCombine(h, _hashCode(in));
      h = boostHashCombine(h, _hashCode(out));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { in, out };
    }

    public String globalID;

    public Set<String> options;

    public String originalText;

    public String text() {
      Collection<String> opt = options;
      if (nempty(globalID))
        opt = concatLists(ll("id: " + globalID), opt);
      return (nempty(opt) ? "[" + joinWithComma(opt) + "] " : "") + (in == null ? "" : in.text() + "\n  => ") + nlLogic_text(out);
    }

    public String toString() {
      return text();
    }
  }

  abstract static public class Exp {

    abstract public String text();

    public String toString() {
      return text();
    }
  }

  static public class Func extends Exp implements IFieldsToList {

    public String name;

    public Exp arg;

    public Func() {
    }

    public Func(String name, Exp arg) {
      this.arg = arg;
      this.name = name;
    }

    public boolean equals(Object o) {
      if (!(o instanceof Func))
        return false;
      Func __0 = (Func) o;
      return eq(name, __0.name) && eq(arg, __0.arg);
    }

    public int hashCode() {
      int h = 2201316;
      h = boostHashCombine(h, _hashCode(name));
      h = boostHashCombine(h, _hashCode(arg));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { name, arg };
    }

    public List<String> options;

    public Func(String name, List<String> options, Exp arg) {
      this.arg = arg;
      this.options = options;
      this.name = name;
    }

    public String text() {
      return name + (empty(options) ? "" : "[" + joinWithComma(options) + "]") + "(" + arg.text() + ")";
    }

    public String argText() {
      return nlLogic_text(arg);
    }
  }

  static public class And extends Exp implements IFieldsToList {

    public Exp a;

    public Exp b;

    public And() {
    }

    public And(Exp a, Exp b) {
      this.b = b;
      this.a = a;
    }

    public boolean equals(Object o) {
      if (!(o instanceof And))
        return false;
      And __1 = (And) o;
      return eq(a, __1.a) && eq(b, __1.b);
    }

    public int hashCode() {
      int h = 65975;
      h = boostHashCombine(h, _hashCode(a));
      h = boostHashCombine(h, _hashCode(b));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { a, b };
    }

    public String text() {
      return a.text() + "\n  && " + b.text();
    }
  }

  static public class ExpNot extends Exp implements IFieldsToList {

    public Exp a;

    public ExpNot() {
    }

    public ExpNot(Exp a) {
      this.a = a;
    }

    public boolean equals(Object o) {
      if (!(o instanceof ExpNot))
        return false;
      ExpNot __2 = (ExpNot) o;
      return eq(a, __2.a);
    }

    public int hashCode() {
      int h = 2089649046;
      h = boostHashCombine(h, _hashCode(a));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { a };
    }

    public String text() {
      return "!" + a.text();
    }
  }

  abstract static public class Literal extends Exp {
  }

  static public class Sentence extends Literal implements IFieldsToList {

    public List<String> tok;

    public Sentence() {
    }

    public Sentence(List<String> tok) {
      this.tok = tok;
    }

    public boolean equals(Object o) {
      if (!(o instanceof Sentence))
        return false;
      Sentence __3 = (Sentence) o;
      return eq(tok, __3.tok);
    }

    public int hashCode() {
      int h = 1327381123;
      h = boostHashCombine(h, _hashCode(tok));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { tok };
    }

    public String text() {
      return join(tok);
    }
  }

  static public class Sentence2 extends Literal implements IFieldsToList {

    public String text;

    public Sentence2() {
    }

    public Sentence2(String text) {
      this.text = text;
    }

    public boolean equals(Object o) {
      if (!(o instanceof Sentence2))
        return false;
      Sentence2 __4 = (Sentence2) o;
      return eq(text, __4.text);
    }

    public int hashCode() {
      int h = -1800858097;
      h = boostHashCombine(h, _hashCode(text));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { text };
    }

    public String text() {
      return text;
    }
  }

  static public class Eq extends Exp implements IFieldsToList {

    public Exp left;

    public Exp right;

    public Eq() {
    }

    public Eq(Exp left, Exp right) {
      this.right = right;
      this.left = left;
    }

    public boolean equals(Object o) {
      if (!(o instanceof Eq))
        return false;
      Eq __5 = (Eq) o;
      return eq(left, __5.left) && eq(right, __5.right);
    }

    public int hashCode() {
      int h = 2252;
      h = boostHashCombine(h, _hashCode(left));
      h = boostHashCombine(h, _hashCode(right));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { left, right };
    }

    public String text() {
      return left.text() + " = " + right.text();
    }
  }

  static public class MethodOnObject implements IFieldsToList {

    static final public String _fieldOrder = "object method";

    transient public Object object;

    public String method;

    public MethodOnObject() {
    }

    public MethodOnObject(Object object, String method) {
      this.method = method;
      this.object = object;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + object + ", " + method + ")";
    }

    public boolean equals(Object o) {
      if (!(o instanceof MethodOnObject))
        return false;
      MethodOnObject __1 = (MethodOnObject) o;
      return eq(object, __1.object) && eq(method, __1.method);
    }

    public int hashCode() {
      int h = 791808543;
      h = boostHashCombine(h, _hashCode(object));
      h = boostHashCombine(h, _hashCode(method));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { object, method };
    }
  }

  public interface ISleeper_v2 {

    default public Sleeping doLater(long targetTime, Runnable r) {
      return doLater(sysTimeToTimestamp(targetTime), r);
    }

    public Sleeping doLater(Timestamp targetTime, Runnable r);

    public default Sleeping doAfter(double seconds, Runnable r) {
      return doLater(tsNow().plusSeconds(seconds), r);
    }
  }

  public interface IHasTokenRangeWithSrc {

    public IHasTokenRangeWithSrc setTokenRangeWithSrc(TokenRangeWithSrc src);

    public TokenRangeWithSrc tokenRangeWithSrc();

    default public String srcText() {
      var src = tokenRangeWithSrc();
      return src == null ? null : src.text();
    }
  }

  static public class Seconds implements Comparable<Seconds>, IFieldsToList {

    public double seconds;

    public Seconds() {
    }

    public Seconds(double seconds) {
      this.seconds = seconds;
    }

    public boolean equals(Object o) {
      if (!(o instanceof Seconds))
        return false;
      Seconds __1 = (Seconds) o;
      return seconds == __1.seconds;
    }

    public int hashCode() {
      int h = -660217249;
      h = boostHashCombine(h, _hashCode(seconds));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { seconds };
    }

    final public double get() {
      return seconds();
    }

    final public double getDouble() {
      return seconds();
    }

    public double seconds() {
      return seconds;
    }

    public String toString() {
      return formatDouble(seconds, 3) + " s";
    }

    public int compareTo(Seconds s) {
      return cmp(seconds, s.seconds);
    }

    public Seconds div(double x) {
      return new Seconds(get() / x);
    }

    public Seconds minus(Seconds x) {
      return new Seconds(get() - x.get());
    }
  }

  public interface IDoublePt {

    public double x_double();

    public double y_double();
  }

  static public interface IVar<A> extends IF0<A> {

    public void set(A a);

    public A get();

    default public Class<A> getType() {
      return null;
    }

    default public IF0<A> getter() {
      return () -> get();
    }

    default public IVF1<A> setter() {
      return __1 -> set(__1);
    }

    default public boolean has() {
      return get() != null;
    }

    default public void clear() {
      set(null);
    }
  }

  public interface IVarWithNotify<A> extends IVar<A>, IF0WithChangeListeners<A> {

    default public IVarWithNotify<A> onChange(IVF1<A> r) {
      if (r == null)
        return this;
      onChange(() -> r.get(get()));
      return this;
    }

    default public IVarWithNotify<A> onChangeAndNow(IVF1<A> r) {
      if (r == null)
        return this;
      onChangeAndNow(() -> r.get(get()));
      return this;
    }
  }

  public interface Enterable {

    public AutoCloseable enter();
  }

  public enum JVMStackCellType {

    none,
    objValue,
    intValue,
    longValue,
    floatValue,
    doubleValue
  }

  static public class G22VariablesPanel implements Swingable, IFieldsToList {

    public G22VariablesPanel() {
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this);
    }

    public Object[] _fieldsToList() {
      return null;
    }

    final public G22VariablesPanel setG22utils(G22Utils g22utils) {
      return g22utils(g22utils);
    }

    public G22VariablesPanel g22utils(G22Utils g22utils) {
      this.g22utils = g22utils;
      return this;
    }

    final public G22Utils getG22utils() {
      return g22utils();
    }

    public G22Utils g22utils() {
      return g22utils;
    }

    public G22Utils g22utils;

    final public G22VariablesPanel setCompactView(boolean compactView) {
      return compactView(compactView);
    }

    public G22VariablesPanel compactView(boolean compactView) {
      this.compactView = compactView;
      return this;
    }

    final public boolean getCompactView() {
      return compactView();
    }

    public boolean compactView() {
      return compactView;
    }

    public boolean compactView = false;

    final public G22VariablesPanel setUpdateInterval(double updateInterval) {
      return updateInterval(updateInterval);
    }

    public G22VariablesPanel updateInterval(double updateInterval) {
      this.updateInterval = updateInterval;
      return this;
    }

    final public double getUpdateInterval() {
      return updateInterval();
    }

    public double updateInterval() {
      return updateInterval;
    }

    public double updateInterval = 1.0;

    transient public SimpleCRUD_v2<G22Variable> crud;

    transient public SingleComponentPanel scpDetail;

    transient public ReliableSingleThread rstUpdateDetail = rst(() -> _updateDetail());

    public SimpleCRUD_v2<G22Variable> crud() {
      if (crud == null) {
        crud = new SimpleCRUD_v2<>(g22utils.concepts(), G22Variable.class);
        crud.updateInterval(updateInterval);
      }
      return crud;
    }

    public transient JComponent visualize_cache;

    public JComponent visualize() {
      if (visualize_cache == null)
        visualize_cache = visualize_load();
      return visualize_cache;
    }

    public JComponent visualize_load() {
      return markVisualizer(this, visualize_impl());
    }

    public JComponent visualize_impl() {
      crud().iconButtons(true);
      crud.entityName = () -> "Variable";
      crud.renderValue = __1 -> strOrNull(__1);
      crud.itemToMap_inner2 = var -> {
        var map = crud.itemToMap_inner2_base(var);
        if (var.big())
          map.put("Size on disk", str_toKB(var.bigFile()));
        return map;
      };
      var vis = jCenteredSection("Project Variables", crud.visualize());
      var cbPauseUpdates = jCheckBox("Pause updates");
      onChange(cbPauseUpdates, () -> crud.pauseUpdates(isChecked(cbPauseUpdates)));
      crud.addButton(cbPauseUpdates);
      IVF1<G22Variable> rUpdate = v -> crud.update();
      bindToComponent(vis, () -> g22utils.onBigVariableLoaded(rUpdate), () -> g22utils.removeBigVariableLoadedListener(rUpdate));
      if (compactView)
        return vis;
      crud.onSingleSelectionChanged(rstUpdateDetail);
      scpDetail = scp();
      return jvsplit(vis, scpDetail);
    }

    public void updateCount() {
      crud().update();
    }

    public void setSelected(G22Variable var) {
      crud().setSelected(var);
    }

    public void _updateDetail() {
      var var = crud.selected();
      if (var == null) {
        scpDetail.clear();
        return;
      }
      Object value = var.value();
      var vis = new G22JavaObjectVisualizer(g22utils, value).visualize();
      bindChangeListenerToComponent(vis, var.varValue(), () -> {
        if (!eq(var.value(), value))
          rstUpdateDetail.get();
      });
      scpDetail.set(jCenteredSection("Variable " + var.name, vis));
    }
  }

  static public class LASCompileResult {

    final public LASCompileResult setScript(String script) {
      return script(script);
    }

    public LASCompileResult script(String script) {
      this.script = script;
      return this;
    }

    final public String getScript() {
      return script();
    }

    public String script() {
      return script;
    }

    public String script;

    final public LASCompileResult setParser(GazelleV_LeftArrowScriptParser parser) {
      return parser(parser);
    }

    public LASCompileResult parser(GazelleV_LeftArrowScriptParser parser) {
      this.parser = parser;
      return this;
    }

    final public GazelleV_LeftArrowScriptParser getParser() {
      return parser();
    }

    public GazelleV_LeftArrowScriptParser parser() {
      return parser;
    }

    public GazelleV_LeftArrowScriptParser parser;

    final public LASCompileResult setCompileError(Throwable compileError) {
      return compileError(compileError);
    }

    public LASCompileResult compileError(Throwable compileError) {
      this.compileError = compileError;
      return this;
    }

    final public Throwable getCompileError() {
      return compileError();
    }

    public Throwable compileError() {
      return compileError;
    }

    public Throwable compileError;

    public GazelleV_LeftArrowScript.Script parsedScript;

    public RunResultWithTimestamps compileLog;

    public String toString() {
      if (compileError != null)
        return errorToString();
      if (parsedScript == null)
        return "Not compiled yet";
      return "Compiled OK" + (compileLog == null ? "" : " in " + n2(max(1, compileLog.duration().toMillis())) + " ms");
    }

    public boolean hasError() {
      return compileError != null;
    }

    public String errorToString() {
      return exceptionToStringShorter_dontDropOuterExceptions(compileError);
    }

    public boolean runnable() {
      return parsedScript != null;
    }

    public void compile() {
      compileLog = runResultWithTimestamps_dontPrintStackTrace(() -> {
        if (parser == null)
          parser = makeParser();
        return parsedScript = parser.parse(script);
      });
      if (compileLog.isError()) {
        var e = compileLog.getError();
        compileError(e);
      }
    }

    final public GazelleV_LeftArrowScript.Script get() {
      return parsedScript();
    }

    public GazelleV_LeftArrowScript.Script parsedScript() {
      return parsedScript;
    }

    public GazelleV_LeftArrowScript.Script parsedScriptMandatory() {
      if (compileError != null)
        throw fail(compileError);
      return parsedScript;
    }

    transient public IF0<GazelleV_LeftArrowScriptParser> makeParser;

    public GazelleV_LeftArrowScriptParser makeParser() {
      return makeParser != null ? makeParser.get() : makeParser_base();
    }

    final public GazelleV_LeftArrowScriptParser makeParser_fallback(IF0<GazelleV_LeftArrowScriptParser> _f) {
      return _f != null ? _f.get() : makeParser_base();
    }

    public GazelleV_LeftArrowScriptParser makeParser_base() {
      return null;
    }

    public LineAndColumn errorLineAndCol() {
      return parseLineAndColumn(str(compileError));
    }

    public Timestamp compilationStart() {
      return compileLog == null ? null : compileLog.started;
    }
  }

  static public class G22GalleryImage extends ConceptWithChangeListeners {

    public transient FieldVar<File> varPath_cache;

    public FieldVar<File> varPath() {
      if (varPath_cache == null)
        varPath_cache = varPath_load();
      return varPath_cache;
    }

    public FieldVar<File> varPath_load() {
      return new FieldVar<File>(this, "path", () -> path(), path -> path(path));
    }

    final public G22GalleryImage setPath(File path) {
      return path(path);
    }

    public G22GalleryImage path(File path) {
      if (!eq(this.path, path)) {
        this.path = path;
        change();
      }
      return this;
    }

    final public File getPath() {
      return path();
    }

    public File path() {
      return path;
    }

    public File path;

    public String toString() {
      return fileName(path);
    }

    public boolean imageExists() {
      return fileExists(path);
    }

    final public BufferedImage image() {
      return load();
    }

    final public BufferedImage getImage() {
      return load();
    }

    public BufferedImage load() {
      return loadImage2(path);
    }

    public File imageFile() {
      return path;
    }
  }

  static public class RunnablesReferenceQueue implements AutoCloseable {

    public ReferenceQueue queue = new ReferenceQueue();

    volatile public Thread thread;

    public Flag closed = new Flag();

    final public RunnablesReferenceQueue setTimeout(int timeout) {
      return timeout(timeout);
    }

    public RunnablesReferenceQueue timeout(int timeout) {
      this.timeout = timeout;
      return this;
    }

    final public int getTimeout() {
      return timeout();
    }

    public int timeout() {
      return timeout;
    }

    public int timeout = 60000;

    public RunnablesReferenceQueue() {
      thread = startThread("RunnablesReferenceQueue", () -> _run());
    }

    public void _run() {
      try {
        try {
          while (ping() && !closed.get()) {
            Reference<?> ref = queue.remove(timeout);
            if (ref != null) {
              if (ref instanceof Runnable)
                pcallF((Runnable) ref);
              else
                warn("RunnablesReferenceQueue: Reference not runnable - " + className(ref));
            }
          }
        } catch (InterruptedException e) {
        } finally {
          thread = null;
        }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void close() {
      try {
        closed.raise();
        interruptThread(thread);
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    final public ReferenceQueue get() {
      return queue();
    }

    public ReferenceQueue queue() {
      return queue;
    }
  }

  static public class G22ProjectInfo extends Concept {

    static final public String _fieldOrder = "projectID projectDir defaultMaskSize compilationDate historicalProjectDirs useFirefox";

    final public String getProjectID() {
      return projectID();
    }

    public String projectID() {
      return projectID;
    }

    public String projectID = aGlobalID();

    public File projectDir;

    final public G22MaskSize getDefaultMaskSize() {
      return defaultMaskSize();
    }

    public G22MaskSize defaultMaskSize() {
      return defaultMaskSize;
    }

    public G22MaskSize defaultMaskSize = new G22MaskSize();

    public String compilationDate;

    public List<File> historicalProjectDirs = new ArrayList();

    final public boolean getUseFirefox() {
      return useFirefox();
    }

    public boolean useFirefox() {
      return useFirefox;
    }

    public boolean useFirefox = false;

    public void addHistoricalProjectDir(File dir) {
      if (syncSetAdd(historicalProjectDirs, dir))
        change();
    }
  }

  public interface G22ProjectActions {

    public void openObjectInProject(long id);

    public boolean openPathInProject(String path);

    public void editProjectStory();

    public void editScripts();

    public void editScript(G22LeftArrowScript script);

    public void openUIURL(String url);

    public IVarWithNotify<G22LeftArrowScript> varShowCasedScript();

    public G22DatabasesPanel databasesPanel();

    public void closeProject();

    public G22Utils g22utils();

    public DynamicVStack topStack();

    public void saveAsNewScript(String text);

    public Set<String> projectLibs();

    public G22SelfTests selfTests();

    public List<PersistableThrowable> projectErrors();

    public void goToSource(TokenRangeWithSrc src);
  }

  static public class ImageSurface extends Surface {

    public BufferedImage image;

    public double zoomX = 1, zoomY = 1, zoomFactor = 1.5;

    public Rectangle selection;

    public List<AutoCloseable> tools = new ArrayList();

    public Object overlay;

    public List<G2Drawable> overlays = syncL();

    public Runnable onSelectionChange;

    final public ImageSurface setVerbose(boolean verbose) {
      return verbose(verbose);
    }

    public ImageSurface verbose(boolean verbose) {
      this.verbose = verbose;
      return this;
    }

    final public boolean getVerbose() {
      return verbose();
    }

    public boolean verbose() {
      return verbose;
    }

    public boolean verbose = false;

    public boolean noMinimumSize = true;

    public String titleForUpload;

    public Object onZoom;

    public boolean specialPurposed = false;

    final public ImageSurface setAllowPaste(boolean allowPaste) {
      return allowPaste(allowPaste);
    }

    public ImageSurface allowPaste(boolean allowPaste) {
      this.allowPaste = allowPaste;
      return this;
    }

    final public boolean getAllowPaste() {
      return allowPaste();
    }

    public boolean allowPaste() {
      return allowPaste;
    }

    public boolean allowPaste = false;

    final public ImageSurface setZoomable(boolean zoomable) {
      return zoomable(zoomable);
    }

    public ImageSurface zoomable(boolean zoomable) {
      this.zoomable = zoomable;
      return this;
    }

    final public boolean getZoomable() {
      return zoomable();
    }

    public boolean zoomable() {
      return zoomable;
    }

    public boolean zoomable = true;

    public boolean noAlpha = false;

    public Object interpolationMode = RenderingHints.VALUE_INTERPOLATION_BILINEAR;

    public Object onNewImage;

    public BufferedImage imageToDraw;

    public File file;

    public boolean autoZoomToDisplay = false;

    final public ImageSurface setRepaintInThread(boolean repaintInThread) {
      return repaintInThread(repaintInThread);
    }

    public ImageSurface repaintInThread(boolean repaintInThread) {
      this.repaintInThread = repaintInThread;
      return this;
    }

    final public boolean getRepaintInThread() {
      return repaintInThread();
    }

    public boolean repaintInThread() {
      return repaintInThread;
    }

    public boolean repaintInThread = false;

    public BoolVar showingVar;

    public Pt mousePosition;

    transient public Set<Runnable> onMousePositionChanged;

    public ImageSurface onMousePositionChanged(Runnable r) {
      onMousePositionChanged = createOrAddToSyncLinkedHashSet(onMousePositionChanged, r);
      return this;
    }

    public ImageSurface removeMousePositionChangedListener(Runnable r) {
      main.remove(onMousePositionChanged, r);
      return this;
    }

    public void mousePositionChanged() {
      if (onMousePositionChanged != null)
        for (var listener : onMousePositionChanged) pcallF_typed(listener);
    }

    transient public Set<Runnable> onImageChanged;

    public ImageSurface onImageChanged(Runnable r) {
      onImageChanged = createOrAddToSyncLinkedHashSet(onImageChanged, r);
      return this;
    }

    public ImageSurface removeImageChangedListener(Runnable r) {
      main.remove(onImageChanged, r);
      return this;
    }

    public void imageChanged() {
      if (onImageChanged != null)
        for (var listener : onImageChanged) pcallF_typed(listener);
    }

    transient public Set<IVF1<BufferedImage>> onUserModifiedImage;

    public ImageSurface onUserModifiedImage(IVF1<BufferedImage> f) {
      onUserModifiedImage = createOrAddToSyncLinkedHashSet(onUserModifiedImage, f);
      return this;
    }

    public ImageSurface removeUserModifiedImageListener(IVF1<BufferedImage> f) {
      main.remove(onUserModifiedImage, f);
      return this;
    }

    public void userModifiedImage(BufferedImage image) {
      if (onUserModifiedImage != null)
        for (var listener : onUserModifiedImage) pcallF_typed(listener, image);
    }

    public ImageSurface() {
      this(dummyImage());
    }

    static public BufferedImage dummyImage() {
      return whiteImage(1);
    }

    public ImageSurface(File file) {
      setImage(file);
    }

    public ImageSurface(MakesBufferedImage image) {
      this(image != null ? image.getBufferedImage() : dummyImage());
    }

    public ImageSurface(BufferedImage image) {
      setImage(image);
      clearSurface = false;
      bindToComponent(this, () -> performAutoZoom(), null);
      onResize(this, () -> performAutoZoom());
      onEnclosingScrollPaneResize(this, () -> performAutoZoom());
      componentPopupMenu2(this, ImageSurface_popupMenuMaker());
      new ImageSurfaceSelector(this);
      jHandleFileDrop(this, new VF1<File>() {

        public void get(File f) {
          try {
            setImage(loadBufferedImage(f));
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "setImage(loadBufferedImage(f))";
        }
      });
      imageSurfaceOnHover(this, p -> {
        mousePosition = p;
        mousePositionChanged();
      });
    }

    public ImageSurface(RGBImage image, double zoom) {
      this(image);
      setZoom(zoom);
    }

    public void fillPopupMenu(JPopupMenu menu, final Point point) {
      if (zoomable) {
        JMenuItem miZoomReset = new JMenuItem("Zoom 100%");
        miZoomReset.addActionListener(new ActionListener() {

          public void actionPerformed(ActionEvent evt) {
            setZoom(1.0);
            centerPoint(point);
          }
        });
        menu.add(miZoomReset);
        JMenuItem miZoomIn = new JMenuItem("Zoom in");
        miZoomIn.addActionListener(new ActionListener() {

          public void actionPerformed(ActionEvent evt) {
            zoomIn(zoomFactor);
            centerPoint(point);
          }
        });
        menu.add(miZoomIn);
        JMenuItem miZoomOut = new JMenuItem("Zoom out");
        miZoomOut.addActionListener(new ActionListener() {

          public void actionPerformed(ActionEvent evt) {
            zoomOut(zoomFactor);
            centerPoint(point);
          }
        });
        menu.add(miZoomOut);
        menu.add(jMenuItemStayCheckedOnClick("Zoom to window", () -> autoZoomToDisplay, () -> setAutoZoomToDisplay(true)));
        addMenuItem(menu, "Show full screen", new Runnable() {

          public void run() {
            try {
              showFullScreen();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "showFullScreen()";
          }
        });
        addMenuItem(menu, "Point: " + point.x + "," + point.y + " (image: " + w() + "*" + h() + ")", null);
        menu.addSeparator();
      }
      if (!specialPurposed)
        addMenuItem(menu, "Load image...", new Runnable() {

          public void run() {
            try {
              selectFile("Load image", new VF1<File>() {

                public void get(File f) {
                  try {
                    setImage(loadImage2(f));
                  } catch (Exception __e) {
                    throw rethrow(__e);
                  }
                }

                public String toString() {
                  return "setImage(loadImage2(f))";
                }
              });
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "selectFile(\"Load image\",\r\n        new VF1<File>() { public void get(File f) c...";
          }
        });
      addMenuItem(menu, "Save image...", new Runnable() {

        public void run() {
          try {
            saveImage();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "saveImage()";
        }
      });
      addMenuItem(menu, "Copy image to clipboard", new Runnable() {

        public void run() {
          try {
            copyImageToClipboard(getImage());
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "copyImageToClipboard(getImage())";
        }
      });
      if (!specialPurposed || allowPaste)
        addMenuItem(menu, "Paste image from clipboard", new Runnable() {

          public void run() {
            try {
              loadFromClipboard();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "loadFromClipboard()";
          }
        });
      if (!specialPurposed)
        addMenuItem(menu, "Load image snippet...", new Runnable() {

          public void run() {
            try {
              selectImageSnippet(new VF1<String>() {

                public void get(String imageID) {
                  try {
                    setImage(loadImage2(imageID));
                  } catch (Exception __e) {
                    throw rethrow(__e);
                  }
                }

                public String toString() {
                  return "setImage(loadImage2(imageID))";
                }
              });
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "selectImageSnippet(new VF1<String>() { public void get(String imageID) ctex {...";
          }
        });
      if (selection != null)
        addMenuItem(menu, "Crop", new Runnable() {

          public void run() {
            try {
              crop();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "crop()";
          }
        });
      if (!specialPurposed)
        addMenuItem(menu, "No image", new Runnable() {

          public void run() {
            try {
              noImage();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "noImage()";
          }
        });
    }

    public void noImage() {
      setImage((BufferedImage) null);
    }

    public void crop() {
      if (selection == null)
        return;
      BufferedImage img = cloneClipBufferedImage(getImage(), selection);
      selection = null;
      setUserModifiedImage(img);
    }

    public void setUserModifiedImage(BufferedImage img) {
      setImage(img);
      userModifiedImage(img);
    }

    public void loadFromClipboard() {
      BufferedImage img = getImageFromClipboard();
      if (img != null)
        setUserModifiedImage(img);
    }

    transient public IF0<File> defaultImageDir;

    public File defaultImageDir() {
      return defaultImageDir != null ? defaultImageDir.get() : defaultImageDir_base();
    }

    final public File defaultImageDir_fallback(IF0<File> _f) {
      return _f != null ? _f.get() : defaultImageDir_base();
    }

    public File defaultImageDir_base() {
      return getProgramDir();
    }

    public void saveImage() {
      var image = getImage();
      JFileChooser fileChooser = new JFileChooser(defaultImageDir());
      if (fileChooser.showSaveDialog(this) == JFileChooser.APPROVE_OPTION) {
        try {
          main.saveImage(image, file = fileChooser.getSelectedFile());
        } catch (Throwable e) {
          popup(e);
        }
      }
    }

    public void drawImageItself(int w, int h, Graphics2D g) {
      int iw = getZoomedWidth(), ih = getZoomedHeight();
      if (interpolationMode == RenderingHints.VALUE_INTERPOLATION_NEAREST_NEIGHBOR || zoomX >= 1 || zoomY >= 1) {
        g.drawImage(image, 0, 0, iw, ih, null);
      } else
        g.drawImage(resizeImage(image, iw, ih), 0, 0, null);
    }

    transient public IVF3<Integer, Integer, Graphics2D> drawBackground;

    public void drawBackground(int w, int h, Graphics2D g) {
      if (drawBackground != null)
        drawBackground.get(w, h, g);
      else
        drawBackground_base(w, h, g);
    }

    final public void drawBackground_fallback(IVF3<Integer, Integer, Graphics2D> _f, int w, int h, Graphics2D g) {
      if (_f != null)
        _f.get(w, h, g);
      else
        drawBackground_base(w, h, g);
    }

    public void drawBackground_base(int w, int h, Graphics2D g) {
      g.setColor(or(getBackground(), Color.white));
      g.fillRect(0, 0, w, h);
    }

    public void render(int w, int h, Graphics2D g) {
      if (verbose)
        _print("render");
      g.setRenderingHint(RenderingHints.KEY_INTERPOLATION, interpolationMode);
      drawBackground(w, h, g);
      BufferedImage image = or(imageToDraw, this.image);
      if (!hasImage())
        drawBackground(w, h, g);
      else {
        boolean alpha = !noAlpha && hasTransparency(image);
        if (alpha)
          drawBackground(w, h, g);
        drawImageItself(w, h, g);
        int iw = getZoomedWidth(), ih = getZoomedHeight();
        if (!alpha) {
          g.fillRect(iw, 0, w - iw, h);
          g.fillRect(0, ih, iw, h - ih);
        }
      }
      if (overlay != null) {
        if (verbose)
          _print("render overlay");
        pcallF(overlay, g);
      }
      for (var overlay : cloneList(overlays)) {
        try {
          overlay.drawOn(cloneGraphics(g));
        } catch (Throwable __e) {
          pcallFail(__e);
        }
      }
      if (selection != null) {
        if (verbose)
          _print("render selection");
        drawSelectionRect(g, selection, Color.green, Color.white);
      }
    }

    public void drawSelectionRect(Graphics2D g, Rectangle selection, Color green, Color white) {
      drawSelectionRect(g, selection, green, white, zoomX, zoomY);
    }

    public void drawSelectionRect(Graphics2D g, Rectangle selection, Color green, Color white, double zoomX, double zoomY) {
      g.setColor(green);
      int top = (int) (selection.y * zoomY);
      int bottom = (int) ((selection.y + selection.height) * zoomY);
      int left = (int) (selection.x * zoomX);
      int right = (int) ((selection.x + selection.width) * zoomX);
      g.drawRect(left - 1, top - 1, right - left + 1, bottom - top + 1);
      g.setColor(white);
      g.drawRect(left - 2, top - 2, right - left + 3, bottom - top + 3);
    }

    public ImageSurface setZoom(double zoom) {
      setZoom(zoom, zoom);
      return this;
    }

    public void setZoom(double zoomX, double zoomY) {
      autoZoomToDisplay = false;
      setZoom_dontChangeAutoZoom(zoomX, zoomY);
    }

    public void setZoom_dontChangeAutoZoom(double zoomX) {
      setZoom_dontChangeAutoZoom(zoomX, zoomX);
    }

    public void setZoom_dontChangeAutoZoom(double zoomX, double zoomY) {
      if (this.zoomX == zoomX && this.zoomY == zoomY)
        return;
      if (verbose)
        _print("Setting zoom");
      this.zoomX = zoomX;
      this.zoomY = zoomY;
      revalidateMe();
      repaint();
      centerPoint(new Point(getImage().getWidth() / 2, getImage().getHeight() / 2));
      pcallF(onZoom);
    }

    public Dimension getMinimumSize() {
      if (metaGet("scaffolding") != null)
        scaffoldCalled(this, "getMinimumSize");
      if (noMinimumSize)
        return new Dimension(1, 1);
      int w = getZoomedWidth();
      int h = getZoomedHeight();
      Dimension min = super.getMinimumSize();
      return printIfScaffoldingEnabled(this, new Dimension(Math.max(w, min.width), Math.max(h, min.height)));
    }

    public int getZoomedHeight() {
      return (int) (h() * zoomY);
    }

    public int getZoomedWidth() {
      return (int) (w() * zoomX);
    }

    public boolean isShowing_quick() {
      if (showingVar == null) {
        swing(() -> {
          if (showingVar == null)
            showingVar = componentShowingVar(ImageSurface.this);
        });
      }
      return showingVar.get();
    }

    public void setImageIfShowing_thisThread(MakesBufferedImage image) {
      setImageIfShowing_thisThread(toBufferedImage(image));
    }

    public void setImageIfShowing_thisThread(BufferedImage image) {
      if (isShowing_quick())
        setImage_thisThread(image);
    }

    public void setImage(File file) {
      setFile(file);
      setImage(loadImage2(file));
    }

    public void setImage(MakesBufferedImage image) {
      swing(() -> {
        setImage_thisThread(image);
      });
    }

    public void setImage(BufferedImage img) {
      swing(() -> {
        setImage_thisThread(img);
      });
    }

    public void setImage_thisThread(MakesBufferedImage img) {
      setImage_thisThread(toBufferedImage(img));
    }

    public void setImage_thisThread(BufferedImage img) {
      BufferedImage newImage = img != null ? img : dummyImage();
      BufferedImage oldImage = image;
      image = newImage;
      if (verbose)
        print("Old image size:" + imageSize(oldImage) + ", new image size: " + imageSize(newImage));
      boolean sameSize = imagesHaveSameSize(oldImage, newImage);
      if (!sameSize) {
        if (verbose)
          _print("New image size");
        revalidateMe();
      }
      quickRepaint();
      pcallF(onNewImage);
      if (!sameSize && autoZoomToDisplay)
        zoomToDisplaySize();
      imageChanged();
    }

    public void setImageAndZoomToDisplay(BufferedImage img) {
      setImage(img);
      zoomToDisplaySize();
    }

    public BufferedImage getImage() {
      return image;
    }

    public double getZoomX() {
      return zoomX;
    }

    public double getZoomY() {
      return zoomY;
    }

    public Dimension getPreferredSize() {
      if (metaGet("scaffolding") != null)
        scaffoldCalled(this, "getPreferredSize");
      return printIfScaffoldingEnabled(this, new Dimension(getZoomedWidth(), getZoomedHeight()));
    }

    public JScrollPane makeScrollPane() {
      JScrollPane scrollPane = new JScrollPane(this);
      scrollPane.getViewport().setScrollMode(JViewport.BACKINGSTORE_SCROLL_MODE);
      return scrollPane;
    }

    public void zoomToWindow() {
      zoomToDisplaySize();
    }

    public void zoomToDisplaySize() {
      swing(() -> {
        if (!hasImage())
          return;
        Dimension display = getDisplaySize();
        if (display.width == 0 || display.height == 0)
          return;
        int w = w(), h = h();
        double xRatio = (display.width - 5) / (double) w;
        double yRatio = (display.height - 5) / (double) h;
        if (scaffoldingEnabled(this))
          printVars("zoomToDisplaySize", "display", display, "w", w, "h", h, "xRatio", xRatio, "yRatio", yRatio);
        setZoom_dontChangeAutoZoom(min(xRatio, yRatio));
        revalidateMe();
      });
    }

    private Dimension getDisplaySize() {
      if (metaGet("scaffolding") != null)
        scaffoldCalled(this, "getDisplaySize");
      Container c = getParent();
      while (c != null) {
        if (c instanceof JScrollPane)
          return c.getSize();
        c = c.getParent();
      }
      return getSize();
    }

    public void setSelection(Rect r) {
      setSelection(toRectangle(r));
    }

    public void setSelection(Rectangle r) {
      if (neq(selection, r)) {
        selection = r;
        pcallF(onSelectionChange);
        quickRepaint();
      }
    }

    public Rectangle getSelection() {
      return selection;
    }

    public RGBImage getRGBImage() {
      return new RGBImage(getImage());
    }

    public void centerPoint(Point p) {
      JScrollPane sp = enclosingScrollPane(this);
      if (sp == null)
        return;
      p = new Point((int) (p.x * getZoomX()), (int) (p.y * getZoomY()));
      final JViewport viewport = sp.getViewport();
      Dimension viewSize = viewport.getExtentSize();
      int x = max(0, p.x - viewSize.width / 2);
      int y = max(0, p.y - viewSize.height / 2);
      p = new Point(x, y);
      final Point _p = p;
      awtLater(new Runnable() {

        public void run() {
          try {
            viewport.setViewPosition(_p);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "viewport.setViewPosition(_p);";
        }
      });
    }

    public Pt pointFromEvent(MouseEvent e) {
      return pointFromComponentCoordinates(new Pt(e.getX(), e.getY()));
    }

    public Pt pointFromComponentCoordinates(Pt p) {
      return new Pt((int) (p.x / zoomX), (int) (p.y / zoomY));
    }

    public Pt pointToComponentCoordinates(double x, double y) {
      return new Pt((int) (x * zoomX), (int) (y * zoomY));
    }

    public void uploadTheImage() {
    }

    public void showFullScreen() {
      showFullScreenImageSurface(getImage());
    }

    public void zoomIn(double f) {
      setZoom(getZoomX() * f, getZoomY() * f);
    }

    public void zoomOut(double f) {
      setZoom(getZoomX() / f, getZoomY() / f);
    }

    public ImageSurface setFile(File f) {
      file = f;
      return this;
    }

    public void setOverlay(IVF1<Graphics2D> overlay) {
      this.overlay = overlay;
    }

    public boolean hasImage() {
      return image != null;
    }

    public int w() {
      return image.getWidth();
    }

    public int h() {
      return image.getHeight();
    }

    final public void pixelate(boolean b) {
      setPixelated(b);
    }

    public void setPixelated(boolean b) {
      assertTrue(b);
      imageSurface_pixelated(this);
    }

    final public ImageSurface autoZoomToDisplay(boolean b) {
      return setAutoZoomToDisplay(b);
    }

    public ImageSurface setAutoZoomToDisplay(boolean b) {
      if (autoZoomToDisplay = b)
        zoomToDisplaySize();
      return this;
    }

    public void quickRepaint() {
      if (repaintInThread)
        paintImmediately(0, 0, getWidth(), getHeight());
      else
        repaint();
    }

    public void setTool(ImageSurfaceMouseHandler tool) {
      swing(() -> {
        removeAllTools();
        addTool(tool);
      });
    }

    public boolean hasTool(AutoCloseable tool) {
      return swing(() -> tools.contains(tool));
    }

    public void addTool(ImageSurfaceMouseHandler tool) {
      swing(() -> {
        if (!tools.contains(tool))
          tool.register(this);
      });
    }

    public void removeTool(AutoCloseable tool) {
      swing(() -> {
        if (tools.contains(tool)) {
          close(tool);
          tools.remove(tool);
        }
      });
    }

    final public void clearTools() {
      removeAllTools();
    }

    public void removeAllTools() {
      closeAllAndClear(tools);
    }

    public void performAutoZoom() {
      if (autoZoomToDisplay)
        zoomToDisplaySize();
    }

    public void revalidateMe() {
      revalidateIncludingFullCenterContainer(this);
    }

    public void addOverlay(G2Drawable overlay) {
      overlays.add(overlay);
      repaint();
    }

    public void clearOverlays() {
      if (nempty(overlays)) {
        overlays.clear();
        repaint();
      }
    }

    public void setOverlay(G2Drawable overlay) {
      clearOverlays();
      if (overlay != null)
        addOverlay(overlay);
    }

    public void loadImage(File f) {
      setImage(loadImage2(f));
    }

    public JComponent visualize() {
      return jscroll_center_borderless(this);
    }

    public void standardZoom() {
      setZoom(1.0);
    }

    public <A> A print(A a) {
      return print("", a);
    }

    public <A> A print(String msg, A a) {
      return _print(msg, a);
    }
  }

  static public VF2<ImageSurface, JPopupMenu> ImageSurface_popupMenuMaker() {
    return new VF2<ImageSurface, JPopupMenu>() {

      public void get(ImageSurface is, JPopupMenu menu) {
        try {
          Point p = is.pointFromEvent(componentPopupMenu_mouseEvent.get()).getPoint();
          is.fillPopupMenu(menu, p);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "Point p = is.pointFromEvent(componentPopupMenu_mouseEvent.get()).getPoint();\r...";
      }
    };
  }

  static public class CombinedStringifier<A> implements IStringifier<A> {

    public CopyOnWriteArrayList<IPartialStringifier<A>> stringifiers = new CopyOnWriteArrayList();

    public IStringifier<A> defaultStringifier = new Stringifier_ToString();

    public CombinedStringifier(IPartialStringifier<A>... stringifiers) {
      addAll(this.stringifiers, stringifiers);
    }

    public String toString(A o) {
      for (var stringifier : stringifiers) {
        String s = stringifier.toStringOpt(o);
        if (s != null)
          return s;
      }
      return defaultStringifier.toString(o);
    }

    public String toString() {
      return formatFunctionCall("CombinedStringifier", listPlus((List) stringifiers, defaultStringifier));
    }
  }

  static public class G22LeftArrowScript extends ConceptWithChangeListeners {

    static final public String _fieldOrder = "description text clearedForAutoRun editingText importNote runOnProjectOpen runOrder runCount lastResultByMode supercededBy metaCode compileResultForAutoRun compileResultForSaved compileResultForEditing";

    public transient FieldVar<String> varDescription_cache;

    public FieldVar<String> varDescription() {
      if (varDescription_cache == null)
        varDescription_cache = varDescription_load();
      return varDescription_cache;
    }

    public FieldVar<String> varDescription_load() {
      return new FieldVar<String>(this, "description", () -> description(), description -> description(description));
    }

    final public G22LeftArrowScript setDescription(String description) {
      return description(description);
    }

    public G22LeftArrowScript description(String description) {
      if (!eq(this.description, description)) {
        this.description = description;
        change();
      }
      return this;
    }

    final public String getDescription() {
      return description();
    }

    public String description() {
      return description;
    }

    public String description;

    public transient FieldVar<String> varText_cache;

    public FieldVar<String> varText() {
      if (varText_cache == null)
        varText_cache = varText_load();
      return varText_cache;
    }

    public FieldVar<String> varText_load() {
      return new FieldVar<String>(this, "text", () -> text(), text -> text(text));
    }

    final public G22LeftArrowScript setText(String text) {
      return text(text);
    }

    public G22LeftArrowScript text(String text) {
      if (!eq(this.text, text)) {
        this.text = text;
        change();
      }
      return this;
    }

    final public String getText() {
      return text();
    }

    public String text() {
      return text;
    }

    public String text;

    public transient FieldVar<ClearForAutoRun<String>> varClearedForAutoRun_cache;

    public FieldVar<ClearForAutoRun<String>> varClearedForAutoRun() {
      if (varClearedForAutoRun_cache == null)
        varClearedForAutoRun_cache = varClearedForAutoRun_load();
      return varClearedForAutoRun_cache;
    }

    public FieldVar<ClearForAutoRun<String>> varClearedForAutoRun_load() {
      return new FieldVar<ClearForAutoRun<String>>(this, "clearedForAutoRun", () -> clearedForAutoRun(), clearedForAutoRun -> clearedForAutoRun(clearedForAutoRun));
    }

    final public G22LeftArrowScript setClearedForAutoRun(ClearForAutoRun<String> clearedForAutoRun) {
      return clearedForAutoRun(clearedForAutoRun);
    }

    public G22LeftArrowScript clearedForAutoRun(ClearForAutoRun<String> clearedForAutoRun) {
      if (!eq(this.clearedForAutoRun, clearedForAutoRun)) {
        this.clearedForAutoRun = clearedForAutoRun;
        change();
      }
      return this;
    }

    final public ClearForAutoRun<String> getClearedForAutoRun() {
      return clearedForAutoRun();
    }

    public ClearForAutoRun<String> clearedForAutoRun() {
      return clearedForAutoRun;
    }

    public ClearForAutoRun<String> clearedForAutoRun;

    public transient FieldVar<String> varEditingText_cache;

    public FieldVar<String> varEditingText() {
      if (varEditingText_cache == null)
        varEditingText_cache = varEditingText_load();
      return varEditingText_cache;
    }

    public FieldVar<String> varEditingText_load() {
      return new FieldVar<String>(this, "editingText", () -> editingText(), editingText -> editingText(editingText));
    }

    final public G22LeftArrowScript setEditingText(String editingText) {
      return editingText(editingText);
    }

    public G22LeftArrowScript editingText(String editingText) {
      if (!eq(this.editingText, editingText)) {
        this.editingText = editingText;
        change();
      }
      return this;
    }

    final public String getEditingText() {
      return editingText();
    }

    public String editingText() {
      return editingText;
    }

    public String editingText;

    public transient FieldVar<String> varImportNote_cache;

    public FieldVar<String> varImportNote() {
      if (varImportNote_cache == null)
        varImportNote_cache = varImportNote_load();
      return varImportNote_cache;
    }

    public FieldVar<String> varImportNote_load() {
      return new FieldVar<String>(this, "importNote", () -> importNote(), importNote -> importNote(importNote));
    }

    final public G22LeftArrowScript setImportNote(String importNote) {
      return importNote(importNote);
    }

    public G22LeftArrowScript importNote(String importNote) {
      if (!eq(this.importNote, importNote)) {
        this.importNote = importNote;
        change();
      }
      return this;
    }

    final public String getImportNote() {
      return importNote();
    }

    public String importNote() {
      return importNote;
    }

    public String importNote;

    public transient FieldVar<Boolean> varRunOnProjectOpen_cache;

    public FieldVar<Boolean> varRunOnProjectOpen() {
      if (varRunOnProjectOpen_cache == null)
        varRunOnProjectOpen_cache = varRunOnProjectOpen_load();
      return varRunOnProjectOpen_cache;
    }

    public FieldVar<Boolean> varRunOnProjectOpen_load() {
      return new FieldVar<Boolean>(this, "runOnProjectOpen", () -> runOnProjectOpen(), runOnProjectOpen -> runOnProjectOpen(runOnProjectOpen));
    }

    final public G22LeftArrowScript setRunOnProjectOpen(boolean runOnProjectOpen) {
      return runOnProjectOpen(runOnProjectOpen);
    }

    public G22LeftArrowScript runOnProjectOpen(boolean runOnProjectOpen) {
      if (!eq(this.runOnProjectOpen, runOnProjectOpen)) {
        this.runOnProjectOpen = runOnProjectOpen;
        change();
      }
      return this;
    }

    final public boolean getRunOnProjectOpen() {
      return runOnProjectOpen();
    }

    public boolean runOnProjectOpen() {
      return runOnProjectOpen;
    }

    public boolean runOnProjectOpen = false;

    public transient FieldVar<String> varRunOrder_cache;

    public FieldVar<String> varRunOrder() {
      if (varRunOrder_cache == null)
        varRunOrder_cache = varRunOrder_load();
      return varRunOrder_cache;
    }

    public FieldVar<String> varRunOrder_load() {
      return new FieldVar<String>(this, "runOrder", () -> runOrder(), runOrder -> runOrder(runOrder));
    }

    final public G22LeftArrowScript setRunOrder(String runOrder) {
      return runOrder(runOrder);
    }

    public G22LeftArrowScript runOrder(String runOrder) {
      if (!eq(this.runOrder, runOrder)) {
        this.runOrder = runOrder;
        change();
      }
      return this;
    }

    final public String getRunOrder() {
      return runOrder();
    }

    public String runOrder() {
      return runOrder;
    }

    public String runOrder;

    public long runCount;

    public Map<G22ScriptMode, WithTimestamp<PersistableOKOrError<G22TypeDesc>>> lastResultByMode;

    public Ref<G22LeftArrowScript> supercededBy = new Ref();

    public transient FieldVar<String> varMetaCode_cache;

    public FieldVar<String> varMetaCode() {
      if (varMetaCode_cache == null)
        varMetaCode_cache = varMetaCode_load();
      return varMetaCode_cache;
    }

    public FieldVar<String> varMetaCode_load() {
      return new FieldVar<String>(this, "metaCode", () -> metaCode(), metaCode -> metaCode(metaCode));
    }

    final public G22LeftArrowScript setMetaCode(String metaCode) {
      return metaCode(metaCode);
    }

    public G22LeftArrowScript metaCode(String metaCode) {
      if (!eq(this.metaCode, metaCode)) {
        this.metaCode = metaCode;
        change();
      }
      return this;
    }

    final public String getMetaCode() {
      return metaCode();
    }

    public String metaCode() {
      return metaCode;
    }

    public String metaCode;

    public void _doneLoading2() {
      super._doneLoading2();
      cMigrateField(this, "code", "text");
    }

    public String myType() {
      return dropPrefix("G22", shortClassName(this));
    }

    public String toString() {
      if (empty(description))
        return myType() + " " + id;
      else
        return "Script " + id + ": " + description;
    }

    public void initEditingText() {
      editingText(unnull(or(editingText, text)));
    }

    public void receiveEditingText(String text) {
      editingText(text);
    }

    public String stableText() {
      return text;
    }

    final public void save() {
      completeEdit();
    }

    public void completeEdit() {
      String t = editingText;
      if (t != null) {
        setTextWithHistory(t);
      }
    }

    public void setTextWithHistory(String text) {
      if (eq(this.text, text))
        return;
      text(text);
      saveTextToHistory();
    }

    public void discardEdit() {
      String text = editedText();
      if (text == null)
        return;
      saveFieldToHistory("discardingEdit", text);
      editingText(null);
    }

    public String textForEditing() {
      initEditingText();
      return editingText;
    }

    public File historyFile() {
      return fileInConceptsDir("History/" + shortDynName(this) + id + ".history");
    }

    public void saveTextToHistory() {
      saveFieldToHistory("text", text);
    }

    public void saveFieldToHistory(String field, String value) {
      File historyFile = historyFile();
      if (historyFile == null)
        return;
      String contents = value == null ? " empty" : " (" + nLines(value) + ", " + nChars(value) + "):\n" + indentx(value) + "\n" + "\n";
      appendToTextFile(historyFile, "\n===\n" + "Concept ID: " + id + "\n" + "Date: " + dateWithMSUTC() + "\n" + firstToUpper(field) + contents + "===" + "\n");
    }

    public boolean isSaved() {
      return text != null;
    }

    public boolean isSavedDistinctFromAutoRunVersion() {
      return isSaved() && !eq(text, codeForAutoRun());
    }

    public boolean isEditing() {
      return editedText() != null;
    }

    public boolean isClearForAutoRun() {
      return clearedForAutoRun != null;
    }

    public String editedText() {
      return eq(editingText, text) ? null : editingText;
    }

    public String codeForAutoRun() {
      return getVar(clearedForAutoRun());
    }

    public String safestCode() {
      return or(codeForAutoRun(), stableText());
    }

    public void clearForAutoRun() {
      if (!isSaved())
        return;
      String text = text();
      saveFieldToHistory("Auto-runnable code", text);
      clearedForAutoRun(new ClearForAutoRun(text));
    }

    public void forgetAutoRunCode() {
      if (!isClearForAutoRun())
        return;
      saveFieldToHistory("Auto-runnable code", null);
      clearedForAutoRun(null);
      compileResultForAutoRun = null;
    }

    public void forgetCompileResults() {
      compileResultForAutoRun = compileResultForSaved = null;
    }

    public G22Utils g22utils() {
      return assertNotNull("g22utils", main.g22utils(_concepts()));
    }

    public GazelleV_LeftArrowScriptParser makeParser() {
      return g22utils().leftArrowParser().sourceInfo(this);
    }

    public LASCompileResult newCompileResult() {
      return new LASCompileResult();
    }

    public LASCompileResult returnOrCompile(LASCompileResult lastCompileResult, String code) {
      if (g22utils().compileResultValid(lastCompileResult, code))
        return lastCompileResult;
      var cr = newCompileResult();
      cr.script(code);
      var parser = makeParser();
      cr.parser(parser);
      cr.compile();
      return cr;
    }

    transient public LASCompileResult compileResultForAutoRun;

    public LASCompileResult compileForAutoRun() {
      String code = codeForAutoRun();
      if (code == null)
        return null;
      var cr = returnOrCompile(compileResultForAutoRun, code);
      return compileResultForAutoRun = cr;
    }

    transient public LASCompileResult compileResultForSaved;

    public LASCompileResult compileSaved() {
      String code = stableText();
      if (code == null)
        return null;
      var cr = returnOrCompile(compileResultForSaved, code);
      return compileResultForSaved = cr;
    }

    transient public LASCompileResult compileResultForEditing;

    public LASCompileResult compileEditing() {
      String code = editingText();
      if (code == null)
        return null;
      var cr = returnOrCompile(compileResultForEditing, code);
      return compileResultForEditing = cr;
    }

    public LASCompileResult safestCompileResult() {
      {
        var __1 = compileForAutoRun();
        if (__1 != null)
          return __1;
      }
      return compileSaved();
    }

    public LASCompileResult latestCompileResult() {
      {
        var __2 = compileEditing();
        if (__2 != null)
          return __2;
      }
      {
        var __3 = compileSaved();
        if (__3 != null)
          return __3;
      }
      return compileForAutoRun();
    }

    public LASCompileResult latestRunnableCompileResult() {
      var cr = compileEditing();
      if (cr != null && cr.runnable())
        return cr;
      cr = compileSaved();
      if (cr != null && cr.runnable())
        return cr;
      cr = compileForAutoRun();
      if (cr != null && cr.runnable())
        return cr;
      return null;
    }

    public Object evaluateWithoutTimeout() {
      var cr = safestCompileResult();
      if (cr == null)
        throw fail("Not saved: " + this);
      AutoCloseable __4 = g22utils().enter();
      try {
        return cr.parsedScriptMandatory().get();
      } finally {
        _close(__4);
      }
    }

    public Object evaluateAutoRunWithoutTimeout() {
      var cr = compileForAutoRun();
      if (cr == null)
        throw fail("Not cleared for auto-run: " + this);
      AutoCloseable __5 = g22utils().enter();
      try {
        return cr.parsedScriptMandatory().get();
      } finally {
        _close(__5);
      }
    }

    public String renderRunOnProjectOpenStatus() {
      return runOnProjectOpen ? "Yes" + appendBracketed(appendPrefixIfNempty("prio ", runOrder)) : null;
    }

    public Set<String> allTexts() {
      return asSet(llNonNulls(text(), editedText(), codeForAutoRun()));
    }
  }

  static public class WrappedCloseable<A extends AutoCloseable> implements IAutoCloseableF0<A> {

    public WrappedCloseable() {
    }

    public A closeable;

    public WrappedCloseable(A closeable) {
      this.closeable = closeable;
    }

    public A get() {
      return closeable;
    }

    public void close() {
      try {
        beforeClose();
        main.close(closeable);
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void beforeClose() {
    }
  }

  static public class AppendableChain<A> extends MinimalChain<A> implements Iterable<A>, IntSize {

    public MinimalChain<A> last;

    final public int getSize() {
      return size();
    }

    public int size() {
      return size;
    }

    public int size;

    public AppendableChain() {
    }

    public AppendableChain(A element) {
      this.element = element;
      size = 1;
      last = this;
    }

    public AppendableChain(A element, AppendableChain<A> next) {
      this.next = next;
      this.element = element;
      if (next == null)
        return;
      MinimalChain<A> b = new MinimalChain();
      b.element = next.element;
      b.next = next.next;
      this.next = b;
      last = next.last;
      size = next.size + 1;
    }

    public String toString() {
      return str(toList());
    }

    public boolean add(A a) {
      MinimalChain newLast = new MinimalChain(a);
      last.next = newLast;
      last = newLast;
      ++size;
      return true;
    }

    public AppendableChain<A> popFirst() {
      if (next == null)
        return null;
      element = next.element;
      if (last == next)
        last = this;
      next = next.next;
      --size;
      return this;
    }

    public ArrayList<A> toList() {
      ArrayList<A> l = emptyList(size);
      MinimalChain<A> c = this;
      while (c != null) {
        l.add(c.element);
        c = c.next;
      }
      return l;
    }

    public class ACIt extends IterableIterator<A> {

      public MinimalChain<A> c = AppendableChain.this;

      public boolean hasNext() {
        return c != null;
      }

      public A next() {
        var a = c.element;
        c = c.next;
        return a;
      }
    }

    public IterableIterator<A> iterator() {
      return new ACIt();
    }
  }

  static public class MultiSleeper extends RestartableCountdown implements ISleeper_v2 {

    public MultiSetMap<Timestamp, Runnable> entries = treeMultiSetMap();

    public void check() {
      var time = nextWakeUpTime();
      var action = firstValue(entries);
      setTargetTime(time == null ? 0 : time.sysTime(), new Runnable() {

        public void run() {
          try {
            Set<Runnable> toCall;
            synchronized (MultiSleeper.this) {
              toCall = entries.get(time);
              entries.remove(time);
              check();
            }
            pcallFAll(toCall);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "Set<Runnable> toCall;\r\n      synchronized(MultiSleeper.this) {\r\n        toCal...";
        }
      });
    }

    synchronized public void removeEntry(Timestamp targetTime, Runnable action) {
      entries.remove(targetTime, action);
    }

    synchronized public Timestamp nextWakeUpTime() {
      return firstKey(entries);
    }

    public synchronized Sleeping doLater(Timestamp targetTime, Runnable r) {
      if (r == null || targetTime == null)
        return null;
      targetTime = max(targetTime, tsNow());
      entries.put(targetTime, r);
      check();
      return new Sleeping(targetTime, r) {

        public void close() {
          try {
            removeEntry(targetTime, r);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }
      };
    }
  }

  static public class ImageSurface_PositionToolTip extends ImageSurfaceMouseHandler {

    public ImageSurface_PositionToolTip(ImageSurface is) {
      if (containsInstance(is.tools, ImageSurface_PositionToolTip.class))
        return;
      register(is);
    }

    final public void mouseDragged(MouseEvent e) {
      mouseMoved(e);
    }

    public void mouseMoved(MouseEvent e) {
      try {
        Pt p = getPt(e);
        String s = str(p);
        var img = is.getImage();
        if (img != null && p.x >= 0 && p.y >= 0 && p.x < img.getWidth() && p.y < img.getHeight()) {
          IToolTipMaker toolTipMaker = lookupDynamicInterface_v2(IToolTipMaker.class, img);
          if (toolTipMaker != null)
            s = toolTipMaker.getToolTip(p);
          else
            s += " - " + intToHex_fullLength(img.getRGB(p.x, p.y));
        }
        setToolTip(is, s);
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }
  }

  static public class ListAndIndex<A> implements IFieldsToList {

    static final public String _fieldOrder = "list idx";

    public List<A> list;

    public int idx;

    public ListAndIndex() {
    }

    public ListAndIndex(List<A> list, int idx) {
      this.idx = idx;
      this.list = list;
    }

    public boolean equals(Object o) {
      if (!(o instanceof ListAndIndex))
        return false;
      ListAndIndex __1 = (ListAndIndex) o;
      return eq(list, __1.list) && idx == __1.idx;
    }

    public int hashCode() {
      int h = 276903961;
      h = boostHashCombine(h, _hashCode(list));
      h = boostHashCombine(h, _hashCode(idx));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { list, idx };
    }

    public boolean atEnd() {
      return idx >= l(list);
    }

    public A get() {
      return _get(list, idx);
    }

    public int size() {
      return l(list);
    }

    public String toString() {
      return subList(list, 0, idx) + ", then " + subList(list, idx);
    }

    public ListAndIndex<A> plus(int ofs) {
      return new ListAndIndex(list, idx + ofs);
    }

    public ListAndIndex<A> minus(int ofs) {
      return new ListAndIndex(list, idx - ofs);
    }

    public List<A> list() {
      return list;
    }

    final public int idx() {
      return index();
    }

    public int index() {
      return idx;
    }

    public ListAndIndex<A> mapIdx(IF1_IntToInt f) {
      return new ListAndIndex<A>(list, f.get(idx));
    }
  }

  public interface TransientObject {
  }

  static public class VarMatches extends WrappedMap<String, String> {

    public VarMatches() {
      super(new LinkedHashMap());
    }

    public VarMatches(Map<String, String> map) {
      this();
      main.putAll(this, map);
    }
  }

  static public class MethodMaker {

    public ClassGen cg;

    public MethodGen mg;

    public InstructionList il = new InstructionList();

    public ConstantPoolGen cp;

    public InstructionFactory factory;

    public int frameSize;

    public org.apache.bcel.generic.Type[] argTypes;

    public int[] argStackIndex;

    final public MethodMaker setVerboseAdd(boolean verboseAdd) {
      return verboseAdd(verboseAdd);
    }

    public MethodMaker verboseAdd(boolean verboseAdd) {
      this.verboseAdd = verboseAdd;
      return this;
    }

    final public boolean getVerboseAdd() {
      return verboseAdd();
    }

    public boolean verboseAdd() {
      return verboseAdd;
    }

    public boolean verboseAdd = false;

    public boolean classConstantWorkaround = false;

    public MethodMaker(ClassMaker classMaker, Class returnType, String methodName, Class... argumentTypes) {
      this(classMaker.cg, returnType, methodName, argumentTypes);
    }

    public MethodMaker(ClassGen cg, Class returnType, String methodName, Class... argumentTypes) {
      this(cg, Const.ACC_PUBLIC, returnType, methodName, argumentTypes);
    }

    public MethodMaker(ClassGen cg, short modifiers, Object returnType, String methodName, Object... argumentTypes) {
      this.cg = cg;
      cp = cg.getConstantPool();
      factory = new InstructionFactory(cg);
      argTypes = wrapTypes(argumentTypes);
      mg = new MethodGen(modifiers, wrapType(returnType), argTypes, null, methodName, cg.getClassName(), il, cp);
      layoutStack();
    }

    public MethodMaker(ClassGen cg, short modifiers, Class returnType, String methodName, Class... argumentTypes) {
      this.cg = cg;
      cp = cg.getConstantPool();
      factory = new InstructionFactory(cg);
      argTypes = wrapTypes(argumentTypes);
      mg = new MethodGen(modifiers, wrapType(returnType), argTypes, null, methodName, cg.getClassName(), il, cp);
      layoutStack();
    }

    public void layoutStack() {
      frameSize = 1;
      argStackIndex = new int[l(argTypes)];
      for (int i = 0; i < l(argTypes); i++) {
        argStackIndex[i] = frameSize;
        frameSize += eqOneOf(argTypes[i], org.apache.bcel.generic.Type.LONG, org.apache.bcel.generic.Type.DOUBLE) ? 2 : 1;
      }
    }

    static public org.apache.bcel.generic.Type[] wrapTypes(Object[] classes) {
      org.apache.bcel.generic.Type[] types = new org.apache.bcel.generic.Type[l(classes)];
      for (int i = 0; i < l(classes); i++) types[i] = wrapType(classes[i]);
      return types;
    }

    static public org.apache.bcel.generic.Type wrapType(Object o) {
      if (o instanceof Class)
        return classToBCELType((Class) o);
      if (o instanceof String) {
        Class c = parsePrimitiveType((String) o);
        if (c != null)
          return classToBCELType(c);
        return new ObjectType((String) o);
      }
      return null;
    }

    public int newLocalVar() {
      return frameSize++;
    }

    public MethodMaker newObject(Class c, Class... argTypes) {
      il.append(factory.createNew(className(c)));
      il.append(InstructionConst.DUP);
      invokeConstructor(c, argTypes);
      return this;
    }

    public MethodMaker invokeConstructor(Class c, Class... argTypes) {
      Constructor ctor = findConstructor_precise_onTypes(c, argTypes);
      il.append(factory.createInvoke(className(c), "<init>", org.apache.bcel.generic.Type.VOID, wrapTypes(ctor.getParameterTypes()), Const.INVOKESPECIAL));
      return this;
    }

    public MethodMaker dup() {
      il.append(InstructionConst.DUP);
      return this;
    }

    public MethodMaker astore(int var) {
      il.append(new ASTORE(var));
      return this;
    }

    public int argIdx(int iArg) {
      return argStackIndex[iArg];
    }

    public MethodMaker aloadArgWithAutoboxing(int iArg) {
      var type = argTypes[iArg];
      int stackIdx = argStackIndex[iArg];
      if (type == org.apache.bcel.generic.Type.BYTE) {
        il.append(new ILOAD(stackIdx));
        invokeStatic(Byte.class, Byte.class, "valueOf", byte.class);
        return this;
      }
      if (type == org.apache.bcel.generic.Type.BOOLEAN) {
        il.append(new ILOAD(stackIdx));
        invokeStatic(Boolean.class, Boolean.class, "valueOf", boolean.class);
        return this;
      }
      if (type == org.apache.bcel.generic.Type.CHAR) {
        il.append(new ILOAD(stackIdx));
        invokeStatic(Character.class, Character.class, "valueOf", char.class);
        return this;
      }
      if (type == org.apache.bcel.generic.Type.SHORT) {
        il.append(new ILOAD(stackIdx));
        invokeStatic(Short.class, Short.class, "valueOf", short.class);
        return this;
      }
      if (type == org.apache.bcel.generic.Type.INT) {
        il.append(new ILOAD(stackIdx));
        invokeStatic(Integer.class, Integer.class, "valueOf", int.class);
        return this;
      }
      if (type == org.apache.bcel.generic.Type.LONG) {
        il.append(new LLOAD(stackIdx));
        invokeStatic(Long.class, Long.class, "valueOf", long.class);
        return this;
      }
      if (type == org.apache.bcel.generic.Type.FLOAT) {
        il.append(new LLOAD(stackIdx));
        invokeStatic(Float.class, Float.class, "valueOf", float.class);
        return this;
      }
      if (type == org.apache.bcel.generic.Type.DOUBLE) {
        il.append(new DLOAD(stackIdx));
        invokeStatic(Double.class, Double.class, "valueOf", double.class);
        return this;
      }
      return aload(stackIdx);
    }

    public MethodMaker aload(int stackIdx) {
      il.append(new ALOAD(stackIdx));
      return this;
    }

    public MethodMaker stringConstant(String s) {
      il.append(new PUSH(cp, s));
      return this;
    }

    public MethodMaker classConstant(Class c) {
      if (classConstantWorkaround) {
        stringConstant(c.getName());
        invokeStatic(Class.class, Class.class, "forName", String.class);
      } else {
        var ldc = new LDC(classRef(c));
        assertEquals("classConstant", ldc.getValue(cp), wrapType(c));
        il.append(ldc);
      }
      return this;
    }

    final public MethodMaker intConst(int i) {
      return intConstant(i);
    }

    public MethodMaker intConstant(int i) {
      if (i >= -1 && i <= 5)
        return add(new ICONST(i));
      if (i == (byte) i)
        return add(new BIPUSH((byte) i));
      if (i == (short) i)
        return add(new SIPUSH((short) i));
      return add(new LDC(cp.addInteger(i)));
    }

    final public MethodMaker doubleConst(double d) {
      return doubleConstant(d);
    }

    public MethodMaker doubleConstant(double d) {
      return add(new LDC2_W(cp.addDouble(d)));
    }

    public MethodMaker boolConstant(boolean b) {
      return intConstant(b ? 1 : 0);
    }

    public MethodMaker invokeVirtual(Class c, Class returnType, String methodName, Class... argTypes) {
      Method m = findNonStaticMethod_precise_onTypes(c, methodName, argTypes);
      if (m == null)
        throw fail("Method not found: " + className(c) + "." + formatFunctionCall(methodName, argTypes) + " returning " + className(returnType));
      il.append(factory.createInvoke(className(c), methodName, wrapType(m.getReturnType()), wrapTypes(m.getParameterTypes()), Const.INVOKEVIRTUAL));
      return this;
    }

    public MethodMaker invokeInterface(Class c, Class returnType, String methodName, Class... argTypes) {
      Method m = mostApplicableMethod_onTypes(filter(nonDefaultInterfaceMethods(c), _m -> _m.getName().equals(methodName)), argTypes);
      if (m == null)
        throw fail("Method not found: " + className(c) + "." + formatFunctionCall(methodName, argTypes) + " returning " + className(returnType));
      il.append(factory.createInvoke(className(c), methodName, wrapType(m.getReturnType()), wrapTypes(m.getParameterTypes()), Const.INVOKEINTERFACE));
      return this;
    }

    public MethodMaker invokeStatic(Class c, Class returnType, String methodName, Class... argTypes) {
      Method m = findMethod_precise_onTypes(c, methodName, argTypes);
      if (m == null)
        throw fail("Method not found: " + className(c) + "." + formatFunctionCall(methodName, argTypes) + " returning " + className(returnType));
      il.append(factory.createInvoke(className(c), methodName, wrapType(m.getReturnType()), wrapTypes(m.getParameterTypes()), Const.INVOKESTATIC));
      return this;
    }

    public MethodMaker areturn() {
      il.append(InstructionConst.ARETURN);
      return this;
    }

    public MethodMaker _return() {
      il.append(InstructionConst.RETURN);
      return this;
    }

    public MethodMaker returnPrimitive(Class type) {
      il.append(primitiveReturnInstruction(type));
      return this;
    }

    public ReturnInstruction primitiveReturnInstruction(Class type) {
      assertTrue(isPrimitiveType(type));
      if (type == long.class)
        return InstructionConst.LRETURN;
      if (type == float.class)
        return InstructionConst.FRETURN;
      if (type == double.class)
        return InstructionConst.DRETURN;
      return InstructionConst.IRETURN;
    }

    public MethodMaker add(Instruction i) {
      il.append(i);
      if (verboseAdd)
        print("> " + i);
      return this;
    }

    public <A extends Instruction> A addAndReturn(A i) {
      add(i);
      return i;
    }

    public MethodMaker add(BranchInstruction i) {
      il.append(i);
      if (verboseAdd)
        print("> " + i);
      return this;
    }

    public <A extends BranchInstruction> A addAndReturn(A i) {
      add(i);
      return i;
    }

    public void done() {
      mg.stripAttributes(true);
      mg.setMaxStack();
      mg.setMaxLocals();
      cg.addMethod(mg.getMethod());
    }

    public JVMStackCellType convertToObject(JVMStackCellType stackTop) {
      if (stackTop == JVMStackCellType.objValue) {
      } else if (stackTop == JVMStackCellType.intValue)
        invokeStatic(Integer.class, Integer.class, "valueOf", int.class);
      else if (stackTop == JVMStackCellType.doubleValue)
        invokeStatic(Double.class, Double.class, "valueOf", double.class);
      else if (stackTop == JVMStackCellType.none)
        add(new ACONST_NULL());
      else
        throw fail("TODO: add conversion for stack cell type: " + stackTop);
      return JVMStackCellType.objValue;
    }

    public void discardStackTop(JVMStackCellType stackTop) {
      if (stackTop == JVMStackCellType.none) {
      } else if (stackTop == JVMStackCellType.doubleValue || stackTop == JVMStackCellType.longValue)
        add(new POP2());
      else
        add(new POP());
    }

    public int classRef(Object c) {
      return cp.addClass((ObjectType) wrapType(assertNotNull(c)));
    }

    public MethodMaker checkCast(Object c) {
      return add(new CHECKCAST(classRef(c)));
    }

    public MethodMaker loadNull() {
      return add(new ACONST_NULL());
    }

    public InstructionHandle here() {
      return il.append(new NOP());
    }

    public GOTO forwardGoto() {
      return addAndReturn(new GOTO(null));
    }

    public void returnWithType(JVMStackCellType stackTop) {
      if (stackTop == JVMStackCellType.objValue)
        areturn();
      else if (stackTop == JVMStackCellType.intValue)
        add(new IRETURN());
      else if (stackTop == JVMStackCellType.doubleValue)
        add(new DRETURN());
      else if (stackTop == JVMStackCellType.none)
        _return();
      else
        throw fail("TODO: add return for stack cell type: " + stackTop);
    }

    public void getStaticField(String className, String fieldName, Class type) {
      il.append(factory.createGetStatic(className, fieldName, wrapType(type)));
    }
  }

  static public class ScoredSearcher_stable<A> {

    public int maxResults = 1000;

    public boolean returnAll = false;

    public List<String> preparedTerms;

    public MultiMap<Double, A> byScore = descTreeMultiMap();

    public ScoredSearcher_stable() {
    }

    public ScoredSearcher_stable(String query, Object... __) {
      maxResults = optPar("maxResults", __, maxResults);
      setQuery(query);
    }

    public void setQuery(String query) {
      preparedTerms = scoredSearch_prepare(query);
    }

    public void put(A object, String s) {
      putScored(object, score(s));
    }

    public void putScored(A object, double score) {
      if (score != 0)
        byScore.add(score, object);
    }

    public void put(A object, Collection<String> fields) {
      add(object, scoreFields(fields));
    }

    public void putWithWeights(A object, Collection<Pair<String, Double>> fields) {
      scoredSearch_scoreWeighted2(fields, preparedTerms);
    }

    public int scoreFields(Collection<String> fields) {
      return scoredSearch_score(fields, preparedTerms);
    }

    public int score(String text) {
      return returnAll ? 1 : scoredSearch_score(text, preparedTerms);
    }

    public void add(A object) {
      put(object, str(object));
    }

    public void add(A object, Collection<String> fields) {
      put(object, fields);
    }

    public void put(A object, double score) {
      add(object, score);
    }

    public void add(A object, double score) {
      putScored(object, score);
    }

    public List<A> get() {
      return pairsB(takeFirst(maxResults, multiMapPairIterator(byScore)));
    }

    public List<A> get_transformListWithinScore(IF1<List<A>, List<A>> f) {
      return pairsB(takeFirst(maxResults, multiMapPairIterator_transformValueList(byScore, f)));
    }

    public List<Scored<A>> withScores() {
      return map(takeFirst(maxResults, multiMapPairIterator(byScore)), p -> new Scored(p.b, p.a));
    }

    public A best() {
      return firstValue(byScore);
    }
  }

  static public class G22Variable extends ConceptWithChangeListeners implements IPersistenceInfo, AutoCloseable {

    static final public String _fieldOrder = "name value persistent autoClose big loadLock";

    public transient FieldVar<String> varName_cache;

    public FieldVar<String> varName() {
      if (varName_cache == null)
        varName_cache = varName_load();
      return varName_cache;
    }

    public FieldVar<String> varName_load() {
      return new FieldVar<String>(this, "name", () -> name(), name -> name(name));
    }

    final public G22Variable setName(String name) {
      return name(name);
    }

    public G22Variable name(String name) {
      if (!eq(this.name, name)) {
        this.name = name;
        change();
      }
      return this;
    }

    final public String getName() {
      return name();
    }

    public String name() {
      return name;
    }

    public String name;

    volatile public Object value;

    public transient FieldVar<Boolean> varPersistent_cache;

    public FieldVar<Boolean> varPersistent() {
      if (varPersistent_cache == null)
        varPersistent_cache = varPersistent_load();
      return varPersistent_cache;
    }

    public FieldVar<Boolean> varPersistent_load() {
      return new FieldVar<Boolean>(this, "persistent", () -> persistent(), persistent -> persistent(persistent));
    }

    final public G22Variable setPersistent(boolean persistent) {
      return persistent(persistent);
    }

    public G22Variable persistent(boolean persistent) {
      if (!eq(this.persistent, persistent)) {
        this.persistent = persistent;
        change();
      }
      return this;
    }

    final public boolean getPersistent() {
      return persistent();
    }

    public boolean persistent() {
      return persistent;
    }

    public boolean persistent = false;

    final public G22Variable setAutoClose(boolean autoClose) {
      return autoClose(autoClose);
    }

    public G22Variable autoClose(boolean autoClose) {
      this.autoClose = autoClose;
      return this;
    }

    final public boolean getAutoClose() {
      return autoClose();
    }

    public boolean autoClose() {
      return autoClose;
    }

    public boolean autoClose = false;

    public transient FieldVar<Boolean> varBig_cache;

    public FieldVar<Boolean> varBig() {
      if (varBig_cache == null)
        varBig_cache = varBig_load();
      return varBig_cache;
    }

    public FieldVar<Boolean> varBig_load() {
      return new FieldVar<Boolean>(this, "big", () -> big(), big -> big(big));
    }

    final public G22Variable setBig(boolean big) {
      return big(big);
    }

    public G22Variable big(boolean big) {
      if (!eq(this.big, big)) {
        this.big = big;
        change();
      }
      return this;
    }

    final public boolean getBig() {
      return big();
    }

    public boolean big() {
      return big;
    }

    public boolean big = false;

    transient public Lock loadLock = lock();

    public Map _persistenceInfo() {
      return litmap("value", persistent && !big);
    }

    public transient FieldVar<Object> varValue_cache;

    public FieldVar<Object> varValue() {
      if (varValue_cache == null)
        varValue_cache = varValue_load();
      return varValue_cache;
    }

    public FieldVar<Object> varValue_load() {
      return new FieldVar<Object>(this, "value", () -> value(), value -> value(value));
    }

    public void setValueIfNull(Object defaultValue) {
      if (defaultValue != null && value == null)
        value(defaultValue);
    }

    public Object cachedValue() {
      return value;
    }

    final public Object value() {
      return get();
    }

    public Object get() {
      if (value != null)
        return value;
      if (big)
        return getBigValue();
      return value;
    }

    public Object getOnce() {
      if (value != null)
        return value;
      if (big)
        return loadBigValueImpl();
      return value;
    }

    public G22Utils g22utils() {
      return main.g22utils(this);
    }

    public File bigFile() {
      return newFile(assertNotNull(g22utils().projectDir()), id + "-" + sanitizeFileName(name) + ".structgz");
    }

    public Object getBigValue() {
      Object o;
      {
        Lock __0 = loadLock;
        lock(__0);
        try {
          o = loadBigValueImpl();
          setValueField(o);
        } finally {
          unlock(__0);
        }
      }
      g22utils().bigVariableLoaded(this);
      return o;
    }

    public Object loadBigValueImpl() {
      return unstructureGZFile(bigFile(), g22utils().classFinder());
    }

    public void setBigValue(Object value) {
      if (value == null) {
        if (hasBigValue()) {
          deleteBigValue();
          change();
        }
      } else {
        unload();
        File f = bigFile();
        saveGZStructureToFile(f, value);
        change();
      }
    }

    public void deleteBigValue() {
      deleteFile(bigFile());
    }

    public boolean hasBigValue() {
      return fileExists(bigFile());
    }

    public void makeBig() {
      if (big)
        return;
      setBigValue(value);
      big(true);
      persistent(true);
    }

    public void makeSmall() {
      if (!big)
        return;
      get();
      big(false);
      deleteBigValue();
    }

    final public G22Variable setValue(Object o) {
      return value(o);
    }

    final public G22Variable set(Object o) {
      return value(o);
    }

    public G22Variable value(Object o) {
      if (big)
        setBigValue(o);
      else if (!eq(value, o)) {
        setValueField(o);
        change();
      }
      return this;
    }

    public G22Variable set_force(Object o) {
      if (big)
        setBigValue(o);
      else {
        setValueField(o);
        change();
      }
      return this;
    }

    final public boolean has() {
      return notNull();
    }

    public boolean notNull() {
      return big ? hasBigValue() : value != null;
    }

    public void unload() {
      if (big)
        setValueField(null);
    }

    public Object setValueField(Object o) {
      if (autoClose && o != value) {
        cleanUp(value);
        value = null;
      }
      return value = o;
    }

    public void close() {
      try {
        if (autoClose) {
          cleanUp(value);
          value = null;
        }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void delete() {
      close();
      super.delete();
    }

    public void changeInsideOfValue() {
      if (big)
        value(value);
      change();
    }

    public void clear() {
      set(null);
    }
  }

  static public class EphemeralObjectIDs {

    public long idCounter;

    public WeakValueMap<Long, Object> idToObject = new WeakValueMap();

    public Map<Object, Long> objectToID = weakIdentityMap();

    public EphemeralObjectIDs runnablesReferenceQueue(RunnablesReferenceQueue queue) {
      idToObject.queue(queue);
      return this;
    }

    synchronized public long remember(Object o) {
      if (o == null)
        return 0;
      {
        var __1 = objectToID.get(o);
        if (__1 != null)
          return __1;
      }
      long id = ++idCounter;
      idToObject.put(id, o);
      objectToID.put(o, id);
      return id;
    }

    synchronized public Object get(long id) {
      if (id == 0)
        return null;
      return idToObject.get(id);
    }

    synchronized public boolean wasGarbageCollected(long id) {
      return id > 0 && id <= idCounter && get(id) == null;
    }
  }

  static public class FunctionTimings<A> {

    public Map<A, Average> data = syncMap();

    final public void timeCtex(A function, RunnableWithExceptions r) {
      doCtex(function, r);
    }

    public void doCtex(A function, RunnableWithExceptions r) {
      try {
        if (r == null)
          return;
        long time = nanoTime();
        try {
          r.run();
        } finally {
          time = nanoTime() - time;
          saveTiming(function, time);
        }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public <B> B get(A function, IF0<B> f) {
      if (f == null)
        return null;
      Var<B> var = new Var();
      time(function, () -> var.set(f.get()));
      return var.get();
    }

    final public void time(A function, Runnable r) {
      dO(function, r);
    }

    public void dO(A function, Runnable r) {
      if (r == null)
        return;
      long time = nanoTime();
      try {
        r.run();
      } finally {
        time = nanoTime() - time;
        saveTiming(function, time);
      }
    }

    public void saveTiming(A function, long time) {
      Average avg = syncMapGetOrCreate(data, function, () -> new Average());
      avg.add(time);
    }

    public Map<A, Average> get() {
      return cloneMap(data);
    }

    final public void clear() {
      reset();
    }

    public void reset() {
      data.clear();
    }

    final public String toString() {
      return render();
    }

    public String render() {
      return lines(renderedEntries());
    }

    public List<String> renderedEntries() {
      return ciSorted(map(get(), (f, avg) -> functionToString(f) + ": " + n2(iround(nsToMicroseconds(avg.get()))) + " " + microSymbol() + "s (" + n2(iround(avg.n())) + ")"));
    }

    public String toStringSingleLine() {
      return joinWithComma(renderedEntries());
    }

    public String functionToString(A f) {
      return firstToUpper(str(f));
    }
  }

  static public class G22Analyzer extends G22LeftArrowScript {

    public Ref<G22GalleryImage> exampleImage = new Ref();

    @Override
    public GazelleV_LeftArrowScriptParser makeParser() {
      var parser = super.makeParser();
      parser.addVar("image", BufferedImage.class, false);
      parser.addVar("imageStream", SourceTriggeredStream.class, false);
      parser.addVar("context", G22AnalysisContext.class, false);
      return parser;
    }

    public class CompiledAnalyzer extends LASCompileResult {

      final public CompiledAnalyzer setTimeout(double timeout) {
        return timeout(timeout);
      }

      public CompiledAnalyzer timeout(double timeout) {
        this.timeout = timeout;
        return this;
      }

      final public double getTimeout() {
        return timeout();
      }

      public double timeout() {
        return timeout;
      }

      public double timeout = 10;

      public G22AnalysisContext createAnalysisContext(BufferedImage image) {
        return new G22AnalysisContext(g22utils(), image);
      }

      public Object get_impl(G22AnalysisContext context) {
        FlexibleVarContext ctx = new FlexibleVarContext();
        ctx.set("image", context.image);
        ctx.set("imageStream", context.imageStream);
        ctx.set("context", context);
        return parsedScript.get(ctx);
      }

      public Object get_impl(BufferedImage image) {
        return get_impl(createAnalysisContext(image));
      }

      public Object get(BufferedImage image) {
        return get(createAnalysisContext(image));
      }

      public Object get(G22AnalysisContext context) {
        if (context.analyzerResults.containsKey(analyzer())) {
          Object value = context.analyzerResults.get(analyzer());
          if (value == G22AnalysisContext.calculating)
            throw fail("Recursive call to analyzer " + this);
          return ((OKOrError) value).getMandatory();
        }
        context.analyzerResults.put(analyzer(), G22AnalysisContext.calculating);
        var result = okOrError(() -> {
          if (parsedScript == null)
            rethrow(compileError);
          if (context.image == null && context.imageStream == null)
            throw fail("Need image or imageStream");
          return g22utils().evalRegisteredCode(timeout, str(G22Analyzer.this), () -> get_impl(context));
        });
        context.analyzerResults.put(analyzer(), result);
        return result.getMandatory();
      }
    }

    public G22Analyzer analyzer() {
      return this;
    }

    public LASCompileResult newCompileResult() {
      return new CompiledAnalyzer();
    }

    public CompiledAnalyzer compileForAutoRun() {
      return (CompiledAnalyzer) super.compileForAutoRun();
    }
  }

  static public class LASToByteCode implements IFieldsToList {

    public MethodMaker m;

    public LASToByteCode() {
    }

    public LASToByteCode(MethodMaker m) {
      this.m = m;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + m + ")";
    }

    public Object[] _fieldsToList() {
      return new Object[] { m };
    }

    public boolean callPing = true;

    final public LASToByteCode setIVarContext(int iVarContext) {
      return iVarContext(iVarContext);
    }

    public LASToByteCode iVarContext(int iVarContext) {
      this.iVarContext = iVarContext;
      return this;
    }

    final public int getIVarContext() {
      return iVarContext();
    }

    public int iVarContext() {
      return iVarContext;
    }

    public int iVarContext = -1;

    public GazelleV_LeftArrowScript.Script returnableScript;

    final public LASToByteCode setPostConversion(IF1<JVMStackCellType, JVMStackCellType> postConversion) {
      return postConversion(postConversion);
    }

    public LASToByteCode postConversion(IF1<JVMStackCellType, JVMStackCellType> postConversion) {
      this.postConversion = postConversion;
      return this;
    }

    final public IF1<JVMStackCellType, JVMStackCellType> getPostConversion() {
      return postConversion();
    }

    public IF1<JVMStackCellType, JVMStackCellType> postConversion() {
      return postConversion;
    }

    public IF1<JVMStackCellType, JVMStackCellType> postConversion;

    public JVMStackCellType compileScript(GazelleV_LeftArrowScript.Script script) {
      returnableScript = script;
      var stackTop = compile(script);
      if (postConversion != null)
        stackTop = postConversion.get(stackTop);
      return stackTop;
    }

    public void compileToObject(GazelleV_LeftArrowScript.Evaluable code) {
      m.convertToObject(compile(code));
    }

    public JVMStackCellType compile(GazelleV_LeftArrowScript.Evaluable code) {
      if (code instanceof GazelleV_LeftArrowScript.Const) {
        Object o = ((GazelleV_LeftArrowScript.Const) code).value;
        if (o == null) {
          m.add(new ACONST_NULL());
          return JVMStackCellType.objValue;
        } else if (o instanceof String) {
          m.stringConstant((String) o);
          return JVMStackCellType.objValue;
        } else if (o instanceof Integer) {
          m.intConstant((Integer) o);
          return JVMStackCellType.intValue;
        } else if (o instanceof Double) {
          m.doubleConstant((Double) o);
          return JVMStackCellType.doubleValue;
        } else if (o instanceof Class) {
          m.classConstant((Class) o);
          return JVMStackCellType.objValue;
        } else if (o instanceof Boolean) {
          m.boolConstant((Boolean) o);
          return JVMStackCellType.intValue;
        } else
          throw fail("Can't compile const value: " + toStringWithClass(o));
      } else if (code instanceof GazelleV_LeftArrowScript.Script) {
        var stackTop = JVMStackCellType.none;
        for (var step : ((GazelleV_LeftArrowScript.Script) code).steps) {
          if (stackTop != JVMStackCellType.none)
            m.add(new POP());
          stackTop = compile(step);
        }
        return stackTop;
      } else if (code instanceof GazelleV_LeftArrowScript.CallMethod) {
        compileToObject(((GazelleV_LeftArrowScript.CallMethod) code).target);
        m.stringConstant(((GazelleV_LeftArrowScript.CallMethod) code).methodName);
        argumentsAsArray(((GazelleV_LeftArrowScript.CallMethod) code).args);
        m.invokeStatic(main.class, Object.class, "call", Object.class, String.class, Object[].class);
        return JVMStackCellType.objValue;
      } else if (code instanceof GazelleV_LeftArrowScript.CallMethodOrGetField) {
        compileToObject(((GazelleV_LeftArrowScript.CallMethodOrGetField) code).target);
        m.stringConstant(((GazelleV_LeftArrowScript.CallMethodOrGetField) code).name);
        m.invokeStatic(main.class, Object.class, "preciseGetOrCallMethod", Object.class, String.class);
        return JVMStackCellType.objValue;
      } else if (code instanceof GazelleV_LeftArrowScript.SetField) {
        compileToObject(((GazelleV_LeftArrowScript.SetField) code).target);
        m.stringConstant(((GazelleV_LeftArrowScript.SetField) code).name);
        compileToObject(((GazelleV_LeftArrowScript.SetField) code).expr);
        m.invokeStatic(main.class, Object.class, "set", Object.class, String.class, Object.class);
        return JVMStackCellType.none;
      } else if (code instanceof GazelleV_LeftArrowScript.NewObject) {
        m.classConstant(((GazelleV_LeftArrowScript.NewObject) code).c);
        argumentsAsArray(((GazelleV_LeftArrowScript.NewObject) code).args);
        m.invokeStatic(main.class, Object.class, "nuObject", Class.class, Object[].class);
        return JVMStackCellType.objValue;
      } else if (code instanceof GazelleV_LeftArrowScript.Assignment) {
        compileToObject(((GazelleV_LeftArrowScript.Assignment) code).expression);
        m.astore(iTemp());
        loadVarContext();
        m.stringConstant(((GazelleV_LeftArrowScript.Assignment) code).var);
        m.aload(iTemp());
        m.invokeVirtual(VarContext.class, void.class, "set", String.class, Object.class);
        m.aload(iTemp());
        return JVMStackCellType.objValue;
      } else if (code instanceof GazelleV_LeftArrowScript.While) {
        var loopStart = m.il.append(new NOP());
        BranchInstruction branch1 = null;
        if (callPing) {
          m.invokeStatic(main.class, boolean.class, "ping");
          branch1 = new IFEQ(null);
          m.add(branch1);
        }
        compileToBool(((GazelleV_LeftArrowScript.While) code).condition);
        var branch2 = new IFEQ(null);
        m.add(branch2);
        m.discardStackTop(compile(((GazelleV_LeftArrowScript.While) code).body));
        m.add(new GOTO(loopStart));
        var loopEnd = m.il.append(new NOP());
        {
          if (branch1 != null)
            branch1.setTarget(loopEnd);
        }
        branch2.setTarget(loopEnd);
        return JVMStackCellType.none;
      } else if (code instanceof GazelleV_LeftArrowScript.IfThen) {
        compileToBool(((GazelleV_LeftArrowScript.IfThen) code).condition);
        var branch1 = new IFEQ(null);
        m.add(branch1);
        var stackTop = compile(((GazelleV_LeftArrowScript.IfThen) code).body);
        if (stackTop == JVMStackCellType.none) {
          branch1.setTarget(m.here());
          return stackTop;
        } else {
          m.convertToObject(stackTop);
          var jumpToEnd = m.forwardGoto();
          branch1.setTarget(m.here());
          m.loadNull();
          jumpToEnd.setTarget(m.here());
          return JVMStackCellType.objValue;
        }
      } else if (code instanceof GazelleV_LeftArrowScript.GetVar) {
        return compileGetVar((GazelleV_LeftArrowScript.GetVar) code);
      } else if (code instanceof GazelleV_LeftArrowScript.ReturnFromScript) {
        if (((GazelleV_LeftArrowScript.ReturnFromScript) code).script != returnableScript)
          throw fail("Can only return from current script");
        var stackTop = compile(((GazelleV_LeftArrowScript.ReturnFromScript) code).value);
        if (postConversion != null)
          stackTop = postConversion.get(stackTop);
        m.returnWithType(stackTop);
        return JVMStackCellType.none;
      }
      throw fail("Can't compile yet: " + className(code));
    }

    public void argumentsAsArray(GazelleV_LeftArrowScript.Evaluable[] args) {
      int n = l(args);
      m.intConst(n);
      m.add(new ANEWARRAY(m.classRef(Object.class)));
      for (int iArg = 0; iArg < n; iArg++) {
        m.dup();
        m.intConst(iArg);
        compileToObject(args[iArg]);
        m.add(new AASTORE());
      }
    }

    public void loadVarContext() {
      assertTrue("Need VarContext", iVarContext >= 0);
      m.aload(iVarContext);
    }

    public Integer iTemp_cache;

    public int iTemp() {
      if (iTemp_cache == null)
        iTemp_cache = iTemp_load();
      return iTemp_cache;
    }

    public int iTemp_load() {
      return m.newLocalVar();
    }

    public void compileToBool(GazelleV_LeftArrowScript.Evaluable condition) {
      var stackTop = compile(condition);
      if (stackTop == JVMStackCellType.objValue) {
        m.checkCast(Boolean.class);
        m.invokeVirtual(Boolean.class, boolean.class, "booleanValue");
      } else if (stackTop == JVMStackCellType.intValue) {
      } else
        throw fail("Can't convert to bool: " + stackTop);
    }

    public JVMStackCellType compileGetVar(GazelleV_LeftArrowScript.GetVar code) {
      loadVarContext();
      m.stringConstant(code.var);
      m.invokeVirtual(VarContext.class, Object.class, "get", String.class);
      return JVMStackCellType.objValue;
    }
  }

  static public class ConceptsComboBox<A extends Concept> extends JComboBox<A> {

    public Concepts concepts;

    public Class<A> conceptClass;

    public AWTOnConceptChanges updater;

    final public ConceptsComboBox<A> setAllowNull(boolean allowNull) {
      return allowNull(allowNull);
    }

    public ConceptsComboBox<A> allowNull(boolean allowNull) {
      this.allowNull = allowNull;
      return this;
    }

    final public boolean getAllowNull() {
      return allowNull();
    }

    public boolean allowNull() {
      return allowNull;
    }

    public boolean allowNull = false;

    final public ConceptsComboBox<A> setItemFilter(IF1<A, Boolean> itemFilter) {
      return itemFilter(itemFilter);
    }

    public ConceptsComboBox<A> itemFilter(IF1<A, Boolean> itemFilter) {
      this.itemFilter = itemFilter;
      return this;
    }

    final public IF1<A, Boolean> getItemFilter() {
      return itemFilter();
    }

    public IF1<A, Boolean> itemFilter() {
      return itemFilter;
    }

    public IF1<A, Boolean> itemFilter;

    public ConceptsComboBox(Concepts concepts, Class<A> conceptClass) {
      this.conceptClass = conceptClass;
      this.concepts = concepts;
      updateItems();
      updater = new AWTOnConceptChanges(concepts, this, () -> updateItems());
      updater.install();
    }

    public void updateItems() {
      var l = sortTheList(filterTheList(freshList()));
      if (allowNull)
        l = nullPlus(l);
      setComboBoxItems_notifyListeners(this, l);
    }

    transient public IF0<Collection<A>> freshList;

    public Collection<A> freshList() {
      return freshList != null ? freshList.get() : freshList_base();
    }

    final public Collection<A> freshList_fallback(IF0<Collection<A>> _f) {
      return _f != null ? _f.get() : freshList_base();
    }

    public Collection<A> freshList_base() {
      return main.list(concepts, conceptClass);
    }

    public List<A> filterTheList(Collection<A> l) {
      return itemFilter == null ? asList(l) : filter(itemFilter, l);
    }

    transient public IF1<List<A>, List<A>> sortTheList;

    public List<A> sortTheList(List<A> l) {
      return sortTheList != null ? sortTheList.get(l) : sortTheList_base(l);
    }

    final public List<A> sortTheList_fallback(IF1<List<A>, List<A>> _f, List<A> l) {
      return _f != null ? _f.get(l) : sortTheList_base(l);
    }

    public List<A> sortTheList_base(List<A> l) {
      return sortConceptsByID(l);
    }

    public ConceptsComboBox<A> sorter(IF1<List<A>, List<A>> sorter) {
      sortTheList = sorter;
      return this;
    }

    public A get() {
      return getSelectedItem_typed(this);
    }

    public void select(long conceptID) {
      main.setSelectedItem(this, getConcept(concepts, conceptClass, conceptID));
    }
  }

  public interface IResolvableClass extends Type {

    public String resolveToClassName();

    public Class resolveToClass();
  }

  static public class LineAndColumn implements IFieldsToList {

    static final public String _fieldOrder = "line col getLineText";

    public int line;

    public int col;

    public LineAndColumn() {
    }

    public LineAndColumn(int line, int col) {
      this.col = col;
      this.line = line;
    }

    public boolean equals(Object o) {
      if (!(o instanceof LineAndColumn))
        return false;
      LineAndColumn __1 = (LineAndColumn) o;
      return line == __1.line && col == __1.col;
    }

    public int hashCode() {
      int h = -1128952231;
      h = boostHashCombine(h, _hashCode(line));
      h = boostHashCombine(h, _hashCode(col));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { line, col };
    }

    transient public IF1<Integer, String> getLineText;

    public String getLineText(int line) {
      return getLineText != null ? getLineText.get(line) : getLineText_base(line);
    }

    final public String getLineText_fallback(IF1<Integer, String> _f, int line) {
      return _f != null ? _f.get(line) : getLineText_base(line);
    }

    public String getLineText_base(int line) {
      return null;
    }

    public String toString() {
      return "Line " + n2(line) + ", col " + n2(col);
    }
  }

  static public interface MakesBufferedImage extends WidthAndHeight {

    public BufferedImage getBufferedImage();

    public default void drawAt(Graphics2D g, int x, int y) {
      g.drawImage(getBufferedImage(), x, y, null);
    }

    default public int getWidth() {
      return getBufferedImage().getWidth();
    }

    default public int getHeight() {
      return getBufferedImage().getHeight();
    }
  }

  static public class GazAICredentials {

    final public GazAICredentials setUser(String user) {
      return user(user);
    }

    public GazAICredentials user(String user) {
      this.user = user;
      return this;
    }

    final public String getUser() {
      return user();
    }

    public String user() {
      return user;
    }

    public String user;

    final public GazAICredentials setPassword(String password) {
      return password(password);
    }

    public GazAICredentials password(String password) {
      this.password = password;
      return this;
    }

    final public String getPassword() {
      return password();
    }

    public String password() {
      return password;
    }

    public String password;

    public String toString() {
      return joinNempties(" with ", shortClassName(this), nempty(user) ? "user " + user : null, nempty(password) ? "password" : null);
    }

    static public GazAICredentials fromFile(File f) {
      var credMap = parseColonPropertyCIMap(loadTextFile(f));
      var cred = new GazAICredentials();
      cred.user(credMap.get("user"));
      cred.password(credMap.get("password"));
      return cred;
    }

    public void save(File f) {
      saveTextFile(f, formatColonProperties(litorderedmap("user", user, "password", password)));
    }

    public Map asParams() {
      return litorderedmap("user", user, "pw", password);
    }
  }

  static public class G22ScriptView extends JOnDemandWithReloadButton {

    public G22LeftArrowScript script;

    public G22ScriptView(G22LeftArrowScript script) {
      this.script = script;
      if (script != null)
        makeComponent = () -> g22utils().visualizeAutoRunnableScript(script);
    }

    public G22Utils g22utils() {
      return script.g22utils();
    }

    public void makeControls() {
      super.makeControls();
      if (script != null)
        controls.add(g22utils().editScriptButton(script));
    }
  }

  static public class G22AutoStarter extends MetaWithChangeListeners implements AutoCloseable, IFieldsToList {

    public G22Utils g22utils;

    public G22AutoStarter() {
    }

    public G22AutoStarter(G22Utils g22utils) {
      this.g22utils = g22utils;
    }

    public Object[] _fieldsToList() {
      return new Object[] { g22utils };
    }

    public transient FieldVar<Boolean> varEnabled_cache;

    public FieldVar<Boolean> varEnabled() {
      if (varEnabled_cache == null)
        varEnabled_cache = varEnabled_load();
      return varEnabled_cache;
    }

    public FieldVar<Boolean> varEnabled_load() {
      return new FieldVar<Boolean>(this, "enabled", () -> enabled(), enabled -> enabled(enabled));
    }

    final public G22AutoStarter setEnabled(boolean enabled) {
      return enabled(enabled);
    }

    public G22AutoStarter enabled(boolean enabled) {
      if (!eq(this.enabled, enabled)) {
        this.enabled = enabled;
        change();
      }
      return this;
    }

    final public boolean getEnabled() {
      return enabled();
    }

    public boolean enabled() {
      return enabled;
    }

    volatile public boolean enabled = true;

    public transient FieldVar<Integer> varInitialDelay_cache;

    public FieldVar<Integer> varInitialDelay() {
      if (varInitialDelay_cache == null)
        varInitialDelay_cache = varInitialDelay_load();
      return varInitialDelay_cache;
    }

    public FieldVar<Integer> varInitialDelay_load() {
      return new FieldVar<Integer>(this, "initialDelay", () -> initialDelay(), initialDelay -> initialDelay(initialDelay));
    }

    final public G22AutoStarter setInitialDelay(int initialDelay) {
      return initialDelay(initialDelay);
    }

    public G22AutoStarter initialDelay(int initialDelay) {
      if (!eq(this.initialDelay, initialDelay)) {
        this.initialDelay = initialDelay;
        change();
      }
      return this;
    }

    final public int getInitialDelay() {
      return initialDelay();
    }

    public int initialDelay() {
      return initialDelay;
    }

    volatile public int initialDelay = 1;

    public transient FieldVar<Integer> varNScriptsRun_cache;

    public FieldVar<Integer> varNScriptsRun() {
      if (varNScriptsRun_cache == null)
        varNScriptsRun_cache = varNScriptsRun_load();
      return varNScriptsRun_cache;
    }

    public FieldVar<Integer> varNScriptsRun_load() {
      return new FieldVar<Integer>(this, "nScriptsRun", () -> nScriptsRun(), nScriptsRun -> nScriptsRun(nScriptsRun));
    }

    final public G22AutoStarter setNScriptsRun(int nScriptsRun) {
      return nScriptsRun(nScriptsRun);
    }

    public G22AutoStarter nScriptsRun(int nScriptsRun) {
      if (!eq(this.nScriptsRun, nScriptsRun)) {
        this.nScriptsRun = nScriptsRun;
        change();
      }
      return this;
    }

    final public int getNScriptsRun() {
      return nScriptsRun();
    }

    public int nScriptsRun() {
      return nScriptsRun;
    }

    volatile public int nScriptsRun;

    public transient FieldVar<AutoStartScript> varCurrentScript_cache;

    public FieldVar<AutoStartScript> varCurrentScript() {
      if (varCurrentScript_cache == null)
        varCurrentScript_cache = varCurrentScript_load();
      return varCurrentScript_cache;
    }

    public FieldVar<AutoStartScript> varCurrentScript_load() {
      return new FieldVar<AutoStartScript>(this, "currentScript", () -> currentScript(), currentScript -> currentScript(currentScript));
    }

    final public G22AutoStarter setCurrentScript(AutoStartScript currentScript) {
      return currentScript(currentScript);
    }

    public G22AutoStarter currentScript(AutoStartScript currentScript) {
      if (!eq(this.currentScript, currentScript)) {
        this.currentScript = currentScript;
        change();
      }
      return this;
    }

    final public AutoStartScript getCurrentScript() {
      return currentScript();
    }

    public AutoStartScript currentScript() {
      return currentScript;
    }

    volatile public AutoStartScript currentScript;

    public transient FieldVar<Boolean> varCancelOnCtrl_cache;

    public FieldVar<Boolean> varCancelOnCtrl() {
      if (varCancelOnCtrl_cache == null)
        varCancelOnCtrl_cache = varCancelOnCtrl_load();
      return varCancelOnCtrl_cache;
    }

    public FieldVar<Boolean> varCancelOnCtrl_load() {
      return new FieldVar<Boolean>(this, "cancelOnCtrl", () -> cancelOnCtrl(), cancelOnCtrl -> cancelOnCtrl(cancelOnCtrl));
    }

    final public G22AutoStarter setCancelOnCtrl(boolean cancelOnCtrl) {
      return cancelOnCtrl(cancelOnCtrl);
    }

    public G22AutoStarter cancelOnCtrl(boolean cancelOnCtrl) {
      if (!eq(this.cancelOnCtrl, cancelOnCtrl)) {
        this.cancelOnCtrl = cancelOnCtrl;
        change();
      }
      return this;
    }

    final public boolean getCancelOnCtrl() {
      return cancelOnCtrl();
    }

    public boolean cancelOnCtrl() {
      return cancelOnCtrl;
    }

    volatile public boolean cancelOnCtrl = false;

    transient public Set<Runnable> onDone;

    public G22AutoStarter onDone(Runnable r) {
      onDone = createOrAddToSyncLinkedHashSet(onDone, r);
      return this;
    }

    public G22AutoStarter removeDoneListener(Runnable r) {
      main.remove(onDone, r);
      return this;
    }

    public void fireDone() {
      if (onDone != null)
        for (var listener : onDone) pcallF_typed(listener);
    }

    public Flag started = new Flag();

    public Flag waited = new Flag();

    public Flag ctrlPressed = new Flag();

    public List<AutoStartScript> scripts = syncL();

    public AutoCloseable ctrlListener;

    public ReliableSingleThread rst = rst(() -> _run());

    public JComponent topStackComponent;

    public JProgressBar progressBar;

    public class AutoStartScript extends RunResultWithTimestamps implements IFieldsToList {

      public G22LeftArrowScript script;

      public AutoStartScript() {
      }

      public AutoStartScript(G22LeftArrowScript script) {
        this.script = script;
      }

      public Object[] _fieldsToList() {
        return new Object[] { script };
      }

      public void run() {
        try {
          LASCompileResult cr = script.compileForAutoRun();
          if (cr == null)
            cr = script.compileSaved();
          var _cr_2 = cr;
          run(() -> {
            G22AutoStarter.this.change();
            if (_cr_2 == null)
              throw fail("Script is not saved: " + script);
            var parsed = _cr_2.parsedScriptMandatory();
            return parsed.get();
          });
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return str(script);
      }
    }

    public void init() {
      if (ctrlListener != null)
        return;
      scripts.clear();
      var scripts = conceptsWhere(g22utils.concepts, G22LeftArrowScript.class, "runOnProjectOpen", true);
      var sorted = sortByCalculatedFieldAlphaNumIC(scripts, s -> s.runOrder);
      for (var script : sorted) this.scripts.add(new AutoStartScript(script));
      change();
      ctrlListener = tempAddGlobalCtrlKeyListener(b -> {
        if (cancelOnCtrl && b) {
          ctrlPressed.raise();
          cancel();
        }
      });
    }

    public void start() {
      print("G22AutoStarter: Start");
      if (enabled) {
        var topStack = g22utils.projectActions().topStack();
        progressBar = jProgressBarWithText(l(scripts));
        topStackComponent = withTopMargin(jCenteredSection("Booting project", centerAndEastWithMargin(progressBar, jThreadedButton("Cancel", () -> {
          disableButton(heldButton());
          cancel();
        }))));
        topStack.addComponent(topStackComponent);
        rst.get();
      }
    }

    public void _run() {
      if (!enabled)
        return;
      AutoCloseable __1 = g22utils.backgroundProcessesUI.tempAdd("Auto-Start Scripts");
      try {
        if (started.raise())
          change();
        if (!waited.get()) {
          print("G22AutoStarter: Sleeping");
          while (initialDelay > 0) {
            sleepSeconds(1);
            initialDelay(initialDelay - 1);
          }
          waited.raise();
          change();
          print("G22AutoStarter: Slept");
        }
        while (enabled && !done()) {
          var script = scripts.get(nScriptsRun);
          currentScript(script);
          setProgressBarValue(progressBar, nScriptsRun);
          setProgressBarText(progressBar, str(script));
          change();
          script.run();
          nScriptsRun(nScriptsRun + 1);
          currentScript(null);
          change();
        }
        var topStack = g22utils.projectActions().topStack();
        topStack.removeComponent(topStackComponent);
        topStackComponent = null;
        progressBar = null;
        fireDone();
        change();
        close();
      } finally {
        _close(__1);
      }
    }

    public boolean done() {
      return nScriptsRun >= l(scripts);
    }

    public boolean waitedAndDone() {
      return waited.get() && done();
    }

    public void cancel() {
      setEnabled(false);
    }

    public boolean canResume() {
      return !done() && !enabled;
    }

    public void resume() {
      if (done()) {
        infoBox("Nothing to resume - auto-start is done");
        return;
      }
      if (enabled) {
        infoBox("Already running");
        return;
      }
      infoBox("Resuming auto-start");
      setEnabled(true);
      rst.get();
    }

    public String status() {
      return !enabled ? ctrlPressed.get() ? "Cancelled due to ctrl key" : "Cancelled" : done() ? "Done" : waited.get() ? "Started" : started.get() ? "Pre-start wait (" + formatDouble1(initialDelay) + "s)" : "Not started";
    }

    public String stats() {
      return status() + ". " + scriptsRunStats();
    }

    public String scriptsRunStats() {
      return "Scripts run: " + nScriptsRun() + "/" + l(scripts);
    }

    public String currentScriptStats() {
      var s = currentScript;
      if (s == null)
        return "";
      return "Running: " + s.script;
    }

    public void close() {
      try {
        if (ctrlListener != null) {
          {
            cleanUp(ctrlListener);
            ctrlListener = null;
          }
          change();
        }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void waitUntilDone() {
      waitForVarPredicate(varNScriptsRun(), () -> done());
    }

    public boolean ctrlEnabled() {
      return ctrlListener != null;
    }

    public boolean cancelled() {
      return !enabled;
    }
  }

  public interface IG22LoadedDB {

    public boolean hidden();

    public Concepts concepts();

    public JFrame mainWindow();

    public G22Utils g22utils();

    public void activate();

    public G22ProjectActions projectActions();

    public void hide();
  }

  static public class JLeftArrowScriptIDE extends MetaWithChangeListeners implements Swingable {

    final public JLeftArrowScriptIDE setLvScript(IVarWithNotify<String> lvScript) {
      return lvScript(lvScript);
    }

    public JLeftArrowScriptIDE lvScript(IVarWithNotify<String> lvScript) {
      this.lvScript = lvScript;
      return this;
    }

    final public IVarWithNotify<String> getLvScript() {
      return lvScript();
    }

    public IVarWithNotify<String> lvScript() {
      return lvScript;
    }

    public IVarWithNotify<String> lvScript = stringLiveValue();

    final public JLeftArrowScriptIDE setSectionTitle(String sectionTitle) {
      return sectionTitle(sectionTitle);
    }

    public JLeftArrowScriptIDE sectionTitle(String sectionTitle) {
      this.sectionTitle = sectionTitle;
      return this;
    }

    final public String getSectionTitle() {
      return sectionTitle();
    }

    public String sectionTitle() {
      return sectionTitle;
    }

    public String sectionTitle = "Left arrow script";

    final public JLeftArrowScriptIDE setWithResultPanel(boolean withResultPanel) {
      return withResultPanel(withResultPanel);
    }

    public JLeftArrowScriptIDE withResultPanel(boolean withResultPanel) {
      this.withResultPanel = withResultPanel;
      return this;
    }

    final public boolean getWithResultPanel() {
      return withResultPanel();
    }

    public boolean withResultPanel() {
      return withResultPanel;
    }

    public boolean withResultPanel = true;

    final public JLeftArrowScriptIDE setCompileDelay(double compileDelay) {
      return compileDelay(compileDelay);
    }

    public JLeftArrowScriptIDE compileDelay(double compileDelay) {
      this.compileDelay = compileDelay;
      return this;
    }

    final public double getCompileDelay() {
      return compileDelay();
    }

    public double compileDelay() {
      return compileDelay;
    }

    public double compileDelay = 0.1;

    static public String helpText = "Gazelle 22 \"Left Arrow Script\"\r\n------------------------------\r\n\r\n\"Left arrow script\" is one of Gazelle 22's two scripting languages. It is the powerful one of the two. It can do anything Java can do except for defining classes or lambdas.\r\n\r\n-Usually, you write one command per line\r\n-Each command contains at most one action and at most one assignment\r\n-The language is case-sensitive\r\n-You can add comments like in Java with /* */ or //\r\n-You can write multiple commands in one line by separating them with a semicolon\r\n-Arguments to functions are separated by spaces\r\n-You can use integer and string literals like in Java\r\n-You can use true, false and null\r\n\r\nIt's called \"left arrow script\" because the left arrow (variable assignment) is its only actual operator (not counting ; and {}).\r\n\r\n\r\nOperations\r\n----------\r\n\r\nYou can call any global function defined in Gazelle. Example:\r\n\r\n  infoBox \"hello\"   // show a popup with the text \"hello\"\r\n  \r\nYou can assign the result of a function call to a variable:\r\n\r\n  time <- tsNow     // get current time as a Timestamp object\r\n  infoBox time      // show as popup\r\n  \r\nNote that this script requires 2 lines because only one operation is allowed per command.\r\n  \r\nVariables can be overwritten and don't have to be declared.\r\n\r\n\r\nCreating objects\r\n----------------\r\n\r\nYou can create an instance of any Java class and call methods on the object:\r\n\r\n  list <- new ArrayList\r\n  list add \"hello\"\r\n  list add \"world\"\r\n  infoBox list       // shows [hello, world]\r\n  \r\n(Currently you can also say \"list <- ArrayList\", but this is ambiguous and may be removed in a future version.)\r\n  \r\nYou can pass parameters to the constructor:\r\n\r\n  pair <- new Pair \"hello\" \"world\"\r\n  infoBox pair      // shows <hello, world>\r\n  \r\n\r\nJava operators (+, * etc)\r\n-------------------------\r\n  \r\nJava operators can't be used directly but we have functions that do the same thing (if we don't, we'll add them):\r\n\r\n  x <- plus 1 2\r\n  infoBox x\r\n\r\n\r\nFunction definitions\r\n--------------------\r\n\r\nYou can define functions in your script, with arguments. The function can return a value (which is the result of the last command in the function).\r\n\r\n  def doubleMe x { mul x 2 }\r\n\r\n  x <- doubleMe 5\r\n  infoBox x        // shows 10\r\n";

    public transient FieldVar<LASCompileResult> varCompileResult_cache;

    public FieldVar<LASCompileResult> varCompileResult() {
      if (varCompileResult_cache == null)
        varCompileResult_cache = varCompileResult_load();
      return varCompileResult_cache;
    }

    public FieldVar<LASCompileResult> varCompileResult_load() {
      return new FieldVar<LASCompileResult>(this, "compileResult", () -> compileResult(), compileResult -> compileResult(compileResult));
    }

    final public JLeftArrowScriptIDE setCompileResult(LASCompileResult compileResult) {
      return compileResult(compileResult);
    }

    public JLeftArrowScriptIDE compileResult(LASCompileResult compileResult) {
      if (!eq(this.compileResult, compileResult)) {
        this.compileResult = compileResult;
        change();
      }
      return this;
    }

    final public LASCompileResult getCompileResult() {
      return compileResult();
    }

    public LASCompileResult compileResult() {
      return compileResult;
    }

    transient public LASCompileResult compileResult;

    transient volatile public RSyntaxTextAreaWithSearch taScript;

    transient public RSTADummyParser dummyParser = new RSTADummyParser();

    transient public ReliableSingleThread rstCompile = new ReliableSingleThread(() -> compile());

    final public JPanel getButtons() {
      return buttons();
    }

    public JPanel buttons() {
      return buttons;
    }

    transient public JPanel buttons = jline();

    transient public JButton btnRun;

    transient public CollapsibleLeftPanel collapsibleResultPanel;

    transient public G22ScriptResultPanel resultPanel;

    transient public JPopDownButton popDownButton;

    transient public LeftArrowCompletionProvider completionProvider;

    final public JLeftArrowScriptIDE setG22utils(G22Utils g22utils) {
      return g22utils(g22utils);
    }

    public JLeftArrowScriptIDE g22utils(G22Utils g22utils) {
      this.g22utils = g22utils;
      return this;
    }

    final public G22Utils getG22utils() {
      return g22utils();
    }

    public G22Utils g22utils() {
      return g22utils;
    }

    transient public G22Utils g22utils;

    final public JLeftArrowScriptIDE setScriptTimeout(double scriptTimeout) {
      return scriptTimeout(scriptTimeout);
    }

    public JLeftArrowScriptIDE scriptTimeout(double scriptTimeout) {
      this.scriptTimeout = scriptTimeout;
      return this;
    }

    final public double getScriptTimeout() {
      return scriptTimeout();
    }

    public double scriptTimeout() {
      return scriptTimeout;
    }

    public double scriptTimeout = 10.0;

    final public JLeftArrowScriptIDE setShowTitle(boolean showTitle) {
      return showTitle(showTitle);
    }

    public JLeftArrowScriptIDE showTitle(boolean showTitle) {
      this.showTitle = showTitle;
      return this;
    }

    final public boolean getShowTitle() {
      return showTitle();
    }

    public boolean showTitle() {
      return showTitle;
    }

    transient public boolean showTitle = true;

    final public JLeftArrowScriptIDE setSourceInfo(Object sourceInfo) {
      return sourceInfo(sourceInfo);
    }

    public JLeftArrowScriptIDE sourceInfo(Object sourceInfo) {
      this.sourceInfo = sourceInfo;
      return this;
    }

    final public Object getSourceInfo() {
      return sourceInfo();
    }

    public Object sourceInfo() {
      return sourceInfo;
    }

    transient public Object sourceInfo;

    transient public Runnable rRecompileIfError = () -> recompileIfError();

    transient public IF0<GazelleV_LeftArrowScriptParser> makeParser;

    public GazelleV_LeftArrowScriptParser makeParser() {
      return makeParser != null ? makeParser.get() : makeParser_base();
    }

    final public GazelleV_LeftArrowScriptParser makeParser_fallback(IF0<GazelleV_LeftArrowScriptParser> _f) {
      return _f != null ? _f.get() : makeParser_base();
    }

    public GazelleV_LeftArrowScriptParser makeParser_base() {
      return g22utils.leftArrowParser().sourceInfo(sourceInfo);
    }

    public interface GoToDefinitionHandler {

      public Runnable get(ListAndIndex<String> tokPtr);
    }

    final public List<GoToDefinitionHandler> getGoToDefinitionHandlers() {
      return goToDefinitionHandlers();
    }

    public List<GoToDefinitionHandler> goToDefinitionHandlers() {
      return goToDefinitionHandlers;
    }

    transient public List<GoToDefinitionHandler> goToDefinitionHandlers = syncL();

    public class LeftArrowCompletionProvider extends DefaultCompletionProvider {

      @Override
      public List<Completion> getCompletionsImpl(JTextComponent comp) {
        try {
          String text = main.getText(comp);
          GazelleV_LeftArrowScriptParser parser = makeParser();
          LeftArrowScriptAutoCompleter completer = new LeftArrowScriptAutoCompleter(g22utils, parser);
          completer.onAdaptingSearcher(() -> g22utils.addingAdditionalAutoCompletes(completer));
          completer.seek(text, getCaretPosition(comp));
          return map(completer.searcher().withScores(), completion -> {
            BasicCompletion c = new BasicCompletion(this, completion.get());
            c.setRelevance((int) completion.score());
            return c;
          });
        } catch (Throwable e) {
          printStackTrace(e);
          return ll();
        }
      }
    }

    public void goToPosition_noFocus(LineAndColumn lineAndCol) {
      if (lineAndCol == null)
        return;
      try {
        moveCaretAndScroll(textArea(), lineAndCol);
      } catch (Throwable e) {
        print("Trying again: " + e);
        awtLater(1.0, () -> {
          moveCaretAndScroll(textArea(), lineAndCol);
        });
      }
    }

    public void goToPosition(LineAndColumn lineAndCol) {
      focus(textArea());
      goToPosition_noFocus(lineAndCol);
    }

    public JComponent wrapStatusLabel(JComponent lbl) {
      onLeftClick(lbl, () -> goToPosition(compileResult == null ? null : compileResult.errorLineAndCol()));
      popDownButton = swing(() -> new JPopDownButton("Help"));
      popDownButton.onFillingMenu(menu -> addMenuItems(menu, "Show Scripting Help", runnableThread(new Runnable() {

        public void run() {
          try {
            showTextWordWrapped("Gazelle 'Left arrow script' Help", helpText);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "showTextWordWrapped(\"Gazelle 'Left arrow script' Help\", helpText)";
        }
      }), "Show Global Class Names", runnableThread(new Runnable() {

        public void run() {
          try {
            showGlobalClassNames();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "showGlobalClassNames();";
        }
      }), "Convert to Java", runnableThread(new Runnable() {

        public void run() {
          try {
            convertToJava();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "convertToJava();";
        }
      })));
      return centerAndEastWithMargin(jBorderlessHigherScrollPane(lbl), jfullcenter(buttons));
    }

    public transient JComponent visualize_cache;

    public JComponent visualize() {
      if (visualize_cache == null)
        visualize_cache = visualize_load();
      return visualize_cache;
    }

    public JComponent visualize_load() {
      return markVisualizer(this, visualize_impl());
    }

    public JComponent visualize_impl() {
      return swing(() -> {
        taScript = g22utils.newSyntaxTextArea(__3 -> wrapStatusLabel(__3));
        bindToComponent(textArea(), () -> g22utils.masterStuff().onNewClassesDefined(rRecompileIfError), () -> g22utils.masterStuff().removeNewClassesDefinedListener(rRecompileIfError));
        bindTextComponentToVarWithNotify_noInitialUndo(textArea(), lvScript);
        dummyParser.install(textArea());
        addKeyListener(textArea(), functionKeyListener(5, runnableThread(new Runnable() {

          public void run() {
            try {
              runScript();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "runScript();";
          }
        })));
        addKeyListener(textArea(), ctrlLetterKeyListener('b', runnableThread(new Runnable() {

          public void run() {
            try {
              goToDefinition();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "goToDefinition();";
          }
        })));
        awtCalcEvery(textArea(), compileDelay, rstCompile);
        installCompletionProvider(completionProvider = new LeftArrowCompletionProvider(), textArea());
        JComponent vis = taScript.visualize();
        if (showTitle)
          vis = jCenteredSection(sectionTitle, vis);
        vis = wrapSection(vis);
        addAll(buttons, btnRun = toolTip("Run script (F5)", jbutton("Run", runnableThread(new Runnable() {

          public void run() {
            try {
              runScript();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "runScript();";
          }
        }))), popDownButton);
        if (withResultPanel) {
          resultPanel = new G22ScriptResultPanel();
          collapsibleResultPanel = new CollapsibleLeftPanel(false, "Output", resultPanel.visualize(), vis);
          collapsibleResultPanel.sidePanelMargins = c -> withTopAndLeftMargin(c);
          return collapsibleResultPanel.visualize();
        } else
          return vis;
      });
    }

    transient public IF1<JComponent, JComponent> wrapSection;

    public JComponent wrapSection(JComponent c) {
      return wrapSection != null ? wrapSection.get(c) : wrapSection_base(c);
    }

    final public JComponent wrapSection_fallback(IF1<JComponent, JComponent> _f, JComponent c) {
      return _f != null ? _f.get(c) : wrapSection_base(c);
    }

    public JComponent wrapSection_base(JComponent c) {
      return c;
    }

    public RSyntaxTextArea textArea() {
      if (taScript == null)
        visualize();
      return taScript.textArea();
    }

    public void setText(String text) {
      main.setText(textArea(), text);
    }

    private void compile() {
      var script = lvScript.get();
      var result = compileResult;
      if (!g22utils().compileResultValid(result, script)) {
        result = newCompileResult();
        result.script = script;
        result.makeParser = () -> makeParser();
        result.compile();
        compileResult(result);
        showStatus(str(compileResult));
        updateRunButtonState();
        List<RSTADummyParser.Error> errors = new ArrayList();
        if (result.compileError != null) {
          LineAndColumn lineAndCol = result.errorLineAndCol();
          if (lineAndCol != null)
            errors.add(new RSTADummyParser.Error().msg(result.errorToString()).start(lineAndCol).end(new LineAndColumn(lineAndCol.line + 1, 1)));
        }
        dummyParser.setErrors(result.script, errors, textArea());
      }
    }

    public void updateRunButtonState() {
      setEnabled(btnRun, runButtonShouldBeEnabled());
    }

    transient public IF0<Boolean> runButtonShouldBeEnabled;

    public boolean runButtonShouldBeEnabled() {
      return runButtonShouldBeEnabled != null ? runButtonShouldBeEnabled.get() : runButtonShouldBeEnabled_base();
    }

    final public boolean runButtonShouldBeEnabled_fallback(IF0<Boolean> _f) {
      return _f != null ? _f.get() : runButtonShouldBeEnabled_base();
    }

    public boolean runButtonShouldBeEnabled_base() {
      return compileResult != null && compileResult.runnable();
    }

    public LASCompileResult freshCompileResult() {
      rstCompile.triggerAndWait();
      return compileResult;
    }

    public GazelleV_LeftArrowScript.Script parsedScript() {
      return freshCompileResult().parsedScript;
    }

    transient public Runnable runScript;

    public void runScript() {
      if (runScript != null)
        runScript.run();
      else
        runScript_base();
    }

    final public void runScript_fallback(Runnable _f) {
      if (_f != null)
        _f.run();
      else
        runScript_base();
    }

    public void runScript_base() {
      var result = freshCompileResult();
      if (result.parsedScript != null) {
        var value = runResultWithTimestamps(() -> callCompiledObjectWithTimeout(result.parsedScript));
        showScriptResult(value);
      }
    }

    public void showScriptResult(OKOrError result) {
      if (result instanceof RunResultWithTimestamps) {
        if (resultPanel != null)
          resultPanel.logView.setText(str(((RunResultWithTimestamps) result).printOutput()));
      }
      if (result.isOK()) {
        setStatus(shorten(g22utils.stringify(result.get())));
        var objVisualizer = makeObjectVisualizer(result.get());
        if (result instanceof RunResultWithTimestamps) {
          var duration = ((RunResultWithTimestamps) result).duration();
          if (duration != null) {
            long nanos = ((RunResultWithTimestamps) result).duration().toNanos();
            objVisualizer.nanos(nanos);
          }
        }
        if (collapsibleResultPanel != null)
          objVisualizer.withTypeAndTime(false);
        {
          if (resultPanel != null)
            resultPanel.scpResult.set(objVisualizer);
        }
        if (collapsibleResultPanel != null)
          collapsibleResultPanel.sidePanelName("Output" + appendBracketed(objVisualizer.objectInfos()));
      } else {
        setStatus(exceptionToStringShorter(result.error()));
        {
          if (resultPanel != null)
            resultPanel.scpResult.set(jErrorView(result.getError()));
        }
      }
      {
        if (collapsibleResultPanel != null)
          collapsibleResultPanel.expand();
      }
    }

    final public void showStatus(String status) {
      setStatus(status);
    }

    public void setStatus(String status) {
      {
        if (taScript != null)
          taScript.setStatus(" " + unnull(status));
      }
    }

    public void showRuntimeError(Throwable e) {
      showStatus(exceptionToStringShorter(e));
    }

    transient public IF0<VarContext> makeVarContextForExecution;

    public VarContext makeVarContextForExecution() {
      return makeVarContextForExecution != null ? makeVarContextForExecution.get() : makeVarContextForExecution_base();
    }

    final public VarContext makeVarContextForExecution_fallback(IF0<VarContext> _f) {
      return _f != null ? _f.get() : makeVarContextForExecution_base();
    }

    public VarContext makeVarContextForExecution_base() {
      return new FlexibleVarContext();
    }

    public Object callCompiledObjectWithTimeout(GazelleV_LeftArrowScript.Script script) {
      return callCompiledObjectWithTimeout(scriptTimeout, script);
    }

    public Object callCompiledObjectWithTimeout(double timeoutSeconds, GazelleV_LeftArrowScript.Script script) {
      return callCompiledObjectWithTimeout(timeoutSeconds, script, makeVarContextForExecution());
    }

    public Object callCompiledObjectWithTimeout(GazelleV_LeftArrowScript.Script script, VarContext ctx) {
      return callCompiledObjectWithTimeout(scriptTimeout, script, ctx);
    }

    public Object callCompiledObjectWithTimeout(double timeoutSeconds, GazelleV_LeftArrowScript.Script script, VarContext ctx) {
      return g22utils.evalRegisteredCode(timeoutSeconds, str(script), () -> script.get(ctx));
    }

    public void showGlobalClassNames() {
      showText("Global Class Names", pnlToString(toCIMap(makeParser().globalClassNames())));
    }

    public void setEditable(boolean b) {
      main.setEditable(textArea(), b);
    }

    transient public IF0<LASCompileResult> newCompileResult;

    public LASCompileResult newCompileResult() {
      return newCompileResult != null ? newCompileResult.get() : newCompileResult_base();
    }

    final public LASCompileResult newCompileResult_fallback(IF0<LASCompileResult> _f) {
      return _f != null ? _f.get() : newCompileResult_base();
    }

    public LASCompileResult newCompileResult_base() {
      return new LASCompileResult();
    }

    public void convertToJava() {
      try {
        ConvertLASToJava converter = new ConvertLASToJava();
        showText("Java conversion - " + sectionTitle(), strOrNull(converter.get(parsedScript(), true)));
      } catch (Throwable __e) {
        infoBox(__e);
      }
    }

    public void goToDefinition() {
      String text;
      int iChar;
      Pair<String, Integer> __2 = textAndCaretPosition(textArea());
      text = __2.a;
      iChar = __2.b;
      List<String> tok = lasTok(text);
      int iTok = charToTokenIndex_left(tok, iChar);
      ListAndIndex<String> tokPtr = new ListAndIndex<String>(tok, iTok);
      var action = goToDefinitionAction(tokPtr);
      if (action != null)
        pcallF(action);
      else
        flatInfoBox("No definition found");
    }

    public Runnable goToDefinitionAction(ListAndIndex<String> tokPtr) {
      for (var handler : cloneList(goToDefinitionHandlers())) {
        var __1 = handler.get(tokPtr);
        if (__1 != null)
          return __1;
      }
      List<String> tok = tokPtr.list();
      int iTok = tokPtr.idx();
      String id = lastIdentifier(subList(tok, iTok - 2, iTok + 1));
      if (id != null) {
        String name = lookupStandardFunctionOrClassNameIC(id);
        if (name != null) {
          String snippetID = sfOrSCSnippet(id);
          if (snippetID != null) {
            return () -> {
              infoBox("Opening " + quote(name));
              g22utils.openInBrowser(snippetURL(snippetID));
            };
          }
        }
      }
      return null;
    }

    public void recompile() {
      compileResult = null;
      rstCompile.trigger();
    }

    public void recompileIfError() {
      var result = compileResult;
      if (result != null && result.hasError())
        recompile();
    }

    transient public IF1<Object, G22JavaObjectVisualizer> makeObjectVisualizer;

    public G22JavaObjectVisualizer makeObjectVisualizer(Object result) {
      return makeObjectVisualizer != null ? makeObjectVisualizer.get(result) : makeObjectVisualizer_base(result);
    }

    final public G22JavaObjectVisualizer makeObjectVisualizer_fallback(IF1<Object, G22JavaObjectVisualizer> _f, Object result) {
      return _f != null ? _f.get(result) : makeObjectVisualizer_base(result);
    }

    public G22JavaObjectVisualizer makeObjectVisualizer_base(Object result) {
      return new G22JavaObjectVisualizer(g22utils, result).allowDescendingIntoListElements(true);
    }

    public void addGoToDefinitionHandler(GoToDefinitionHandler handler) {
      goToDefinitionHandlers.add(handler);
    }

    final public boolean isShowing() {
      return visible();
    }

    public boolean visible() {
      var ta = taScript;
      return ta != null && main.isShowing(ta.textArea);
    }

    public String getText() {
      var ta = taScript;
      if (ta == null)
        return null;
      return main.getText(ta.textArea);
    }
  }

  static public class G22JavaObjectVisualizer implements Swingable, IFieldsToList {

    public G22Utils g22utils;

    public G22JavaObjectVisualizer() {
    }

    public G22JavaObjectVisualizer(G22Utils g22utils) {
      this.g22utils = g22utils;
    }

    public Object[] _fieldsToList() {
      return new Object[] { g22utils };
    }

    final public G22JavaObjectVisualizer setWithTypeAndTime(boolean withTypeAndTime) {
      return withTypeAndTime(withTypeAndTime);
    }

    public G22JavaObjectVisualizer withTypeAndTime(boolean withTypeAndTime) {
      this.withTypeAndTime = withTypeAndTime;
      return this;
    }

    final public boolean getWithTypeAndTime() {
      return withTypeAndTime();
    }

    public boolean withTypeAndTime() {
      return withTypeAndTime;
    }

    public boolean withTypeAndTime = true;

    final public G22JavaObjectVisualizer setSingleLineLayout(boolean singleLineLayout) {
      return singleLineLayout(singleLineLayout);
    }

    public G22JavaObjectVisualizer singleLineLayout(boolean singleLineLayout) {
      this.singleLineLayout = singleLineLayout;
      return this;
    }

    final public boolean getSingleLineLayout() {
      return singleLineLayout();
    }

    public boolean singleLineLayout() {
      return singleLineLayout;
    }

    public boolean singleLineLayout = false;

    final public G22JavaObjectVisualizer setMaxElements(int maxElements) {
      return maxElements(maxElements);
    }

    public G22JavaObjectVisualizer maxElements(int maxElements) {
      this.maxElements = maxElements;
      return this;
    }

    final public int getMaxElements() {
      return maxElements();
    }

    public int maxElements() {
      return maxElements;
    }

    public int maxElements = 1000;

    final public G22JavaObjectVisualizer setHorizontal(boolean horizontal) {
      return horizontal(horizontal);
    }

    public G22JavaObjectVisualizer horizontal(boolean horizontal) {
      this.horizontal = horizontal;
      return this;
    }

    final public boolean getHorizontal() {
      return horizontal();
    }

    public boolean horizontal() {
      return horizontal;
    }

    public boolean horizontal = false;

    final public G22JavaObjectVisualizer setFloatingPointDigits(int floatingPointDigits) {
      return floatingPointDigits(floatingPointDigits);
    }

    public G22JavaObjectVisualizer floatingPointDigits(int floatingPointDigits) {
      this.floatingPointDigits = floatingPointDigits;
      return this;
    }

    final public int getFloatingPointDigits() {
      return floatingPointDigits();
    }

    public int floatingPointDigits() {
      return floatingPointDigits;
    }

    public int floatingPointDigits = 4;

    final public G22JavaObjectVisualizer setAllowDescendingIntoListElements(boolean allowDescendingIntoListElements) {
      return allowDescendingIntoListElements(allowDescendingIntoListElements);
    }

    public G22JavaObjectVisualizer allowDescendingIntoListElements(boolean allowDescendingIntoListElements) {
      this.allowDescendingIntoListElements = allowDescendingIntoListElements;
      return this;
    }

    final public boolean getAllowDescendingIntoListElements() {
      return allowDescendingIntoListElements();
    }

    public boolean allowDescendingIntoListElements() {
      return allowDescendingIntoListElements;
    }

    public boolean allowDescendingIntoListElements = false;

    final public G22JavaObjectVisualizer setScriptTimeout(double scriptTimeout) {
      return scriptTimeout(scriptTimeout);
    }

    public G22JavaObjectVisualizer scriptTimeout(double scriptTimeout) {
      this.scriptTimeout = scriptTimeout;
      return this;
    }

    final public double getScriptTimeout() {
      return scriptTimeout();
    }

    public double scriptTimeout() {
      return scriptTimeout;
    }

    public double scriptTimeout = 10.0;

    final public G22JavaObjectVisualizer setStringDisplayLength(int stringDisplayLength) {
      return stringDisplayLength(stringDisplayLength);
    }

    public G22JavaObjectVisualizer stringDisplayLength(int stringDisplayLength) {
      this.stringDisplayLength = stringDisplayLength;
      return this;
    }

    final public int getStringDisplayLength() {
      return stringDisplayLength();
    }

    public int stringDisplayLength() {
      return stringDisplayLength;
    }

    public int stringDisplayLength = 80;

    public Set seen = identityHashSet();

    final public G22JavaObjectVisualizer setObject(Object object) {
      return object(object);
    }

    public G22JavaObjectVisualizer object(Object object) {
      this.object = object;
      return this;
    }

    final public Object getObject() {
      return object();
    }

    public Object object() {
      return object;
    }

    transient public Object object;

    final public G22JavaObjectVisualizer setNanos(long nanos) {
      return nanos(nanos);
    }

    public G22JavaObjectVisualizer nanos(long nanos) {
      this.nanos = nanos;
      return this;
    }

    final public long getNanos() {
      return nanos();
    }

    public long nanos() {
      return nanos;
    }

    transient public long nanos = -1;

    transient public SingleComponentPanel scp = scp();

    public G22JavaObjectVisualizer(G22Utils g22utils, Object object) {
      this.object = object;
      this.g22utils = g22utils;
    }

    public String objectInfos() {
      return objectInfos(this.object);
    }

    public String objectInfos(Object object) {
      List<String> infos = new ArrayList();
      infos.add(str(shortClassName2(object)));
      for (var __0 : _entrySet(mainVisualizer().properties)) {
        var key = __0.getKey();
        var val = __0.getValue();
        String s = n2OrStrOrNull(val);
        if (nempty(s))
          infos.add(key + " " + s);
      }
      if (nanos >= 0) {
        String timeDesc = nanos < 0 ? "" : formatElapsedTimeWithAppropriateUnit(nanosToSeconds(nanos));
        infos.add(timeDesc);
      }
      return joinNemptiesWithComma(infos);
    }

    public transient JComponent visualize_cache;

    public JComponent visualize() {
      if (visualize_cache == null)
        visualize_cache = visualize_load();
      return visualize_cache;
    }

    public JComponent visualize_load() {
      return markVisualizer(this, visualize_impl());
    }

    public JComponent visualize_impl() {
      scp.set(visualizeObjectWithExtras(object));
      return scp;
    }

    public JComponent visualizeObject(Object object) {
      return mainVisualizer().visualize(object);
    }

    public JComponent visualizeObjectWithExtras(Object object) {
      return visualizeObjectWithExtras(object, null);
    }

    public JComponent visualizeObjectWithExtras(Object object, Component back) {
      JComponent c = visualizeObject(object);
      JButton btnBack = back == null ? null : jimageButtonScaledToWidth(16, "#1103102", () -> scp.set(back));
      JComponent lblType = null;
      if (withTypeAndTime) {
        String type = objectInfos(object);
        lblType = withLabel("Type:", jlabel(type));
      }
      if (btnBack != null || lblType != null) {
        JComponent top = or(lblType, jpanel());
        if (btnBack != null)
          top = westAndCenterWithMargin(btnBack, top);
        return northAndCenterWithMargins(top, c);
      }
      return c;
    }

    public ObjectVisualizer mainVisualizer_cache;

    public ObjectVisualizer mainVisualizer() {
      if (mainVisualizer_cache == null)
        mainVisualizer_cache = mainVisualizer_load();
      return mainVisualizer_cache;
    }

    public ObjectVisualizer mainVisualizer_load() {
      return new ObjectVisualizer().recurse(true).bigFont(true).horizontal(horizontal);
    }

    public class ObjectVisualizer {

      final public ObjectVisualizer setRecurse(boolean recurse) {
        return recurse(recurse);
      }

      public ObjectVisualizer recurse(boolean recurse) {
        this.recurse = recurse;
        return this;
      }

      final public boolean getRecurse() {
        return recurse();
      }

      public boolean recurse() {
        return recurse;
      }

      public boolean recurse = false;

      final public ObjectVisualizer setBigFont(boolean bigFont) {
        return bigFont(bigFont);
      }

      public ObjectVisualizer bigFont(boolean bigFont) {
        this.bigFont = bigFont;
        return this;
      }

      final public boolean getBigFont() {
        return bigFont();
      }

      public boolean bigFont() {
        return bigFont;
      }

      public boolean bigFont = false;

      final public ObjectVisualizer setHorizontal(boolean horizontal) {
        return horizontal(horizontal);
      }

      public ObjectVisualizer horizontal(boolean horizontal) {
        this.horizontal = horizontal;
        return this;
      }

      final public boolean getHorizontal() {
        return horizontal();
      }

      public boolean horizontal() {
        return horizontal;
      }

      public boolean horizontal = false;

      final public ObjectVisualizer setScrollable(boolean scrollable) {
        return scrollable(scrollable);
      }

      public ObjectVisualizer scrollable(boolean scrollable) {
        this.scrollable = scrollable;
        return this;
      }

      final public boolean getScrollable() {
        return scrollable();
      }

      public boolean scrollable() {
        return scrollable;
      }

      public boolean scrollable = true;

      public LinkedHashMap<String, Object> properties = new LinkedHashMap();

      public ObjectVisualizer subVisualizer() {
        return new ObjectVisualizer().horizontal(!horizontal);
      }

      public ObjectVisualizer subVisualizerOnSameLevel() {
        return new ObjectVisualizer().horizontal(horizontal).recurse(recurse).bigFont(bigFont).scrollable(false);
      }

      public JComponent makeBig(JComponent c) {
        if (bigFont)
          return fontSizePlus(10, c);
        return c;
      }

      public JComponent subVisualizeOnSameLevel(Object o) {
        return subVisualizerOnSameLevel().visualize(o);
      }

      public JComponent visualize(Object object) {
        try {
          return visualize2(object);
        } catch (Throwable e) {
          return g22utils.jErrorView(new RuntimeException("Visualization error", e));
        }
      }

      public JComponent visualize2(Object object) {
        if (object instanceof Throwable)
          return g22utils.jErrorView((Throwable) object);
        if (object == null || eq(object, ""))
          return jpanel();
        object = arrayToList(object);
        if (object instanceof Swingable)
          object = ((Swingable) object).visualize();
        if (object instanceof JComponent && getParent((JComponent) object) == null)
          return ((JComponent) object);
        if (object instanceof Integer)
          object = toLong((Integer) object);
        if (object instanceof Long)
          return bigText(n2((Long) object));
        if (object instanceof Double)
          return toolTip(str((Double) object), bigText(formatDouble(((Double) object), floatingPointDigits)));
        if (object instanceof Number)
          return bigText((Number) object);
        if (object instanceof Pair)
          return visualizeTuple(pairToList((Pair) object));
        if (object instanceof T3)
          return visualizeTuple(tripleToList((T3) object));
        if (object instanceof MakesBufferedImage)
          object = toBufferedImage((MakesBufferedImage) object);
        if (object instanceof BufferedImage) {
          var is = g22utils.stdImageSurface((BufferedImage) object);
          if (!recurse)
            is.setAutoZoomToDisplay(false);
          return jscroll_centered_borderless(is);
        }
        if (object instanceof GazelleV_LeftArrowScript.FunctionDef) {
          var f = (GazelleV_LeftArrowScript.FunctionDef) object;
          if (empty(f.args))
            return centerAndEastWithMargin(visualizeAsText(f), jverticalCenter(jThreadedButton("Call", () -> inspectElement(callFunctionDef(f)))));
        }
        if (recurse) {
          if (object instanceof MultiMap) {
            propertyLength(l((MultiMap) object));
            propertyKeyCount(((MultiMap) object).keyCount());
            object = multiMapToMapPairs((MultiMap) object);
          }
          if (object instanceof MultiSetMap) {
            propertyLength(l((MultiSetMap) object));
            propertyKeyCount(((MultiSetMap) object).keyCount());
            object = multiSetMapToMapPairs((MultiSetMap) object);
          }
          if (object instanceof Map) {
            propertyLength(l((Map) object));
            object = mapToPairs((Map) object);
          }
          if (object instanceof Collection) {
            propertyLength(l((Collection) object));
            var sub = subVisualizer();
            var elements = map(cloneTakeFirst(maxElements, ((Collection) object)), element -> {
              var elementVis = sub.visualize(element);
              if (allowDescendingIntoListElements)
                elementVis = centerAndEastWithMargin(elementVis, new JPopDownButton().content("Inspect element", runnableThread(new Runnable() {

                  public void run() {
                    try {
                      inspectElement(element);
                    } catch (Exception __e) {
                      throw rethrow(__e);
                    }
                  }

                  public String toString() {
                    return "inspectElement(element)";
                  }
                })));
              return elementVis;
            });
            return stackElements(elements);
          }
        }
        return visualizeAsText(object);
      }

      public JComponent visualizeTuple(List tuple) {
        if (horizontal)
          return jcenteredline(listCombine(jlabel("<"), intersperseF(() -> jlabel(","), map(__22 -> visualize(__22), tuple)), jlabel(">")));
        else
          return stackElements(listCombine(map(__23 -> subVisualizeOnSameLevel(__23), tuple)));
      }

      public JComponent visualizeAsText(Object object) {
        if (object instanceof String) {
          propertyLength(l((String) object));
        }
        String string = str(object);
        if (containsNewLine(string))
          return jscroll_borderless(wordWrapTypeWriterTextArea(string));
        if (recurse && l(string) > stringDisplayLength)
          return jText(string);
        var lbl = jcenterNarrowLabel(shorten(string));
        if (l(string) <= 10)
          return makeBig(lbl);
        return lbl;
      }

      public void propertyLength(int l) {
        properties.put("size", l);
      }

      public void propertyKeyCount(int l) {
        properties.put("keys", l);
      }

      public JComponent bigText(Object o) {
        return makeBig(jcenteredLabel(str(o)));
      }

      public Object arrayToList(Object object) {
        if (isArray(object))
          object = wrapArrayAsImmutableList(object);
        return object;
      }

      public JComponent stackElements(List<? extends JComponent> elements) {
        var c = horizontal ? hstackWithSpacing(elements) : vstackWithSpacing(elements);
        return scrollable ? jscroll_centered_borderless(c) : c;
      }
    }

    public G22JavaObjectVisualizer withType(boolean b) {
      return withTypeAndTime(b);
    }

    public void inspectElement(Object element) {
      var back = scp.getComponent();
      scp.set(visualizeObjectWithExtras(element, back));
    }

    public Object callFunctionDef(GazelleV_LeftArrowScript.FunctionDef f) {
      return evalWithTimeoutOrFail(scriptTimeout, () -> f.call(new FlexibleVarContext()));
    }
  }

  static public int concepts_internStringsLongerThan = 10;

  static public ThreadLocal<Boolean> concepts_unlisted = new ThreadLocal();

  static public boolean concepts_unlistedByDefault = true;

  public interface IConceptIndex {

    public void update(Concept c);

    public void remove(Concept c);
  }

  public interface IFieldIndex<A extends Concept, Val> {

    public Collection<A> getAll(Val val);

    public List<Val> allValues();

    public MultiSet<Val> allValues_multiSet();

    public IterableIterator<A> objectIterator();
  }

  static public class ConceptsChange {
  }

  static public class ConceptCreate extends ConceptsChange implements IFieldsToList {

    public Concept c;

    public ConceptCreate() {
    }

    public ConceptCreate(Concept c) {
      this.c = c;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + c + ")";
    }

    public boolean equals(Object o) {
      if (!(o instanceof ConceptCreate))
        return false;
      ConceptCreate __3 = (ConceptCreate) o;
      return eq(c, __3.c);
    }

    public int hashCode() {
      int h = -1751266972;
      h = boostHashCombine(h, _hashCode(c));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { c };
    }
  }

  static public class ConceptChange extends ConceptsChange implements IFieldsToList {

    public Concept c;

    public ConceptChange() {
    }

    public ConceptChange(Concept c) {
      this.c = c;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + c + ")";
    }

    public boolean equals(Object o) {
      if (!(o instanceof ConceptChange))
        return false;
      ConceptChange __4 = (ConceptChange) o;
      return eq(c, __4.c);
    }

    public int hashCode() {
      int h = -1760609256;
      h = boostHashCombine(h, _hashCode(c));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { c };
    }
  }

  static public class ConceptDelete extends ConceptsChange implements IFieldsToList {

    static final public String _fieldOrder = "id c";

    public long id;

    public Concept c;

    public ConceptDelete() {
    }

    public ConceptDelete(long id, Concept c) {
      this.c = c;
      this.id = id;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + id + ", " + c + ")";
    }

    public boolean equals(Object o) {
      if (!(o instanceof ConceptDelete))
        return false;
      ConceptDelete __5 = (ConceptDelete) o;
      return id == __5.id && eq(c, __5.c);
    }

    public int hashCode() {
      int h = -1734431213;
      h = boostHashCombine(h, _hashCode(id));
      h = boostHashCombine(h, _hashCode(c));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { id, c };
    }
  }

  static public class FullChange extends ConceptsChange implements IFieldsToList {

    public FullChange() {
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this);
    }

    public boolean equals(Object o) {
      return o instanceof FullChange;
    }

    public int hashCode() {
      int h = 733452095;
      return h;
    }

    public Object[] _fieldsToList() {
      return null;
    }
  }

  static public class Concepts implements AutoCloseable {

    public SortedMap<Long, Concept> concepts = synchroTreeMap();

    final public long getIdCounter() {
      return idCounter();
    }

    public long idCounter() {
      return idCounter;
    }

    public long idCounter;

    transient public HashMap<Class, Object> perClassData;

    transient public Map miscMap;

    transient public String programID;

    transient public File conceptsFile;

    transient public Concepts parent;

    transient volatile public long changes, changesWritten, lastChange;

    transient volatile public java.util.Timer autoSaver;

    transient volatile public boolean dontSave = false;

    transient volatile public boolean savingConcepts, noXFullGrab;

    transient public boolean vmBusSend = true;

    transient public boolean initialSave = false;

    transient public int autoSaveInterval = -1000;

    transient public boolean useGZIP = true, quietSave;

    transient public ReentrantLock lock = new ReentrantLock(true);

    transient public ReentrantLock saverLock = new ReentrantLock(true);

    transient public long lastSaveTook = -1, lastSaveWas, loadTook, uncompressedSize;

    transient public float maxAutoSavePercentage = 10;

    transient public List<IConceptIndex> conceptIndices;

    transient public Map<Class<? extends Concept>, Map<String, IFieldIndex>> fieldIndices;

    transient public Map<Class<? extends Concept>, Map<String, IFieldIndex>> ciFieldIndices;

    transient public List<Runnable> preSave;

    transient public Object classFinder = _defaultClassFinder();

    transient public List onAllChanged = synchroList();

    transient public Set<IVF1> onChange = new HashSet();

    transient public Object saveWrapper;

    final public Concepts setModifyOnCreate(boolean modifyOnCreate) {
      return modifyOnCreate(modifyOnCreate);
    }

    public Concepts modifyOnCreate(boolean modifyOnCreate) {
      this.modifyOnCreate = modifyOnCreate;
      return this;
    }

    final public boolean getModifyOnCreate() {
      return modifyOnCreate();
    }

    public boolean modifyOnCreate() {
      return modifyOnCreate;
    }

    transient public boolean modifyOnCreate = false;

    transient public boolean modifyOnBackRef = false;

    transient public boolean useFileLock = true;

    final public Concepts setGrabThroughSocket(boolean grabThroughSocket) {
      return grabThroughSocket(grabThroughSocket);
    }

    public Concepts grabThroughSocket(boolean grabThroughSocket) {
      this.grabThroughSocket = grabThroughSocket;
      return this;
    }

    final public boolean getGrabThroughSocket() {
      return grabThroughSocket();
    }

    public boolean grabThroughSocket() {
      return grabThroughSocket;
    }

    transient public boolean grabThroughSocket = true;

    transient public FileBasedLock fileLock;

    transient public boolean storeBaseClassesInStructure = false;

    transient public boolean useBackRefsForSearches = false;

    transient public boolean defunct = false;

    transient public int newBackupEveryXMinutes = 60;

    final public Concepts setCloseConceptsOnExit(boolean closeConceptsOnExit) {
      return closeConceptsOnExit(closeConceptsOnExit);
    }

    public Concepts closeConceptsOnExit(boolean closeConceptsOnExit) {
      this.closeConceptsOnExit = closeConceptsOnExit;
      return this;
    }

    final public boolean getCloseConceptsOnExit() {
      return closeConceptsOnExit();
    }

    public boolean closeConceptsOnExit() {
      return closeConceptsOnExit;
    }

    transient public boolean closeConceptsOnExit = false;

    public Concepts() {
    }

    public Concepts(String programID) {
      this.programID = programID;
    }

    public Concepts(File conceptsFile) {
      this.conceptsFile = conceptsFile;
    }

    synchronized public long internalID() {
      do {
        ++idCounter;
      } while (hasConcept(idCounter));
      return idCounter;
    }

    synchronized public HashMap<Class, Object> perClassData() {
      if (perClassData == null)
        perClassData = new HashMap();
      return perClassData;
    }

    public void initProgramID() {
      if (programID == null)
        programID = getDBProgramID();
    }

    public Concepts load(String structure) {
      return load(structure, false);
    }

    public Concepts load(String structure, boolean allDynamic) {
      clearConcepts();
      Map<Long, Concept> map = unstructureMap(structure, allDynamic, classFinder);
      concepts.putAll(map);
      assignConceptsToUs();
      calcIdCounter();
      return this;
    }

    public Concepts load() {
      initProgramID();
      Object dbGrabber = miscMapGet("dbGrabber");
      if (dbGrabber != null && !isFalse(callF(dbGrabber)))
        return this;
      try {
        if (grabThroughSocket && tryToGrab())
          return this;
      } catch (Throwable e) {
        if (!exceptionMessageContains(e, "no xfullgrab"))
          printShortException(e);
        print("xfullgrab failed - loading DB of " + programID + " from disk");
      }
      return loadFromDisk();
    }

    public Concepts loadFromDisk() {
      if (nempty(concepts))
        clearConcepts();
      long time = now();
      Map<Long, Concept> _concepts = (Map<Long, Concept>) (unstructureGZFile(conceptsFile(), toIF1(classFinder)));
      putAll(concepts, _concepts);
      assignConceptsToUs();
      loadTook = now() - time;
      done("Loaded " + n2(l(concepts), "concept"), time);
      calcIdCounter();
      return this;
    }

    public Concepts loadConcepts() {
      return load();
    }

    public boolean tryToGrab() {
      if (sameSnippetID(programID, getDBProgramID()))
        return false;
      RemoteDB db = connectToDBOpt(programID);
      try {
        if (db != null) {
          loadGrab(db.fullgrab());
          return true;
        }
        return false;
      } finally {
        _close(db);
      }
    }

    public Concepts loadGrab(String grab) {
      clearConcepts();
      DynamicObject_loading.set(true);
      try {
        Map<Long, Concept> map = (Map) unstructure(grab, false, classFinder);
        concepts.putAll(map);
        assignConceptsToUs();
        for (long l : map.keySet()) idCounter = max(idCounter, l);
      } finally {
        DynamicObject_loading.set(null);
      }
      return this;
    }

    public void assignConceptsToUs() {
      for (Pair<Long, Object> p : mapToPairs((Map<Long, Object>) (Map) concepts)) if (!(p.b instanceof Concept)) {
        print("DROPPING non-existant concept " + p.a + ": " + dynShortName(p.b));
        concepts.remove(p.a);
      }
      for (Concept c : values(concepts)) c._concepts = this;
      for (Concept c : values(concepts)) c._doneLoading2();
    }

    public String progID() {
      return programID == null ? getDBProgramID() : programID;
    }

    public Concept getConcept(String id) {
      return empty(id) ? null : getConcept(parseLong(id));
    }

    public Concept getConcept(long id) {
      return (Concept) concepts.get((long) id);
    }

    public Concept getConcept(RC ref) {
      return ref == null ? null : getConcept(ref.longID());
    }

    public boolean hasConcept(long id) {
      return concepts.containsKey((long) id);
    }

    public void deleteConcept(long id) {
      Concept c = getConcept(id);
      if (c == null)
        print("Concept " + id + " not found");
      else
        c.delete();
    }

    public void calcIdCounter() {
      Long lastID = lastKey(concepts);
      idCounter = lastID == null ? 1 : lastID + 1;
    }

    public File conceptsDir() {
      return dirOfFile(conceptsFile());
    }

    public Concepts conceptsFile(File conceptsFile) {
      this.conceptsFile = conceptsFile;
      return this;
    }

    public File conceptsFile() {
      if (conceptsFile != null)
        return conceptsFile;
      return getProgramFile(programID, useGZIP ? "concepts.structure.gz" : "concepts.structure");
    }

    public File lockFile() {
      return newFile(conceptsDir(), "concepts.lock");
    }

    public FileBasedLock fileLock() {
      if (fileLock == null)
        fileLock = new FileBasedLock(lockFile());
      return fileLock;
    }

    public void saveConceptsIfDirty() {
      saveConcepts();
    }

    public void save() {
      saveConcepts();
    }

    public void saveConcepts() {
      vmBus_send("saveConceptsCalled", Concepts.this);
      if (dontSave)
        return;
      initProgramID();
      saverLock.lock();
      savingConcepts = true;
      long start = now(), time;
      try {
        String s = null;
        long _changes = changes;
        if (_changes == changesWritten)
          return;
        File f = conceptsFile();
        lock.lock();
        long fullTime = now();
        try {
          if (useGZIP) {
            vmBus_send("callingSaveWrapper", Concepts.this, saveWrapper);
            callRunnableWithWrapper(saveWrapper, new Runnable() {

              public void run() {
                try {
                  vmBus_send("callingPreSave", Concepts.this, preSave);
                  callFAll(preSave);
                  vmBus_send("writingFile", Concepts.this, f);
                  uncompressedSize = saveGZStructureToFile(f, cloneMap(concepts), makeStructureData());
                  vmBus_send("gzFileSaved", Concepts.this, f, uncompressedSize);
                } catch (Exception __e) {
                  throw rethrow(__e);
                }
              }

              public String toString() {
                return "vmBus_send callingPreSave(Concepts.this, preSave);\r\n            callFAll(preS...";
              }
            });
            newFile(conceptsDir(), "concepts.structure").delete();
          } else
            s = fullStructure();
        } finally {
          lock.unlock();
        }
        changesWritten = _changes;
        if (!useGZIP) {
          time = now() - start;
          if (!quietSave)
            print("Saving " + toM(l(s)) + "M chars (" + time + " ms)");
          start = now();
          saveTextFile(f, javaTokWordWrap(s));
          newFile(conceptsDir(), "concepts.structure.gz").delete();
        }
        File conceptsFile = conceptsFile();
        File backupFile = newFile(conceptsDir(), "backups/" + fileName(conceptsFile) + ".backup" + ymd() + "-" + formatInt(hours(), 2) + (newBackupEveryXMinutes >= 60 ? "" : formatInt(roundDownTo_rev(minutes(), newBackupEveryXMinutes), 2)));
        copyFile(f, backupFile);
        time = now() - start;
        if (!quietSave)
          print("Saved " + toK(f.length()) + " K, " + n(concepts, "concepts") + " (" + time + " ms)");
        lastSaveWas = fullTime;
        lastSaveTook = now() - fullTime;
      } finally {
        savingConcepts = false;
        saverLock.unlock();
      }
    }

    public void _autoSaveConcepts() {
      if (autoSaveInterval < 0 && maxAutoSavePercentage != 0) {
        long pivotTime = Math.round(lastSaveWas + lastSaveTook * 100.0 / maxAutoSavePercentage);
        if (now() < pivotTime) {
          return;
        }
      }
      try {
        saveConcepts();
      } catch (Throwable e) {
        print("Concept save failed, will try again");
        printStackTrace(e);
      }
    }

    public String fullStructure() {
      return structure(cloneMap(concepts), makeStructureData());
    }

    transient public IF0<structure_Data> makeStructureData;

    public structure_Data makeStructureData() {
      return makeStructureData != null ? makeStructureData.get() : makeStructureData_base();
    }

    final public structure_Data makeStructureData_fallback(IF0<structure_Data> _f) {
      return _f != null ? _f.get() : makeStructureData_base();
    }

    public structure_Data makeStructureData_base() {
      return finishStructureData(new structure_Data());
    }

    public structure_Data finishStructureData(structure_Data data) {
      if (storeBaseClassesInStructure)
        data.storeBaseClasses = true;
      return data;
    }

    public void clearConcepts() {
      for (Concept c : allConcepts()) c.delete();
    }

    public void fireLegacyChangeEvent() {
      synchronized (this) {
        ++changes;
        lastChange = sysNow();
      }
      if (vmBusSend)
        vmBus_send("conceptsChanged", this);
      pcallFAll(onAllChanged);
    }

    synchronized public void autoSaveConcepts() {
      if (autoSaver == null) {
        if (isTransient())
          throw fail("Can't persist transient database");
        autoSaver = doEvery_daemon("Concepts Saver for " + conceptsDir(), abs(autoSaveInterval), new Runnable() {

          public void run() {
            try {
              _autoSaveConcepts();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "_autoSaveConcepts()";
          }
        });
      }
    }

    public void close() {
      cleanMeUp();
    }

    public void cleanMeUp() {
      try {
        if (closeConceptsOnExit)
          closeAllOpt(allConcepts());
        defunct = true;
        boolean shouldSave = autoSaver != null;
        if (autoSaver != null) {
          autoSaver.cancel();
          autoSaver = null;
        }
        while (savingConcepts) sleepInCleanUp(10);
        if (shouldSave)
          saveConceptsIfDirty();
      } catch (Throwable __e) {
        pcallFail(__e);
      }
      {
        cleanUp(fileLock);
        fileLock = null;
      }
    }

    public Map<Long, String> getIDsAndNames() {
      Map<Long, String> map = new HashMap();
      Map<Long, Concept> cloned = cloneMap(concepts);
      for (long id : keys(cloned)) map.put(id, cloned.get(id).className);
      return map;
    }

    public void deleteConcepts(List l) {
      ping();
      if (l != null)
        for (Object o : cloneList(l)) if (o instanceof Long) {
          Concept c = concepts.get(o);
          if (c != null)
            c.delete();
        } else if (o instanceof Concept)
          ((Concept) o).delete();
        else
          warn("Can't delete " + getClassName(o));
    }

    public <A extends Concept> A conceptOfType(Class<A> type) {
      IConceptCounter counter = conceptCounterForClass(type);
      if (counter != null)
        return (A) first(counter.allConcepts());
      return firstOfType(allConcepts(), type);
    }

    public <A extends Concept> List<A> conceptsOfType(Class<A> type) {
      List<A> l = conceptsOfType_noParent(type);
      if (parent == null)
        return l;
      return concatLists_conservative(l, parent.conceptsOfType(type));
    }

    public <A extends Concept> List<A> conceptsOfType_noParent(Class<A> type) {
      ping();
      IConceptCounter counter = conceptCounterForClass(type);
      if (counter != null)
        return (List<A>) cloneList(counter.allConcepts());
      return filterByType(allConcepts(), type);
    }

    public <A extends Concept> List<A> listConcepts(Class<A> type) {
      return conceptsOfType(type);
    }

    public <A extends Concept> List<A> list(Class<A> type) {
      return conceptsOfType(type);
    }

    public <A extends Concept> List<A> list_noParent(Class<A> type) {
      return conceptsOfType_noParent(type);
    }

    public List<Concept> list(String type) {
      return conceptsOfType(type);
    }

    public List<Concept> conceptsOfType(String type) {
      return filterByDynamicType(allConcepts(), "main$" + type);
    }

    public boolean hasConceptOfType(Class<? extends Concept> type) {
      return hasType(allConcepts(), type);
    }

    public void persistConcepts() {
      loadConcepts();
      autoSaveConcepts();
    }

    public void conceptPersistence() {
      persistConcepts();
    }

    public Concepts persist() {
      persistConcepts();
      return this;
    }

    public void persist(Integer interval) {
      if (interval != null)
        autoSaveInterval = interval;
      persist();
    }

    public <A extends Concept> A ensureHas(Class<A> c, Runnable r) {
      A a = conceptOfType(c);
      if (a == null) {
        r.run();
        a = conceptOfType(c);
        if (a == null)
          throw fail("Concept not made by " + r + ": " + shortClassName(c));
      }
      return a;
    }

    public void ensureHas(Class<? extends Concept> c1, Class<? extends Concept> c2, Object func) {
      for (Concept a : conceptsOfType(c1)) {
        Concept b = findBackRef(a, c2);
        if (b == null) {
          callF(func, a);
          b = findBackRef(a, c2);
          if (b == null)
            throw fail("Concept not made by " + func + ": " + shortClassName(c2));
        }
      }
    }

    public void forEvery(Class<? extends Concept> type, Object func) {
      for (Concept c : conceptsOfType(type)) callF(func, c);
    }

    public int deleteAll(Class<? extends Concept> type) {
      List<Concept> l = (List) conceptsOfType(type);
      for (Concept c : l) c.delete();
      return l(l);
    }

    public Collection<Concept> allConcepts() {
      synchronized (concepts) {
        return new ArrayList(values(concepts));
      }
    }

    public IConceptCounter conceptCounterForClass(Class<? extends Concept> c) {
      for (IFieldIndex idx : values(mapGet(fieldIndices, c))) if (idx instanceof IConceptCounter)
        return ((IConceptCounter) idx);
      for (IFieldIndex idx : values(mapGet(ciFieldIndices, c))) if (idx instanceof IConceptCounter)
        return ((IConceptCounter) idx);
      return null;
    }

    public <A extends Concept> int countConcepts(Class<A> c, Object... params) {
      int n = countConcepts_noParent(c, params);
      if (parent == null)
        return n;
      return n + parent.countConcepts(c, params);
    }

    public <A extends Concept> int countConcepts_noParent(Class<A> c, Object... params) {
      ping();
      if (empty(params)) {
        IConceptCounter counter = conceptCounterForClass(c);
        if (counter != null)
          return counter.countConcepts();
        return l(list_noParent(c));
      }
      int n = 0;
      for (A x : list_noParent(c)) if (checkConceptFields(x, params))
        ++n;
      return n;
    }

    public int countConcepts(String c, Object... params) {
      ping();
      if (empty(params))
        return l(list(c));
      int n = 0;
      for (Concept x : list(c)) if (checkConceptFields(x, params))
        ++n;
      return n;
    }

    public int countConcepts() {
      return l(concepts);
    }

    synchronized public List<IConceptIndex> clonedConceptIndices() {
      return cloneList(conceptIndices);
    }

    synchronized public void addConceptIndex(IConceptIndex index) {
      if (conceptIndices == null)
        conceptIndices = new ArrayList();
      conceptIndices.add(index);
    }

    synchronized public void removeConceptIndex(IConceptIndex index) {
      if (conceptIndices == null)
        return;
      conceptIndices.remove(index);
      if (empty(conceptIndices))
        conceptIndices = null;
    }

    synchronized public void addFieldIndex(Class<? extends Concept> c, String field, IFieldIndex index) {
      if (fieldIndices == null)
        fieldIndices = new HashMap();
      Map<String, IFieldIndex> map = fieldIndices.get(c);
      if (map == null)
        fieldIndices.put(c, map = new HashMap());
      map.put(field, index);
    }

    synchronized public void removeFieldIndex(Class<? extends Concept> c, String field, IFieldIndex index) {
      Map<String, IFieldIndex> map = mapGet(fieldIndices, c);
      mapRemove(map, field);
    }

    synchronized public IFieldIndex getFieldIndex(Class<? extends Concept> c, String field) {
      if (fieldIndices == null)
        return null;
      Map<String, IFieldIndex> map = fieldIndices.get(c);
      return map == null ? null : map.get(field);
    }

    synchronized public IFieldIndex getAnyIndexForClass(Class<? extends Concept> c) {
      return first(allIndicesForClass(c));
    }

    synchronized public Collection<IFieldIndex> allIndicesForClass(Class<? extends Concept> c) {
      return concatLists(values(fieldIndices == null ? null : fieldIndices.get(c)), values(ciFieldIndices == null ? null : ciFieldIndices.get(c)));
    }

    synchronized public void addCIFieldIndex(Class<? extends Concept> c, String field, IFieldIndex index) {
      if (ciFieldIndices == null)
        ciFieldIndices = new HashMap();
      Map<String, IFieldIndex> map = ciFieldIndices.get(c);
      if (map == null)
        ciFieldIndices.put(c, map = new HashMap());
      map.put(field, index);
    }

    synchronized public void removeCIFieldIndex(Class<? extends Concept> c, String field) {
      Map<String, IFieldIndex> map = mapGet(ciFieldIndices, c);
      mapRemove(map, field);
    }

    synchronized public IFieldIndex getCIFieldIndex(Class<? extends Concept> c, String field) {
      if (ciFieldIndices == null)
        return null;
      Map<String, IFieldIndex> map = ciFieldIndices.get(c);
      return map == null ? null : map.get(field);
    }

    public RC xnew(String name, Object... values) {
      return new RC(cnew(name, values));
    }

    public void xset(long id, String field, Object value) {
      xset(new RC(id), field, value);
    }

    public void xset(RC c, String field, Object value) {
      if (value instanceof RC)
        value = getConcept((RC) value);
      cset(getConcept(c), field, value);
    }

    public Object xget(long id, String field) {
      return xget(new RC(id), field);
    }

    public Object xget(RC c, String field) {
      return xgetPost(cget(getConcept(c), field));
    }

    public Object xgetPost(Object o) {
      o = deref(o);
      if (o instanceof Concept)
        return new RC((Concept) o);
      return o;
    }

    public void xdelete(long id) {
      xdelete(new RC(id));
    }

    public void xdelete(RC c) {
      getConcept(c).delete();
    }

    public void xdelete(List<RC> l) {
      for (RC c : l) xdelete(c);
    }

    public List<RC> xlist() {
      return map("toPassRef", allConcepts());
    }

    public List<RC> xlist(String className) {
      return map("toPassRef", conceptsOfType(className));
    }

    public boolean isTransient() {
      return eq(programID, "-");
    }

    public String xfullgrab() {
      if (noXFullGrab)
        throw fail("no xfullgrab (DB too large)");
      Lock __1 = lock();
      lock(__1);
      try {
        if (changes == changesWritten && !isTransient())
          return loadConceptsStructure(programID);
        return fullStructure();
      } finally {
        unlock(__1);
      }
    }

    public void xshutdown() {
      cleanKillVM();
    }

    public long xchangeCount() {
      return changes;
    }

    public int xcount() {
      return countConcepts();
    }

    public void register(Concept c) {
      ping();
      if (c._concepts == this)
        return;
      if (c._concepts != null)
        throw fail("Can't re-register");
      c.id = internalID();
      c.created = now();
      if (modifyOnCreate)
        c._setModified(c.created);
      register_phase2(c);
      vmBus_send("conceptCreated", c);
      fireChange(new ConceptCreate(c));
    }

    public void register_phase2(Concept c) {
      c._concepts = this;
      concepts.put((long) c.id, c);
      for (Concept.Ref r : c._refs()) r.index();
      c.change();
      c._onRegistered();
    }

    public void registerKeepingID(Concept c) {
      if (c._concepts == this)
        return;
      if (c._concepts != null)
        throw fail("Can't re-register");
      c._concepts = this;
      concepts.put((long) c.id, c);
      c.change();
    }

    public void conceptChanged(Concept c) {
      fireChange(new ConceptChange(c));
      if (conceptIndices != null)
        for (IConceptIndex index : clonedConceptIndices()) index.update(c);
    }

    public boolean hasUnsavedData() {
      return changes != changesWritten || savingConcepts;
    }

    synchronized public Object miscMapGet(Object key) {
      return mapGet(miscMap, key);
    }

    synchronized public Object miscMapPut(Object key, Object value) {
      if (miscMap == null)
        miscMap = new HashMap();
      return miscMap.put(key, value);
    }

    synchronized public void miscMapRemove(Object key) {
      mapRemove(miscMap, key);
    }

    synchronized public <A> A miscMapGetOrCreate(Object key, IF0<A> create) {
      if (containsKey(miscMap, key))
        return (A) miscMap.get(key);
      A value = create.get();
      miscMapPut(key, value);
      return value;
    }

    public void setParent(Concepts parent) {
      this.parent = parent;
    }

    public void fireChange(ConceptsChange change) {
      if (change == null)
        return;
      pcallFAll(onChange, change);
      fireLegacyChangeEvent();
    }

    final public void onChange(IVF1<ConceptsChange> l) {
      addChangeListener(l);
    }

    public void addChangeListener(IVF1<ConceptsChange> l) {
      syncAdd(onChange, l);
    }

    public void removeChangeListener(IVF1<ConceptsChange> l) {
      syncRemove(onChange, l);
    }

    public void addPreSave(Runnable r) {
      preSave = syncAddOrCreate(preSave, r);
    }

    public String toString() {
      return nConcepts(concepts) + " (" + conceptsDir() + ", hash: " + identityHashCode(this) + ")";
    }
  }

  public interface IConcept {

    public long _conceptID();

    public Concepts concepts();
  }

  static public class Concept extends DynamicObject implements IConcept, ChangeTriggerable {

    transient public Concepts _concepts;

    public long id;

    public long created, _modified;

    public List<Ref> backRefs;

    public Concept(String className) {
      super(className);
      _created();
    }

    public Concept() {
      if (!_loading()) {
        _created();
      }
    }

    public Concept(boolean unlisted) {
      if (!unlisted)
        _created();
    }

    public boolean includeZeroIDInToString() {
      return false;
    }

    public String toString() {
      String s = shortDynamicClassName(this);
      long id = this.id;
      if (id != 0 || includeZeroIDInToString())
        s += " " + id;
      return s;
    }

    static public boolean loading() {
      return _loading();
    }

    static public boolean _loading() {
      return dynamicObjectIsLoading();
    }

    public void _created() {
      if (!concepts_unlistedByDefault && !eq(concepts_unlisted.get(), true))
        db_mainConcepts().register(this);
    }

    public class TypedRef<A extends Concept, B> extends Ref<A> {

      public TypedRef() {
      }

      public Class<B> bType;

      public TypedRef(Class<B> bType) {
        this.bType = bType;
      }

      public TypedRef(Class<B> bType, B value) {
        this.bType = bType;
        set((A) value);
      }

      public TypedRef(B value) {
        set((A) value);
      }

      public boolean set(A a) {
        return super.set(checkValue(a));
      }

      public void check() {
        checkValue(get());
      }

      public <C> C checkValue(C a) {
        if (bType != null && a != null)
          assertIsInstance(a, bType);
        return a;
      }

      public B b() {
        return (B) value;
      }
    }

    public class Ref<A extends Concept> implements IRef<A> {

      public A value;

      public Ref() {
        if (!dynamicObjectIsLoading())
          registerRef();
      }

      public void registerRef() {
        vmBus_send("registeringConceptRef", this);
      }

      public Ref(A value) {
        this.value = value;
        registerRef();
        index();
      }

      public Concept concept() {
        return Concept.this;
      }

      public A get() {
        return value;
      }

      public boolean has() {
        return value != null;
      }

      public boolean set(A a) {
        if (a == value)
          return false;
        unindex();
        value = a;
        index();
        change();
        return true;
      }

      public void setIfEmpty(A a) {
        if (!has())
          set(a);
      }

      public void set(Ref<A> ref) {
        set(ref.get());
      }

      public void clear() {
        set((A) null);
      }

      public boolean validRef() {
        return value != null && _concepts != null && _concepts == value._concepts;
      }

      public void index() {
        if (validRef()) {
          value._addBackRef(this);
          change();
        }
      }

      public Ref<A> unindex() {
        if (validRef()) {
          value._removeBackRef(this);
          change();
        }
        return this;
      }

      public void unindexAndDrop() {
        unindex();
        _removeRef(this);
      }

      public void change() {
        Concept.this.change();
      }

      public String toString() {
        return str(value);
      }
    }

    public class RefL<A extends Concept> extends AbstractList<A> {

      public List<Ref<A>> l = new ArrayList();

      public RefL() {
      }

      public RefL(List<A> l) {
        replaceWithList(l);
      }

      public void clear() {
        while (!isEmpty()) removeLast(this);
      }

      public void replaceWithList(List<A> l) {
        clear();
        for (A a : unnullForIteration(l)) add(a);
      }

      public A set(int i, A o) {
        Ref<A> ref = syncGet(l, i);
        A prev = ref.get();
        ref.set(o);
        return prev;
      }

      public void add(int i, A o) {
        syncAdd(l, i, new Ref(o));
      }

      public A get(int i) {
        return syncGet(l, i).get();
      }

      public A remove(int i) {
        return syncRemove(l, i).get();
      }

      public int size() {
        return syncL(l);
      }

      public boolean contains(Object o) {
        if (o instanceof Concept)
          for (Ref<A> r : l) if (eq(r.get(), o))
            return true;
        return super.contains(o);
      }
    }

    public void delete() {
      for (Ref r : unnullForIteration(_refs())) r.unindex();
      for (Ref r : cloneList(backRefs)) r.set((Concept) null);
      backRefs = null;
      var _concepts = this._concepts;
      if (_concepts != null) {
        _concepts.concepts.remove(id);
        _concepts.fireChange(new ConceptDelete(id, this));
        if (_concepts.conceptIndices != null)
          for (IConceptIndex index : _concepts.conceptIndices) index.remove(this);
        this._concepts = null;
      }
      id = 0;
    }

    public BaseXRef export() {
      return new BaseXRef(_concepts.progID(), id);
    }

    final public void _change() {
      change();
    }

    public void change() {
      _setModified(now());
      _change_withoutUpdatingModifiedField();
    }

    public void _setModified(long modified) {
      _modified = modified;
    }

    final public void _change_withoutUpdatingModifiedField() {
      _onChange();
      if (_concepts != null)
        _concepts.conceptChanged(this);
    }

    public void _onChange() {
    }

    public String _programID() {
      return _concepts == null ? getDBProgramID() : _concepts.progID();
    }

    public void _addBackRef(Concept.Ref ref) {
      backRefs = addDyn_quickSync(backRefs, ref);
      _backRefsModified();
    }

    public void _backRefsModified() {
      if (_concepts != null && _concepts.modifyOnBackRef)
        change();
    }

    public void _removeBackRef(Concept.Ref ref) {
      backRefs = removeDyn_quickSync(backRefs, ref);
      _backRefsModified();
    }

    public void _removeRef(Concept.Ref ref) {
    }

    public int _backRefCount() {
      return syncL(backRefs);
    }

    final public void setField(String field, Object value) {
      _setField(field, value);
    }

    public void _setField(String field, Object value) {
      cset(this, field, value);
    }

    public boolean setField_trueIfChanged(String field, Object value) {
      return cset(this, field, value) != 0;
    }

    public <A> A setFieldAndReturn(String field, A value) {
      setField(field, value);
      return value;
    }

    final public void setFields(Object... values) {
      _setFields(values);
    }

    public void _setFields(Object... values) {
      cset(this, values);
    }

    public Concepts concepts() {
      return _concepts;
    }

    public boolean isDeleted() {
      return id == 0;
    }

    public void _doneLoading() {
    }

    public void _doneLoading2() {
      Map<String, FieldMigration> map = _fieldMigrations();
      if (map != null)
        for (Map.Entry<? extends String, ? extends FieldMigration> __0 : _entrySet(map)) {
          String oldField = __0.getKey();
          FieldMigration m = __0.getValue();
          crenameField_noOverwrite(this, oldField, m.newField);
        }
    }

    static public class FieldMigration implements IFieldsToList {

      public String newField;

      public FieldMigration() {
      }

      public FieldMigration(String newField) {
        this.newField = newField;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + newField + ")";
      }

      public boolean equals(Object o) {
        if (!(o instanceof FieldMigration))
          return false;
        FieldMigration __6 = (FieldMigration) o;
        return eq(newField, __6.newField);
      }

      public int hashCode() {
        int h = 558692372;
        h = boostHashCombine(h, _hashCode(newField));
        return h;
      }

      public Object[] _fieldsToList() {
        return new Object[] { newField };
      }
    }

    public Map<String, FieldMigration> _fieldMigrations() {
      return null;
    }

    public Collection<Ref> _refs() {
      return scanConceptForRefs(this);
    }

    public Concepts _concepts() {
      return _concepts;
    }

    public boolean _conceptsDefunct() {
      return _concepts != null && _concepts.defunct;
    }

    public boolean _conceptsDefunctOrUnregistered() {
      return _concepts == null || _concepts.defunct;
    }

    public void _onRegistered() {
    }

    public <A> boolean addAndChange(Collection<A> cl, A a) {
      if (cl == null || !cl.add(a))
        return false;
      change();
      return true;
    }

    public <A> void clearAndChange(Collection<A> cl) {
      if (cl == null)
        return;
      cl.clear();
      change();
    }

    public File conceptsDir() {
      var concepts = concepts();
      return concepts == null ? null : concepts.conceptsDir();
    }

    public File fileInConceptsDir(String name) {
      var dir = conceptsDir();
      return dir == null ? null : newFile(dir, name);
    }

    public long _conceptID() {
      return id;
    }
  }

  static public class RC {

    transient public Object owner;

    public String id;

    public RC() {
    }

    public RC(long id) {
      this.id = str(id);
    }

    public RC(Object owner, long id) {
      this.id = str(id);
      this.owner = owner;
    }

    public RC(Concept c) {
      this(c.id);
    }

    public long longID() {
      return parseLong(id);
    }

    public String toString() {
      return id;
    }

    transient public RemoteDB db;

    public String getString(String field) {
      return db.xS(this, field);
    }

    public Object get(String field) {
      return db.xget(this, field);
    }

    public void set(String field, Object value) {
      db.xset(this, field, value);
    }
  }

  static public class BaseXRef {

    public String programID;

    public long id;

    public BaseXRef() {
    }

    public BaseXRef(String programID, long id) {
      this.id = id;
      this.programID = programID;
    }

    public boolean equals(Object o) {
      if (!(o instanceof BaseXRef))
        return false;
      BaseXRef r = (BaseXRef) o;
      return eq(programID, r.programID) && eq(id, r.id);
    }

    public int hashCode() {
      return programID.hashCode() + (int) id;
    }
  }

  static public class XRef extends Concept {

    public BaseXRef ref;

    public XRef() {
    }

    public XRef(BaseXRef ref) {
      this.ref = ref;
      _doneLoading2();
    }

    public void _doneLoading2() {
      getIndex().put(ref, this);
    }

    public HashMap<BaseXRef, XRef> getIndex() {
      return getXRefIndex(_concepts);
    }
  }

  static synchronized public HashMap<BaseXRef, XRef> getXRefIndex(Concepts concepts) {
    HashMap cache = (HashMap) concepts.perClassData().get(XRef.class);
    if (cache == null)
      concepts.perClassData.put(XRef.class, cache = new HashMap());
    return cache;
  }

  static public XRef lookupOrCreateXRef(BaseXRef ref) {
    XRef xref = getXRefIndex(db_mainConcepts()).get(ref);
    if (xref == null)
      xref = new XRef(ref);
    return xref;
  }

  static public void loadAndAutoSaveConcepts() {
    db_mainConcepts().persist();
  }

  static public void loadAndAutoSaveConcepts(int interval) {
    db_mainConcepts().persist(interval);
  }

  static public RC toPassRef(Concept c) {
    return new RC(c);
  }

  static public void concepts_setUnlistedByDefault(boolean b) {
    concepts_unlistedByDefault = b;
  }

  static public class ClassMaker<A> {

    final public String getClassName() {
      return className();
    }

    public String className() {
      return className;
    }

    public String className;

    final public ClassGen getCg() {
      return cg();
    }

    public ClassGen cg() {
      return cg;
    }

    public ClassGen cg;

    public JavaClass baked;

    public InMemoryClassLoader classLoader;

    public Class loadedClass;

    final public ClassMaker<A> setPrintDisassembly(boolean printDisassembly) {
      return printDisassembly(printDisassembly);
    }

    public ClassMaker<A> printDisassembly(boolean printDisassembly) {
      this.printDisassembly = printDisassembly;
      return this;
    }

    final public boolean getPrintDisassembly() {
      return printDisassembly();
    }

    public boolean printDisassembly() {
      return printDisassembly;
    }

    public boolean printDisassembly = false;

    final public ClassMaker<A> setSuperClassName(String superClassName) {
      return superClassName(superClassName);
    }

    public ClassMaker<A> superClassName(String superClassName) {
      this.superClassName = superClassName;
      return this;
    }

    final public String getSuperClassName() {
      return superClassName();
    }

    public String superClassName() {
      return superClassName;
    }

    public String superClassName = "java.lang.Object";

    final public ClassMaker<A> setFileName(String fileName) {
      return fileName(fileName);
    }

    public ClassMaker<A> fileName(String fileName) {
      this.fileName = fileName;
      return this;
    }

    final public String getFileName() {
      return fileName();
    }

    public String fileName() {
      return fileName;
    }

    public String fileName;

    public ClassMaker(String className) {
      this(className, null);
    }

    public ClassMaker(String className, String superClassName, String[] interfaces) {
      this.superClassName = superClassName;
      this.className = className;
      setClassGen(new ClassGen(className, superClassName, fileName, Const.ACC_PUBLIC, interfaces));
    }

    public ClassMaker(String className, String[] interfaces) {
      this.className = className;
      setClassGen(new ClassGen(className, superClassName, fileName, Const.ACC_PUBLIC, interfaces));
    }

    public ClassMaker(Class<A> interfaceToImplement) {
      className = randomClassName();
      setClassGen(new ClassGen(className, "java.lang.Object", null, Const.ACC_PUBLIC, new String[] { main.className(interfaceToImplement) }));
      addDefaultConstructor();
    }

    public void addDefaultConstructor() {
      cg.addEmptyConstructor(Const.ACC_PUBLIC);
    }

    public void setClassGen(ClassGen cg) {
      this.cg = cg;
      cg.setMajor(50);
      cg.setMinor(0);
    }

    public JavaClass bake() {
      if (baked == null) {
        baked = cg.getJavaClass();
        if (printDisassembly)
          printClassWithMethods();
      }
      return baked;
    }

    public void printClassWithMethods() {
      print_tabToSingleSpace(bake());
      for (var method : baked.getMethods()) {
        print_tabToSingleSpace("\n" + method);
        print_tabToSingleSpace(method.getCode());
      }
    }

    public byte[] getBytes_cache;

    final public byte[] getBytes() {
      if (getBytes_cache == null)
        getBytes_cache = getBytes_load();
      return getBytes_cache;
    }

    final public byte[] getBytes_load() {
      return toBytes();
    }

    public byte[] toBytes() {
      return bake().getBytes();
    }

    public Class<A> load() {
      if (loadedClass == null) {
        var bytes = toBytes();
        classLoader = new InMemoryClassLoader(myClassLoader());
        loadedClass = (Class) classLoader.defineAClass(className, bytes);
      }
      return loadedClass;
    }

    public A newInstance() {
      return main.newInstance(load());
    }

    public void addField(FieldGen fg) {
      cg.addField(fg.getField());
    }

    public ConstantPoolGen getConstantPool() {
      return cg.getConstantPool();
    }
  }

  public interface IBackgroundProcesses {

    public IBackgroundProcess tempAdd(String name);
  }

  static public class PicturesByMD5 implements IFieldsToList {

    public File dir;

    public PicturesByMD5() {
    }

    public PicturesByMD5(File dir) {
      this.dir = dir;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + dir + ")";
    }

    public Object[] _fieldsToList() {
      return new Object[] { dir };
    }

    final public PicturesByMD5 setExtension(String extension) {
      return extension(extension);
    }

    public PicturesByMD5 extension(String extension) {
      this.extension = extension;
      return this;
    }

    final public String getExtension() {
      return extension();
    }

    public String extension() {
      return extension;
    }

    public String extension = ".jpeg";

    transient public Lock lock = lock();

    transient public VarWithNotify<Integer> imageCount = new VarWithNotify();

    public File imageFile(String md5) {
      return newFile(dir, assertMD5(md5) + extension);
    }

    public boolean has(String md5) {
      return isFile(imageFile(md5));
    }

    public BufferedImage get(String md5) {
      return decodeImage(imageFile(md5));
    }

    transient public IF1<File, BufferedImage> decodeImage;

    public BufferedImage decodeImage(File f) {
      return decodeImage != null ? decodeImage.get(f) : decodeImage_base(f);
    }

    final public BufferedImage decodeImage_fallback(IF1<File, BufferedImage> _f, File f) {
      return _f != null ? _f.get(f) : decodeImage_base(f);
    }

    public BufferedImage decodeImage_base(File f) {
      return loadImage2(f);
    }

    public boolean put(String md5, byte[] imageData) {
      if (has(md5))
        return false;
      Lock __0 = lock;
      lock(__0);
      try {
        if (has(md5))
          return false;
        saveBinaryFile(imageFile(md5), imageData);
        if (imageCount.has())
          imageCount.set(imageCount() + 1);
        return true;
      } finally {
        unlock(__0);
      }
    }

    public int freshImageCount() {
      Lock __1 = lock;
      lock(__1);
      try {
        return setAndReturn(imageCount, l(freshImageFiles()));
      } finally {
        unlock(__1);
      }
    }

    public List<File> freshImageFiles() {
      return listFilesWithExtension(dir, extension);
    }

    public int imageCount() {
      Lock __2 = lock;
      lock(__2);
      try {
        if (!imageCount.has())
          freshImageCount();
        return imageCount.get();
      } finally {
        unlock(__2);
      }
    }

    public IVarWithNotify varImageCount() {
      return imageCount;
    }
  }

  abstract static public class Sleeping implements AutoCloseable, IFieldsToList {

    public Timestamp targetTime;

    public Runnable action;

    public Sleeping() {
    }

    public Sleeping(Timestamp targetTime, Runnable action) {
      this.action = action;
      this.targetTime = targetTime;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + targetTime + ", " + action + ")";
    }

    public Object[] _fieldsToList() {
      return new Object[] { targetTime, action };
    }

    public long remainingMS() {
      return targetTime.minus(tsNow());
    }
  }

  static public class G22Label extends ConceptWithGlobalID {

    public String name;

    public String toString() {
      return name;
    }

    final public boolean textIs(String text) {
      return nameIs(text);
    }

    public boolean nameIs(String text) {
      return eqic(name, text);
    }
  }

  static public class TokenRange extends IntRange {

    public TokenRange() {
    }

    public TokenRange(int start, int end) {
      this.end = end;
      this.start = start;
    }
  }

  public interface G22MasterStuff {

    public RunnablesReferenceQueue runnablesReferenceQueue();

    public EphemeralObjectIDs ephemeralObjectIDs();

    public File databasesMotherDir();

    public boolean projectExists(String name);

    default public IG22LoadedDB openDatabase(File dir) {
      return openDatabase(dir, false);
    }

    public IG22LoadedDB openDatabase(File dir, boolean hidden);

    default public IG22LoadedDB openDB(String dbName) {
      return openDB(dbName, false);
    }

    public IG22LoadedDB openDB(String dbName, boolean hidden);

    public void closeDatabase(File dir);

    public void switchToDatabase(File dir);

    public Collection<File> openConceptDirs();

    public IG22LoadedDB getLoadedDB(Concepts concepts);

    public IG22LoadedDB getLoadedDBForConceptDir(File dir);

    default public Collection<? extends IG22LoadedDB> openProjects() {
      return getLoadedDBs();
    }

    public Collection<? extends IG22LoadedDB> getLoadedDBs();

    public G22MasterStuff onLoadedDBsChange(Runnable r);

    public G22MasterStuff removeLoadedDBsChangeListener(Runnable r);

    public IG22LoadedDB reopenDB(IG22LoadedDB db);

    public IF1<String, Class> makeClassFinder();

    public IF0WithChangeListeners<Integer> lvGazelleUserCount();

    public ILASClassLoader lasClassLoader();

    public boolean devMode();

    public void newClassesDefined();

    public G22MasterStuff onNewClassesDefined(Runnable r);

    public G22MasterStuff removeNewClassesDefinedListener(Runnable r);

    default public boolean isConceptDirLoaded(File dir) {
      return getLoadedDBForConceptDir(dir) != null;
    }

    public void restart();
  }

  static public class FileWatchService implements AutoCloseable {

    final public FileWatchService setInterval(int interval) {
      return interval(interval);
    }

    public FileWatchService interval(int interval) {
      this.interval = interval;
      return this;
    }

    final public int getInterval() {
      return interval();
    }

    public int interval() {
      return interval;
    }

    public int interval = 50;

    public int sleepSeconds = 60;

    public WatchService watchService;

    public MultiMap<WatchKey, IVF1<File>> listeners = new MultiMap();

    public Thread pollThread;

    volatile public boolean closed = false;

    public FileWatchService() {
      try {
        watchService = FileSystems.getDefault().newWatchService();
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void close() {
      closed = true;
      {
        cleanUp(watchService);
        watchService = null;
      }
    }

    public WatchKey addListenerImpl(File path, IVF1<File> listener, WatchEvent.Kind... eventKinds) {
      try {
        if (path == null)
          return null;
        startPollThread();
        WatchKey key = path.toPath().register(watchService, eventKinds);
        listeners.put(key, listener);
        return key;
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void addNonRecursiveListener(File path, IVF1<File> listener) {
      addListenerImpl(path, listener, jdk_watchService_allEventKinds());
    }

    public void addRecursiveListener(File path, IVF1<File> listener) {
      Set<File> listeningTo = synchroSet();
      IVF1<File> listener2 = new IVF1<File>() {

        public void get(File f) {
          boolean isDir = f.isDirectory();
          if (isDir && listeningTo.add(f))
            try {
              addListenerImpl(f, this, jdk_watchService_allEventKinds());
            } catch (Throwable __e) {
              print(exceptionToStringShort(__e));
            }
          callF(listener, f);
        }
      };
      addListenerImpl(path, listener2, jdk_watchService_allEventKinds());
      for (File subDir : findAllDirs(path)) addListenerImpl(subDir, listener2, jdk_watchService_allEventKinds());
    }

    synchronized public void startPollThread() {
      if (pollThread != null)
        return;
      pollThread = startThread("File Watch Service", new Runnable() {

        public void run() {
          try {
            try {
              while (licensed() && !closed) {
                WatchKey key = watchService.poll(sleepSeconds, TimeUnit.SECONDS);
                if (key != null) {
                  Path dir = (Path) (key.watchable());
                  sleep(interval);
                  List<WatchEvent<?>> events = key.pollEvents();
                  LinkedHashSet<File> changedFiles = new LinkedHashSet();
                  for (WatchEvent<?> event : reversedIterator(events)) {
                    try {
                      final Path changed = (Path) event.context();
                      if (changed == null)
                        continue;
                      File full = newFile(dir.toFile(), changed.toFile().getPath());
                      changedFiles.add(full);
                    } catch (Throwable __e) {
                      pcallFail(__e);
                    }
                  }
                  for (File f : changedFiles) pcallFAll(listeners.get(key), f);
                  key.reset();
                }
              }
            } catch (ClosedWatchServiceException e) {
            }
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "try {\r\n        while (licensed() && !closed) { \r\n          WatchKey key = wat...";
        }
      });
    }
  }

  public interface IBackgroundProcess extends AutoCloseable {

    public IBackgroundProcess setInterruptAction(Runnable action);
  }

  static abstract public class VF2<A, B> {

    abstract public void get(A a, B b);
  }

  static public class MultiSetMap<A, B> implements IMultiMap<A, B> {

    public Map<A, Set<B>> data = new HashMap<A, Set<B>>();

    public int size;

    public MultiSetMap() {
    }

    public MultiSetMap(boolean useTreeMap) {
      if (useTreeMap)
        data = new TreeMap();
    }

    public MultiSetMap(MultiSetMap<A, B> map) {
      putAll(map);
    }

    public MultiSetMap(Map<A, Set<B>> data) {
      this.data = data;
    }

    public boolean put(A key, B value) {
      synchronized (data) {
        Set<B> set = data.get(key);
        if (set == null)
          data.put(key, set = _makeEmptySet());
        if (!set.add(value))
          return false;
        {
          ++size;
          return true;
        }
      }
    }

    public boolean add(A key, B value) {
      return put(key, value);
    }

    public void addAll(A key, Collection<B> values) {
      synchronized (data) {
        putAll(key, values);
      }
    }

    public void addAllIfNotThere(A key, Collection<B> values) {
      synchronized (data) {
        for (B value : values) setPut(key, value);
      }
    }

    public void setPut(A key, B value) {
      synchronized (data) {
        if (!containsPair(key, value))
          put(key, value);
      }
    }

    final public boolean contains(A key, B value) {
      return containsPair(key, value);
    }

    public boolean containsPair(A key, B value) {
      synchronized (data) {
        return get(key).contains(value);
      }
    }

    public void putAll(A key, Collection<B> values) {
      synchronized (data) {
        for (B value : values) put(key, value);
      }
    }

    public void removeAll(A key, Collection<B> values) {
      synchronized (data) {
        for (B value : values) remove(key, value);
      }
    }

    public Set<B> get(A key) {
      synchronized (data) {
        Set<B> set = data.get(key);
        return set == null ? Collections.<B>emptySet() : set;
      }
    }

    public List<B> getAndClear(A key) {
      synchronized (data) {
        List<B> l = cloneList(data.get(key));
        remove(key);
        return l;
      }
    }

    public Set<B> getOpt(A key) {
      synchronized (data) {
        return data.get(key);
      }
    }

    public Set<B> getActual(A key) {
      synchronized (data) {
        Set<B> set = data.get(key);
        if (set == null)
          data.put(key, set = _makeEmptySet());
        return set;
      }
    }

    public void clean(A key) {
      synchronized (data) {
        Set<B> list = data.get(key);
        if (list != null && list.isEmpty())
          data.remove(key);
      }
    }

    final public Set<A> keys() {
      return keySet();
    }

    public Set<A> keySet() {
      synchronized (data) {
        return data.keySet();
      }
    }

    public void remove(A key) {
      synchronized (data) {
        size -= l(data.get(key));
        data.remove(key);
      }
    }

    public void remove(A key, B value) {
      synchronized (data) {
        Set<B> set = data.get(key);
        if (set != null) {
          if (set.remove(value)) {
            --size;
            if (set.isEmpty())
              data.remove(key);
          }
        }
      }
    }

    public void clear() {
      synchronized (data) {
        data.clear();
        size = 0;
      }
    }

    public boolean containsKey(A key) {
      synchronized (data) {
        return data.containsKey(key);
      }
    }

    public B getFirst(A key) {
      synchronized (data) {
        return first(get(key));
      }
    }

    public void addAll(MultiSetMap<A, B> map) {
      putAll(map);
    }

    public void putAll(MultiSetMap<A, B> map) {
      synchronized (data) {
        for (A key : map.keySet()) putAll(key, map.get(key));
      }
    }

    public void putAll(Map<A, B> map) {
      synchronized (data) {
        if (map != null)
          for (Map.Entry<A, B> e : map.entrySet()) put(e.getKey(), e.getValue());
      }
    }

    final public int keyCount() {
      return keysSize();
    }

    public int keysSize() {
      synchronized (data) {
        return l(data);
      }
    }

    public int size() {
      synchronized (data) {
        return size;
      }
    }

    public int getSize(A key) {
      return l(data.get(key));
    }

    public int count(A key) {
      return getSize(key);
    }

    public Set<A> reverseGet(B b) {
      synchronized (data) {
        Set<A> l = new HashSet();
        for (A key : data.keySet()) if (data.get(key).contains(b))
          l.add(key);
        return l;
      }
    }

    public A keyForValue(B b) {
      synchronized (data) {
        for (A key : data.keySet()) if (data.get(key).contains(b))
          return key;
        return null;
      }
    }

    public Map<A, Set<B>> asMap() {
      synchronized (data) {
        return cloneMap(data);
      }
    }

    public boolean isEmpty() {
      synchronized (data) {
        return data.isEmpty();
      }
    }

    public Set<B> _makeEmptySet() {
      return new HashSet();
    }

    public Collection<Set<B>> allLists() {
      synchronized (data) {
        return new HashSet(data.values());
      }
    }

    public List<B> allValues() {
      return concatLists(values(data));
    }

    public List<Pair<A, B>> allEntries() {
      synchronized (data) {
        List<Pair<A, B>> l = emptyList(size);
        for (Map.Entry<? extends A, ? extends Set<B>> __0 : _entrySet(data)) {
          A a = __0.getKey();
          Set<B> set = __0.getValue();
          for (B b : set) l.add(pair(a, b));
        }
        return l;
      }
    }

    public Object mutex() {
      return data;
    }

    public String toString() {
      return "mm" + str(data);
    }

    public Pair<A, B> firstEntry() {
      synchronized (data) {
        if (empty(data))
          return null;
        Map.Entry<A, Set<B>> entry = data.entrySet().iterator().next();
        return pair(entry.getKey(), first(entry.getValue()));
      }
    }

    public A firstKey() {
      synchronized (data) {
        return main.firstKey(data);
      }
    }

    public A lastKey() {
      synchronized (data) {
        return (A) ((NavigableMap) data).lastKey();
      }
    }

    public A higherKey(Object a) {
      synchronized (data) {
        return (A) ((NavigableMap) data).higherKey(a);
      }
    }
  }

  static public class CollapsibleLeftPanel extends MetaWithChangeListeners implements Swingable {

    public transient FieldVar<String> varSidePanelName_cache;

    public FieldVar<String> varSidePanelName() {
      if (varSidePanelName_cache == null)
        varSidePanelName_cache = varSidePanelName_load();
      return varSidePanelName_cache;
    }

    public FieldVar<String> varSidePanelName_load() {
      return new FieldVar<String>(this, "sidePanelName", () -> sidePanelName(), sidePanelName -> sidePanelName(sidePanelName));
    }

    final public CollapsibleLeftPanel setSidePanelName(String sidePanelName) {
      return sidePanelName(sidePanelName);
    }

    public CollapsibleLeftPanel sidePanelName(String sidePanelName) {
      if (!eq(this.sidePanelName, sidePanelName)) {
        this.sidePanelName = sidePanelName;
        change();
      }
      return this;
    }

    final public String getSidePanelName() {
      return sidePanelName();
    }

    public String sidePanelName() {
      return sidePanelName;
    }

    volatile public String sidePanelName;

    public JComponent sideComponent, mainComponent;

    public JSplitPane splitPane;

    public transient FieldVar<Boolean> varExpanded_cache;

    public FieldVar<Boolean> varExpanded() {
      if (varExpanded_cache == null)
        varExpanded_cache = varExpanded_load();
      return varExpanded_cache;
    }

    public FieldVar<Boolean> varExpanded_load() {
      return new FieldVar<Boolean>(this, "expanded", () -> expanded(), expanded -> expanded(expanded));
    }

    final public CollapsibleLeftPanel setExpanded(boolean expanded) {
      return expanded(expanded);
    }

    public CollapsibleLeftPanel expanded(boolean expanded) {
      if (!eq(this.expanded, expanded)) {
        this.expanded = expanded;
        change();
      }
      return this;
    }

    final public boolean getExpanded() {
      return expanded();
    }

    public boolean expanded() {
      return expanded;
    }

    volatile public boolean expanded = false;

    public SingleComponentPanel scp = singleComponentPanel();

    public CollapsibleLeftPanel(boolean expanded, String sidePanelName, JComponent sideComponent, JComponent mainComponent) {
      this.mainComponent = mainComponent;
      this.sideComponent = sideComponent;
      this.sidePanelName = sidePanelName;
      this.expanded = expanded;
    }

    public void expand() {
      if (scaffolding())
        print("CollapsibleLeftPanel.expand");
      setExpanded(true);
    }

    public void collapse() {
      setExpanded(false);
    }

    public void updateScp() {
      swing(() -> {
        if (metaGet("scaffolding") != null)
          scaffoldCalled(this, "updateScp");
        if (expanded) {
          splitPane().setRightComponent(jMinWidth0(mainComponent));
          scp.set(splitPane());
        } else {
          splitPane().setRightComponent(jMinWidth0(jpanel()));
          scp.set(westAndCenterWithMargin(sidePanelMargins(vstack(expandButton())), mainComponent));
        }
      });
    }

    public JComponent expandButton() {
      return jClickableImage_instantToolTip("#1103075", "Expand " + sidePanelName, new Runnable() {

        public void run() {
          try {
            expand();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "expand();";
        }
      });
    }

    public JComponent collapseButton() {
      return jClickableImage_instantToolTip("#1103076", "Collapse " + sidePanelName, new Runnable() {

        public void run() {
          try {
            collapse();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "collapse();";
        }
      });
    }

    public JComponent wrappedSideComponent() {
      return sidePanelMargins(northAndCenterWithMargin(westAndCenterWithMargin(collapseButton(), liveValueLabel(varSidePanelName())), sideComponent));
    }

    public JSplitPane splitPane() {
      if (scaffolding())
        print("splitPane " + splitPane);
      if (splitPane == null) {
        splitPane = jhsplit_minZero(0.25, wrappedSideComponent(), null);
        varExpanded().onChangeAndNow(new Runnable() {

          public void run() {
            try {
              updateScp();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "updateScp();";
          }
        });
      }
      return splitPane;
    }

    transient public IF1<JComponent, JComponent> sidePanelMargins;

    public JComponent sidePanelMargins(JComponent c) {
      return sidePanelMargins != null ? sidePanelMargins.get(c) : sidePanelMargins_base(c);
    }

    final public JComponent sidePanelMargins_fallback(IF1<JComponent, JComponent> _f, JComponent c) {
      return _f != null ? _f.get(c) : sidePanelMargins_base(c);
    }

    public JComponent sidePanelMargins_base(JComponent c) {
      return c;
    }

    public JComponent visualize() {
      splitPane();
      return scp;
    }
  }

  static public class SimpleCRUD_v2<A extends Concept> extends JConceptsTable<A> {

    public JPanel buttons, panel;

    public Set<String> unshownFields;

    public Set<String> excludeFieldsFromEditing;

    public String modifiedField;

    public TableSearcher tableSearcher;

    public Set<String> multiLineFields;

    public Set<String> dontDuplicateFields;

    public int formFixer = 12;

    public boolean showBackRefs = false;

    public int maxRefsToShow = 3;

    public boolean showClassNameSelectors = false;

    public boolean allowNewFields = false;

    public int newFieldsToShow = 3;

    public boolean emptyStringsToNull = false;

    public int formLabelsWidth = 100;

    final public SimpleCRUD_v2<A> setShowSearchBar(boolean showSearchBar) {
      return showSearchBar(showSearchBar);
    }

    public SimpleCRUD_v2<A> showSearchBar(boolean showSearchBar) {
      this.showSearchBar = showSearchBar;
      return this;
    }

    final public boolean getShowSearchBar() {
      return showSearchBar();
    }

    public boolean showSearchBar() {
      return showSearchBar;
    }

    public boolean showSearchBar = true;

    final public SimpleCRUD_v2<A> setShowAddButton(boolean showAddButton) {
      return showAddButton(showAddButton);
    }

    public SimpleCRUD_v2<A> showAddButton(boolean showAddButton) {
      this.showAddButton = showAddButton;
      return this;
    }

    final public boolean getShowAddButton() {
      return showAddButton();
    }

    public boolean showAddButton() {
      return showAddButton;
    }

    public boolean showAddButton = true;

    final public SimpleCRUD_v2<A> setShowEditButton(boolean showEditButton) {
      return showEditButton(showEditButton);
    }

    public SimpleCRUD_v2<A> showEditButton(boolean showEditButton) {
      this.showEditButton = showEditButton;
      return this;
    }

    final public boolean getShowEditButton() {
      return showEditButton();
    }

    public boolean showEditButton() {
      return showEditButton;
    }

    public boolean showEditButton = true;

    final public SimpleCRUD_v2<A> setShowDeleteButton(boolean showDeleteButton) {
      return showDeleteButton(showDeleteButton);
    }

    public SimpleCRUD_v2<A> showDeleteButton(boolean showDeleteButton) {
      this.showDeleteButton = showDeleteButton;
      return this;
    }

    final public boolean getShowDeleteButton() {
      return showDeleteButton();
    }

    public boolean showDeleteButton() {
      return showDeleteButton;
    }

    public boolean showDeleteButton = true;

    final public SimpleCRUD_v2<A> setShowDuplicateButton(boolean showDuplicateButton) {
      return showDuplicateButton(showDuplicateButton);
    }

    public SimpleCRUD_v2<A> showDuplicateButton(boolean showDuplicateButton) {
      this.showDuplicateButton = showDuplicateButton;
      return this;
    }

    final public boolean getShowDuplicateButton() {
      return showDuplicateButton();
    }

    public boolean showDuplicateButton() {
      return showDuplicateButton;
    }

    public boolean showDuplicateButton = true;

    final public SimpleCRUD_v2<A> setIconButtons(boolean iconButtons) {
      return iconButtons(iconButtons);
    }

    public SimpleCRUD_v2<A> iconButtons(boolean iconButtons) {
      this.iconButtons = iconButtons;
      return this;
    }

    final public boolean getIconButtons() {
      return iconButtons();
    }

    public boolean iconButtons() {
      return iconButtons;
    }

    public boolean iconButtons = false;

    final public SimpleCRUD_v2<A> setEditWindowScrollable(boolean editWindowScrollable) {
      return editWindowScrollable(editWindowScrollable);
    }

    public SimpleCRUD_v2<A> editWindowScrollable(boolean editWindowScrollable) {
      this.editWindowScrollable = editWindowScrollable;
      return this;
    }

    final public boolean getEditWindowScrollable() {
      return editWindowScrollable();
    }

    public boolean editWindowScrollable() {
      return editWindowScrollable;
    }

    public boolean editWindowScrollable = false;

    final public SimpleCRUD_v2<A> setScrollableButtons(boolean scrollableButtons) {
      return scrollableButtons(scrollableButtons);
    }

    public SimpleCRUD_v2<A> scrollableButtons(boolean scrollableButtons) {
      this.scrollableButtons = scrollableButtons;
      return this;
    }

    final public boolean getScrollableButtons() {
      return scrollableButtons();
    }

    public boolean scrollableButtons() {
      return scrollableButtons;
    }

    public boolean scrollableButtons = false;

    public SingleComponentPanel scpButtonFiller;

    public JComponent wrappedButtonBar;

    transient public Set<IVF1<A>> onConceptSaved;

    public SimpleCRUD_v2<A> onConceptSaved(IVF1<A> f) {
      onConceptSaved = createOrAddToSyncLinkedHashSet(onConceptSaved, f);
      return this;
    }

    public SimpleCRUD_v2<A> removeConceptSavedListener(IVF1<A> f) {
      main.remove(onConceptSaved, f);
      return this;
    }

    public void conceptSaved(A concept) {
      if (onConceptSaved != null)
        for (var listener : onConceptSaved) pcallF_typed(listener, concept);
    }

    public SimpleCRUD_v2(Class<A> conceptClass) {
      super(conceptClass);
    }

    public SimpleCRUD_v2(Concepts concepts, Class<A> conceptClass) {
      super(concepts, conceptClass);
    }

    public SimpleCRUD_v2<A> show(String frameTitle) {
      make();
      showFrame(frameTitle, panel);
      return this;
    }

    public SimpleCRUD_v2<A> show() {
      return show(entityNamePlural());
    }

    public SimpleCRUD_v2<A> showMaximized() {
      show();
      maximizeFrame(panel);
      return this;
    }

    public JPanel makePanel() {
      return make();
    }

    public JPanel make() {
      db();
      framesBot();
      return make_dontStartBots();
    }

    transient public IF1<A, Map<String, Object>> itemToMap_inner;

    public Map<String, Object> itemToMap_inner(A a) {
      return itemToMap_inner != null ? itemToMap_inner.get(a) : itemToMap_inner_base(a);
    }

    final public Map<String, Object> itemToMap_inner_fallback(IF1<A, Map<String, Object>> _f, A a) {
      return _f != null ? _f.get(a) : itemToMap_inner_base(a);
    }

    public Map<String, Object> itemToMap_inner_base(A a) {
      return super.itemToMap_base(a);
    }

    public Map<String, Object> itemToMap_base(A a) {
      Map<String, Object> map = itemToMap_inner(a);
      if (map == null)
        return null;
      return putAll(map, moreSpecialFieldsForItem(a));
    }

    transient public IF1<A, Map<String, Object>> moreSpecialFieldsForItem;

    public Map<String, Object> moreSpecialFieldsForItem(A a) {
      return moreSpecialFieldsForItem != null ? moreSpecialFieldsForItem.get(a) : moreSpecialFieldsForItem_base(a);
    }

    final public Map<String, Object> moreSpecialFieldsForItem_fallback(IF1<A, Map<String, Object>> _f, A a) {
      return _f != null ? _f.get(a) : moreSpecialFieldsForItem_base(a);
    }

    public Map<String, Object> moreSpecialFieldsForItem_base(A a) {
      Map<String, Object> map = litorderedmap();
      if (showBackRefs) {
        Collection<Concept> refs = allBackRefs(a);
        if (nempty(refs)) {
          refs = sortedByConceptID(refs);
          int more = l(refs) - maxRefsToShow;
          map.put("Referenced by", joinWithComma(takeFirst(maxRefsToShow, refs)) + (more > 0 ? ", " + more + " more" : ""));
        }
      }
      return map;
    }

    public JPanel make_dontStartBots() {
      return (JPanel) visualize();
    }

    public transient JComponent visualize_cache;

    public JComponent visualize() {
      if (visualize_cache == null)
        visualize_cache = visualize_load();
      return visualize_cache;
    }

    public JComponent visualize_load() {
      return markVisualizer(this, visualize_impl());
    }

    public JComponent visualize_impl() {
      dropFields = asList(unshownFields);
      makeTable();
      {
        swing(() -> {
          JButton deleteButton = !showDeleteButton ? null : tableDependButton(table, makeDeleteButton(new Runnable() {

            public void run() {
              try {
                List<A> l = selectedConcepts();
                withDBLock(concepts, new Runnable() {

                  public void run() {
                    try {
                      for (A c : l) c.delete();
                    } catch (Exception __e) {
                      throw rethrow(__e);
                    }
                  }

                  public String toString() {
                    return "for (A c : l) c.delete()";
                  }
                });
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "List<A> l = selectedConcepts();\r\n          withDBLock(concepts, r { for (A c ...";
            }
          }));
          buttons = jRightAlignedLine(flattenToList(!showAddButton ? null : makeAddButton(new Runnable() {

            public void run() {
              try {
                newConcept();
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "newConcept();";
            }
          }), !showEditButton || !showDuplicateButton ? null : tableDependButton(table, makeDuplicateButton(new Runnable() {

            public void run() {
              try {
                duplicateConcept(selectedConcept());
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "duplicateConcept(selectedConcept())";
            }
          })), !showEditButton ? null : tableDependButton(table, makeEditButton(new Runnable() {

            public void run() {
              try {
                editConcept(selectedConcept());
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "editConcept(selectedConcept())";
            }
          })), deleteButton));
          wrappedButtonBar = wrapButtonBar(centerAndEastWithMargin(scpButtonFiller = singleComponentPanel(), buttons));
          if (showSearchBar) {
            tableSearcher = tableWithSearcher2(table, "withMargin", true);
            panel = centerAndSouthWithMargin(tableSearcher.panel, wrappedButtonBar);
          } else
            panel = centerAndSouthWithMargin(table, wrappedButtonBar);
          var fEdit = new VF1<Integer>() {

            public void get(Integer row) {
              try {
                editConcept(getItem(row));
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "editConcept(getItem(row))";
            }
          };
          tablePopupMenuItem(table, "Edit", fEdit);
          onDoubleClick(table, fEdit);
          tablePopupMenuFirst(table, (menu, row) -> {
            Concept c = getItem(row);
            if (c != null)
              addMenuItem(menu, "Delete " + quote(shorten(str(c))), runnableThread(new Runnable() {

                public void run() {
                  try {
                    deleteConcept(c);
                  } catch (Exception __e) {
                    throw rethrow(__e);
                  }
                }

                public String toString() {
                  return "deleteConcept(c);";
                }
              }));
          });
        });
      }
      return panel;
    }

    transient public IF1<JComponent, JComponent> wrapButtonBar;

    public JComponent wrapButtonBar(JComponent buttonBar) {
      return wrapButtonBar != null ? wrapButtonBar.get(buttonBar) : wrapButtonBar_base(buttonBar);
    }

    final public JComponent wrapButtonBar_fallback(IF1<JComponent, JComponent> _f, JComponent buttonBar) {
      return _f != null ? _f.get(buttonBar) : wrapButtonBar_base(buttonBar);
    }

    public JComponent wrapButtonBar_base(JComponent buttonBar) {
      if (scrollableButtons)
        return jBorderlessHigherHorizontalScrollPane(vstack(buttonBar));
      return buttonBar;
    }

    transient public Runnable newConcept;

    public void newConcept() {
      if (newConcept != null)
        newConcept.run();
      else
        newConcept_base();
    }

    final public void newConcept_fallback(Runnable _f) {
      if (_f != null)
        _f.run();
      else
        newConcept_base();
    }

    public void newConcept_base() {
      duplicateConcept(null);
    }

    transient public IF1<A, A> createDuplicate;

    public A createDuplicate(A c) {
      return createDuplicate != null ? createDuplicate.get(c) : createDuplicate_base(c);
    }

    final public A createDuplicate_fallback(IF1<A, A> _f, A c) {
      return _f != null ? _f.get(c) : createDuplicate_base(c);
    }

    public A createDuplicate_base(A c) {
      A clone = (A) unlisted(_getClass(c));
      ccopyFieldsExcept(c, clone, dontDuplicateFields);
      return clone;
    }

    public void duplicateConcept(A oldConcept) {
      EditWindow ew = new EditWindow();
      if (oldConcept == null)
        ew.item = unlisted(conceptClass);
      else
        ew.item = createDuplicate(oldConcept);
      csetAll(ew.item, filters);
      makeComponents(ew);
      F0<Boolean> r = new F0<Boolean>() {

        public Boolean get() {
          try {
            try {
              selectAfterUpdate(ew.item);
              concepts.register(ew.item);
              saveData(ew);
            } catch (Throwable e) {
              printStackTrace(e);
              infoBox(e);
              return false;
            }
            return true;
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "try {\r\n        selectAfterUpdate(ew.item);\r\n        concepts.register(ew.item...";
        }
      };
      AutoCloseable __2 = tempSetMCOpt("formLayouter1_fixer2", formFixer);
      try {
        String title = "New " + entityName();
        title += appendBracketed(javaClassDescForItem(ew.item));
        renameSubmitButton("Create", showAForm(title, toObjectArray(listPlus(ew.matrix, r))));
      } finally {
        _close(__2);
      }
    }

    public void editConcept(A c) {
      if (c == null)
        return;
      EditWindow ew = new EditWindow();
      ew.item = c;
      makeComponents(ew);
      F0<Boolean> r = new F0<Boolean>() {

        public Boolean get() {
          try {
            try {
              if (ew.item != c) {
                print("Replacing object: " + c + " => " + ew.item);
                replaceConceptAndUpdateRefs(c, ew.item);
              }
              saveData(ew);
            } catch (Throwable e) {
              printStackTrace(e);
              infoBox(e);
              return false;
            }
            return true;
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "try {\r\n        // concept class was changed, replace object\r\n        if (ew.i...";
        }
      };
      AutoCloseable __3 = tempSetMCOpt("formLayouter1_fixer2", formFixer);
      try {
        renameSubmitButton("Save", showAForm("Edit " + entityName() + " #" + c.id, toObjectArray(listPlus(ew.matrix, r))));
      } finally {
        _close(__3);
      }
    }

    public JComponent fieldComponent(A c, String field) {
      Class type = getFieldType(c.getClass(), field);
      Type genericType = genericFieldType(conceptClass, field);
      if (type == Concept.Ref.class)
        type = getTypeArgumentAsClass(genericType);
      Object value = cget(c, field);
      if (type == null)
        type = _getClass(value);
      print("Field type: " + field + " => " + type);
      if (type == boolean.class)
        return jCenteredCheckBox(isTrue(value));
      else if (contains(multiLineFields, field) || containsNewLines(optCast(String.class, value)))
        return makeTextArea((String) value);
      else if (isSubtype(type, Concept.class))
        return jcomboboxFromConcepts_str(concepts, type, (Concept) value);
      else if (isUneditableFieldType(type))
        return jlabel(structureOrText_crud(value));
      else
        try {
          return autoComboBox(structureOrText_crud(value), new TreeSet<String>(map(__24 -> structureOrText_crud(__24), collect(list(concepts, conceptClass), field))));
        } catch (Throwable e) {
          printException(e);
          return jTextField(structureOrText_crud(value));
        }
    }

    public void saveComponent(A c, String field, JComponent comp) {
      comp = unwrap(comp);
      Class type = fieldType(c, field);
      Type genericType = genericFieldType(conceptClass, field);
      if (type == Concept.Ref.class)
        type = getTypeArgumentAsClass(genericType);
      if (comp instanceof JTextComponent) {
        String text = trimIf(!(comp instanceof JTextArea), getText((JTextComponent) comp));
        Object value = postProcessValue(text);
        Object converted = convertToField(value, c.getClass(), field);
        cset(c, field, converted);
      } else if (comp instanceof JComboBox) {
        String text = getTextTrim((JComboBox) comp);
        if (isSubtype(type, Concept.class))
          cset(c, field, getConcept(concepts, parseFirstLong(text)));
        else {
          Object value = postProcessValue(text);
          cset(c, field, convertToField(value, c.getClass(), field));
        }
      } else if (comp instanceof JCheckBox)
        cset(c, field, isChecked((JCheckBox) comp));
    }

    transient public IF1<A, Collection<String>> editableFieldsForItem;

    public Collection<String> editableFieldsForItem(A c) {
      return editableFieldsForItem != null ? editableFieldsForItem.get(c) : editableFieldsForItem_base(c);
    }

    final public Collection<String> editableFieldsForItem_fallback(IF1<A, Collection<String>> _f, A c) {
      return _f != null ? _f.get(c) : editableFieldsForItem_base(c);
    }

    public Collection<String> editableFieldsForItem_base(A c) {
      if (excludeFieldsFromEditing != null && modifiedField != null)
        excludeFieldsFromEditing.add(modifiedField);
      return listWithoutSet(conceptFieldsInOrder(c), joinSets(excludeFieldsFromEditing, unshownFields, keys(filters)));
    }

    public void excludeFieldsFromEditing(String... fields) {
      excludeFieldsFromEditing = setPlus(excludeFieldsFromEditing, fields);
    }

    public Collection<Class<? extends A>> possibleClasses() {
      return (Collection) moveItemFirst(conceptClass, dropTypeParameter(sortClassesByNameIC(myNonAbstractClassesImplementing(conceptClass))));
    }

    public JComboBox<Class<? extends A>> classSelectorComponent(A c) {
      return setComboBoxRenderer(jTypedComboBox(possibleClasses(), _getClass(c)), customToStringListCellRenderer(__80 -> shortClassName(__80)));
    }

    public class NewField {

      public JTextField tfName = jtextfield();

      public JTextField tfValue = jtextfield();

      public JComboBox cbRef = jcomboboxFromConcepts_str(concepts, conceptClass);

      public JComboBox cbType = jcombobox("String", "Reference");

      public SingleComponentPanel scpValue = singleComponentPanel();

      public JPanel panel() {
        onChangeAndNow(cbType, new Runnable() {

          public void run() {
            try {
              updateSCP();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "updateSCP();";
          }
        });
        return jhgridWithSpacing(withToolTip("Name for new field", withLabel("Name", tfName)), withLabel("Value", westAndCenterWithMargin(cbType, scpValue)));
      }

      public String typeStr() {
        return getText(cbType);
      }

      public void updateSCP() {
        scpValue.setComponent(eqic(typeStr(), "Reference") ? cbRef : withToolTip("Contents of new field", tfValue));
      }

      public String field() {
        return gtt(tfName);
      }

      public Object value() {
        return eqic(typeStr(), "Reference") ? getConcept(concepts, parseFirstLong(getText(cbRef))) : gtt(tfValue);
      }
    }

    public class EditWindow {

      public A item;

      public Map<String, JComponent> componentsByField = litorderedmap();

      public List matrix = new ArrayList();

      public JComboBox<Class<? extends A>> classSelector;

      public List<NewField> newFields = new ArrayList();
    }

    public void makeComponents(EditWindow ew) {
      if (showClassNameSelectors) {
        addAll(ew.matrix, makeLabel("Java Class"), ew.classSelector = classSelectorComponent(ew.item));
        onChange(ew.classSelector, new Runnable() {

          public void run() {
            try {
              Class<? extends A> oldClass = _getClass(ew.item);
              Class<? extends A> newClass = getSelectedItem_typed(ew.classSelector);
              if (oldClass == newClass)
                return;
              A oldItem = ew.item;
              ew.item = unlisted(newClass);
              ccopyFields(oldItem, ew.item);
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "Class<? extends A> oldClass = _getClass(ew.item);\r\n        Class<? extends A>...";
          }
        });
      }
      for (String field : editableFieldsForItem(ew.item)) {
        JComponent c = fieldComponent(ew.item, field);
        ew.componentsByField.put(field, c);
        addAll(ew.matrix, makeLabel(field), c);
      }
      if (allowNewFields && newFieldsToShow > 0) {
        addAll(ew.matrix, " ", jlabel());
        for (int i = 0; i < newFieldsToShow; i++) {
          NewField nf = new NewField();
          ew.newFields.add(nf);
          addAll(ew.matrix, makeLabel(""), nf.panel());
        }
      }
    }

    public void saveData(EditWindow ew) {
      for (Map.Entry<? extends String, ? extends JComponent> __0 : _entrySet(ew.componentsByField)) {
        String field = __0.getKey();
        JComponent component = __0.getValue();
        if (isIdentifier(field))
          saveComponent(ew.item, field, component);
      }
      for (NewField nf : ew.newFields) {
        String field = nf.field();
        Object value = nf.value();
        if (nempty(field) && notNullOrEmptyString(value))
          cset(ew.item, field, value);
      }
      if (modifiedField != null)
        cset(ew.item, modifiedField, now());
      conceptSaved(ew.item);
    }

    public Object postProcessValue(Object o) {
      if (emptyStringsToNull && eq(o, ""))
        return null;
      return o;
    }

    public JComponent makeLabel(String label) {
      return jMinWidthAtLeast(formLabelsWidth, jlabel(label));
    }

    transient public IF2<String, Object[], JComponent> showAForm;

    public JComponent showAForm(String title, Object... parts) {
      return showAForm != null ? showAForm.get(title, parts) : showAForm_base(title, parts);
    }

    final public JComponent showAForm_fallback(IF2<String, Object[], JComponent> _f, String title, Object... parts) {
      return _f != null ? _f.get(title, parts) : showAForm_base(title, parts);
    }

    public JComponent showAForm_base(String title, Object... parts) {
      JForm form = new JForm(parts).disposeFrameOnSubmit();
      var panel = form.visualize();
      showFrame(title, editWindowScrollable ? jscroll_vertical(panel) : panel);
      return panel;
    }

    public boolean isUneditableFieldType(Class type) {
      return isSubclassOfAny(type, Map.class, Collection.class, Pair.class);
    }

    public void hideField(String field) {
      hideFields(field);
    }

    public void hideFields(String... fields) {
      unshownFields = createOrAddToSet(unshownFields, fields);
    }

    transient public IF0<String> entityName;

    public String entityName() {
      return entityName != null ? entityName.get() : entityName_base();
    }

    final public String entityName_fallback(IF0<String> _f) {
      return _f != null ? _f.get() : entityName_base();
    }

    public String entityName_base() {
      return shortClassName(conceptClass);
    }

    transient public IF0<String> entityNamePlural;

    public String entityNamePlural() {
      return entityNamePlural != null ? entityNamePlural.get() : entityNamePlural_base();
    }

    final public String entityNamePlural_fallback(IF0<String> _f) {
      return _f != null ? _f.get() : entityNamePlural_base();
    }

    public String entityNamePlural_base() {
      return plural(entityName());
    }

    transient public IF0<String> entityNameLower;

    public String entityNameLower() {
      return entityNameLower != null ? entityNameLower.get() : entityNameLower_base();
    }

    final public String entityNameLower_fallback(IF0<String> _f) {
      return _f != null ? _f.get() : entityNameLower_base();
    }

    public String entityNameLower_base() {
      return firstToLower(entityName());
    }

    transient public IF0<String> entityNamePluralLower;

    public String entityNamePluralLower() {
      return entityNamePluralLower != null ? entityNamePluralLower.get() : entityNamePluralLower_base();
    }

    final public String entityNamePluralLower_fallback(IF0<String> _f) {
      return _f != null ? _f.get() : entityNamePluralLower_base();
    }

    public String entityNamePluralLower_base() {
      return firstToLower(entityNamePlural());
    }

    public JPanel buttons() {
      visualize();
      return buttons;
    }

    public void addButtonInFront(String text, Runnable r) {
      addButtonInFront(jbutton(text, r));
    }

    public void addButton(String text, Runnable r) {
      addButton(jbutton(text, r));
    }

    public void addButton(JComponent c) {
      buttons().add(c);
    }

    public void addButtonInFront(JComponent c) {
      addComponentInFront(buttons(), c);
    }

    public JButton makeAddButton(Runnable r) {
      return makeButton("Add...", "Create a new " + entityNameLower(), "#1103069", r);
    }

    public JButton makeDeleteButton(Runnable r) {
      return makeButton("Delete", "Delete selected " + entityNamePluralLower(), "#1103067", r);
    }

    public JButton makeEditButton(Runnable r) {
      return makeButton("Edit...", "Edit selected " + entityNameLower(), "#1103068", r);
    }

    public JButton makeDuplicateButton(Runnable r) {
      return makeButton("Duplicate...", "Duplicate selected " + entityNameLower(), "#1103070", r);
    }

    public JButton makeButton(String text, String iconID, Runnable r) {
      return makeButton(text, null, iconID, r);
    }

    public JButton makeButton(String text, String toolTip, String iconID, Runnable r) {
      if (iconButtons)
        return toolTip(or2(toolTip, text), jimageButtonScaledToWidth(16, iconID, text, r));
      else
        return toolTip(toolTip, jbutton(text, r));
    }

    public void multiLineField(String field) {
      multiLineFields = addOrCreate(multiLineFields, field);
    }

    transient public IF1<String, JComponent> makeTextArea;

    public JComponent makeTextArea(String text) {
      return makeTextArea != null ? makeTextArea.get(text) : makeTextArea_base(text);
    }

    final public JComponent makeTextArea_fallback(IF1<String, JComponent> _f, String text) {
      return _f != null ? _f.get(text) : makeTextArea_base(text);
    }

    public JComponent makeTextArea_base(String text) {
      return typeWriterTextArea(text);
    }

    public void setButtonFiller(JComponent c) {
      scpButtonFiller.set(c);
    }

    public TableSearcher tableSearcher() {
      visualize();
      return tableSearcher;
    }
  }

  public interface IF0WithChangeListeners<A> extends IF0<A>, IHasChangeListeners {
  }

  static public class InMemoryClassLoader extends ClassLoader {

    final public InMemoryClassLoader setRememberClassBytes(boolean rememberClassBytes) {
      return rememberClassBytes(rememberClassBytes);
    }

    public InMemoryClassLoader rememberClassBytes(boolean rememberClassBytes) {
      this.rememberClassBytes = rememberClassBytes;
      return this;
    }

    final public boolean getRememberClassBytes() {
      return rememberClassBytes();
    }

    public boolean rememberClassBytes() {
      return rememberClassBytes;
    }

    transient public boolean rememberClassBytes = false;

    transient public Map<Class, byte[]> classBytes = syncMap();

    public InMemoryClassLoader(ClassLoader parent) {
      super(parent);
    }

    public Class<?> defineAClass(String name, byte[] bytes) {
      Class c = defineClass(name, bytes, 0, bytes.length);
      if (rememberClassBytes)
        classBytes.put(c, bytes);
      return c;
    }

    public byte[] getClassBytes(Class c) {
      return classBytes.get(c);
    }
  }

  public interface IStringifier<A> {

    public String toString(A o);
  }

  static public class ConceptWithChangeListeners extends Concept implements IHasChangeListeners, ChangeTriggerable {

    transient public Set<Runnable> onChange;

    public ConceptWithChangeListeners onChange(Runnable r) {
      onChange = createOrAddToSyncLinkedHashSet(onChange, r);
      return this;
    }

    public ConceptWithChangeListeners removeChangeListener(Runnable r) {
      main.remove(onChange, r);
      return this;
    }

    public void fireChange() {
      if (onChange != null)
        for (var listener : onChange) pcallF_typed(listener);
    }

    public void _onChange() {
      super._onChange();
      fireChange();
    }

    public void change() {
      super.change();
    }
  }

  static public class G22AnalysisContext implements IFieldsToList {

    public G22Utils g22utils;

    public BufferedImage image;

    public G22AnalysisContext() {
    }

    public G22AnalysisContext(G22Utils g22utils, BufferedImage image) {
      this.image = image;
      this.g22utils = g22utils;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + g22utils + ", " + image + ")";
    }

    public Object[] _fieldsToList() {
      return new Object[] { g22utils, image };
    }

    public SourceTriggeredStream<BufferedImage> imageStream;

    public Map<G22Analyzer, Object> analyzerResults = syncMap();

    static public Object calculating;

    public G22AnalysisContext(G22Utils g22utils, SourceTriggeredStream<BufferedImage> imageStream) {
      this.imageStream = imageStream;
      this.g22utils = g22utils;
    }

    public Object callAnalyzer(long analyzerID) {
      var analyzer = getConcept(g22utils.concepts(), G22Analyzer.class, analyzerID);
      if (analyzer == null)
        throw fail("Analyzer with ID " + analyzerID + " not found");
      return callAnalyzer(analyzer);
    }

    public Object callAnalyzer(G22Analyzer analyzer) {
      return analyzer.compileForAutoRun().get(this);
    }
  }

  static public class G22MaskSize extends Concept implements WidthAndHeight {

    static final public String _fieldOrder = "width height";

    public int width = g22defaultMaskSideLength(), height = g22defaultMaskSideLength();

    public int getWidth() {
      return width;
    }

    public int getHeight() {
      return height;
    }

    public G22MaskSize() {
    }

    public G22MaskSize(int widthHeight) {
      width = height = widthHeight;
    }

    public boolean square() {
      return width == height;
    }

    public String toString() {
      return spaceCombine("Mask Size", square() ? width + "²" : width + "*" + height);
    }
  }

  static public class RunResultWithTimestamps<A> extends OKOrError<A> {

    final public RunResultWithTimestamps<A> setStarted(Timestamp started) {
      return started(started);
    }

    public RunResultWithTimestamps<A> started(Timestamp started) {
      this.started = started;
      return this;
    }

    final public Timestamp getStarted() {
      return started();
    }

    public Timestamp started() {
      return started;
    }

    public Timestamp started;

    final public RunResultWithTimestamps<A> setEnded(Timestamp ended) {
      return ended(ended);
    }

    public RunResultWithTimestamps<A> ended(Timestamp ended) {
      this.ended = ended;
      return this;
    }

    final public Timestamp getEnded() {
      return ended();
    }

    public Timestamp ended() {
      return ended;
    }

    public Timestamp ended;

    final public RunResultWithTimestamps<A> setPrintOutput(CharSequence printOutput) {
      return printOutput(printOutput);
    }

    public RunResultWithTimestamps<A> printOutput(CharSequence printOutput) {
      this.printOutput = printOutput;
      return this;
    }

    final public CharSequence getPrintOutput() {
      return printOutput();
    }

    public CharSequence printOutput() {
      return printOutput;
    }

    public CharSequence printOutput;

    public RunResultWithTimestamps<A> run(IF0<A> f) {
      return run(f, true);
    }

    public RunResultWithTimestamps<A> run(IF0<A> f, boolean printStackTrace) {
      return setPrintOutput(hijackPrint_tee(new Runnable() {

        public void run() {
          try {
            started(tsNow());
            copyFrom(okOrError(f, printStackTrace));
            ended(tsNow());
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "started(tsNow());\r\n      copyFrom(okOrError(f, printStackTrace));\r\n      ende...";
        }
      }));
    }

    public boolean hasRun() {
      return ended != null;
    }

    public OKOrError result() {
      return this;
    }

    public Duration duration() {
      return ended.minusAsDuration(started);
    }

    public String renderDuration() {
      return formatElapsedTimeWithAppropriateUnit(nanosToSeconds(duration().toNanos()));
    }
  }

  static public class FieldVar<A> extends VarWithNotify<A> {

    public IHasChangeListeners containingObject;

    public String fieldName;

    public IF0<A> getter;

    public IVF1<A> setter;

    public FieldVar(IHasChangeListeners containingObject, String fieldName, IF0<A> getter, IVF1<A> setter) {
      this.setter = setter;
      this.getter = getter;
      this.fieldName = fieldName;
      this.containingObject = containingObject;
      containingObject.onChangeAndNow(() -> _updateFromObject());
    }

    public void _updateFromObject() {
      set(getter.get());
    }

    public void fireChange() {
      setter.get(get());
      super.fireChange();
    }

    public FieldVar<A> onChange(IVF1<A> r) {
      if (r != null)
        onChange(() -> r.get(get()));
      return this;
    }
  }

  static public class JOnDemandWithReloadButton implements Swingable, IFieldsToList {

    public IF0<JComponent> makeComponent;

    public JOnDemandWithReloadButton() {
    }

    public JOnDemandWithReloadButton(IF0<JComponent> makeComponent) {
      this.makeComponent = makeComponent;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + makeComponent + ")";
    }

    public Object[] _fieldsToList() {
      return new Object[] { makeComponent };
    }

    public SingleComponentPanel scp = singleComponentPanel();

    public ReliableSingleThread rstReload = rst(() -> reloadImpl());

    public JButton btnReload;

    final public JOnDemandWithReloadButton setControls(JPanel controls) {
      return controls(controls);
    }

    public JOnDemandWithReloadButton controls(JPanel controls) {
      this.controls = controls;
      return this;
    }

    final public JPanel getControls() {
      return controls();
    }

    public JPanel controls() {
      return controls;
    }

    public JPanel controls = rightAlignedLine();

    public SingleComponentPanel scpControlsMain = scp();

    final public JOnDemandWithReloadButton setLoadingScreenWhenReloading(boolean loadingScreenWhenReloading) {
      return loadingScreenWhenReloading(loadingScreenWhenReloading);
    }

    public JOnDemandWithReloadButton loadingScreenWhenReloading(boolean loadingScreenWhenReloading) {
      this.loadingScreenWhenReloading = loadingScreenWhenReloading;
      return this;
    }

    final public boolean getLoadingScreenWhenReloading() {
      return loadingScreenWhenReloading();
    }

    public boolean loadingScreenWhenReloading() {
      return loadingScreenWhenReloading;
    }

    public boolean loadingScreenWhenReloading = false;

    final public JOnDemandWithReloadButton setShowControls(boolean showControls) {
      return showControls(showControls);
    }

    public JOnDemandWithReloadButton showControls(boolean showControls) {
      this.showControls = showControls;
      return this;
    }

    final public boolean getShowControls() {
      return showControls();
    }

    public boolean showControls() {
      return showControls;
    }

    public boolean showControls = true;

    public void reload() {
      rstReload.trigger();
    }

    public transient JComponent visualize_cache;

    public JComponent visualize() {
      if (visualize_cache == null)
        visualize_cache = visualize_load();
      return visualize_cache;
    }

    public JComponent visualize_load() {
      return markVisualizer(this, visualize_impl());
    }

    public JComponent visualize_impl() {
      bindToComponent(scp, () -> {
        if (scp.isEmpty())
          reload();
      }, null);
      if (!showControls)
        return scp;
      makeControls();
      return northAndCenter(withMargin(centerAndEastWithMargin(scpControlsMain, controls)), scp);
    }

    public void makeControls() {
      if (!showControls)
        return;
      btnReload = jReloadButton(() -> reload());
      controls.add(btnReload);
    }

    public void reloadImpl() {
      AutoCloseable __1 = tempDisableButton(btnReload);
      try {
        if (loadingScreenWhenReloading() || !scp.hasComponent())
          scp.setComponent(jCenteredLabel("Loading..."));
        try {
          scp.setComponent(makeComponent == null ? null : makeComponent.get());
        } catch (Throwable e) {
          printStackTrace(e);
          scp.setComponent(jscroll(jFastLogView_noWrap(renderStackTrace(e))));
        }
      } finally {
        _close(__1);
      }
    }

    public JOnDemandWithReloadButton function(IF0 f) {
      makeComponent = () -> wrap(f == null ? null : f.get());
      return this;
    }
  }

  static public class ReliableSingleThread implements Runnable {

    public boolean _isTransient() {
      return true;
    }

    public Object runnable;

    public String name = "Single Thread";

    public boolean cancelBeforeTrigger = false;

    public boolean waitBetweenCancelAndTrigger = false;

    public F0<AutoCloseable> enter;

    public int cancelTimeOut = 10000;

    public boolean trigger = false;

    public Thread thread;

    public WeakReference<Thread> threadBeingCancelled;

    public List<Runnable> inserts = syncL();

    public ReliableSingleThread() {
    }

    public ReliableSingleThread(Object runnable) {
      this.runnable = runnable;
    }

    public ReliableSingleThread(Runnable runnable) {
      this.runnable = runnable;
    }

    public void trigger() {
      go();
    }

    synchronized public void go() {
      if (cancelBeforeTrigger)
        cancelAndPossiblyWait();
      trigger = true;
      if (!running()) {
        AutoCloseable __1 = callF(enter);
        try {
          thread = startThread(name, new Runnable() {

            public void run() {
              try {
                AutoCloseable __2 = callF(enter);
                try {
                  _run();
                } finally {
                  _close(__2);
                }
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "temp callF(enter);\r\n        _run();";
            }
          });
        } finally {
          _close(__1);
        }
      }
    }

    public void run() {
      go();
    }

    public void get() {
      go();
    }

    synchronized public boolean running() {
      return thread != null;
    }

    public void triggerAndWait() {
      trigger();
      waitUntilDone();
    }

    public void waitUntilDone() {
      while (running()) sleep(1);
    }

    transient public Runnable preSleep;

    public void preSleep() {
      if (preSleep != null)
        preSleep.run();
      else
        preSleep_base();
    }

    final public void preSleep_fallback(Runnable _f) {
      if (_f != null)
        _f.run();
      else
        preSleep_base();
    }

    public void preSleep_base() {
    }

    public void _run() {
      try {
        while (licensed()) {
          preSleep();
          Thread oldThread;
          synchronized (this) {
            var currentInserts = syncGetAndClear(inserts);
            pcallFAll(currentInserts);
            if (!trigger) {
              thread = null;
              break;
            }
            oldThread = getWeakRef(threadBeingCancelled);
            trigger = false;
          }
          if (oldThread != null && oldThread != currentThread())
            oldThread.join(cancelTimeOut);
          pcallF(runnable);
        }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    synchronized public void cancel() {
      if (thread == null)
        return;
      threadBeingCancelled = new WeakReference(thread);
      cancelAndInterruptThread(thread);
      thread = null;
    }

    public void cancelAndWait() {
      Thread _thread;
      synchronized (this) {
        if (thread == null)
          return;
        _thread = thread;
        threadBeingCancelled = new WeakReference(thread);
        thread = null;
      }
      cancelAndInterruptThread(_thread);
    }

    public void cancelAndTrigger() {
      cancelAndPossiblyWait();
      trigger();
    }

    synchronized public boolean triggered() {
      return trigger;
    }

    public void cleanMeUp() {
      cancel();
    }

    public ReliableSingleThread cancelBeforeTrigger() {
      cancelBeforeTrigger = true;
      return this;
    }

    public void cancelAndPossiblyWait() {
      if (waitBetweenCancelAndTrigger)
        cancel();
    }

    public void insert(Runnable r) {
      inserts.add(r);
      trigger();
    }

    synchronized public boolean hasThread() {
      return thread != null;
    }

    public ReliableSingleThread action(Runnable r) {
      runnable = r;
      return this;
    }
  }

  static public class SingleComponentPanel extends JPanel {

    public SingleComponentPanel() {
      super(new BorderLayout());
    }

    public SingleComponentPanel(Component component) {
      this();
      if (component != null)
        setComponent(component);
    }

    public void set(Swingable component) {
      set(wrap(component));
    }

    final public void set(Component component) {
      setComponent(component);
    }

    public void setComponent(Component component) {
      {
        swing(() -> {
          if (getComponent() == component)
            return;
          removeAll();
          if (component != null)
            add(BorderLayout.CENTER, wrap(component));
          _revalidate(SingleComponentPanel.this);
        });
      }
    }

    public void setComponentAndRevalidateParent(Component component) {
      setComponent(component);
      _revalidate(_getParent(this));
    }

    final public void clear() {
      noComponent();
    }

    public void noComponent() {
      setComponent(null);
    }

    final public Component get() {
      return getComponent();
    }

    public Component getComponent() {
      return swing(() -> getComponentCount() == 0 ? null : getComponent(0));
    }

    public boolean isEmpty() {
      return getComponent() == null;
    }

    public boolean hasComponent() {
      return getComponent() != null;
    }
  }

  static public class ImageSurfaceSelector extends ImageSurfaceMouseHandler {

    public Point startingPoint;

    public boolean enabled = true;

    static public boolean verbose = false;

    public ImageSurfaceSelector() {
    }

    public ImageSurfaceSelector(ImageSurface is) {
      if (containsInstance(is.tools, ImageSurfaceSelector.class))
        return;
      this.register(is);
    }

    public void mousePressed(MouseEvent evt) {
      if (verbose)
        print("mousePressed");
      if (evt.getButton() != MouseEvent.BUTTON1)
        return;
      if (enabled)
        startingPoint = getPoint(evt);
    }

    public void mouseDragged(MouseEvent e) {
      if (verbose)
        print("mouseDragged");
      if (startingPoint != null) {
        Point endPoint = getPoint(e);
        Rectangle r = new Rectangle(startingPoint, new Dimension(endPoint.x - startingPoint.x + 1, endPoint.y - startingPoint.y + 1));
        normalize(r);
        r.width = min(r.width, is.getImage().getWidth() - r.x);
        r.height = min(r.height, is.getImage().getHeight() - r.y);
        is.setSelection(r);
      }
      if (verbose)
        print("mouseDragged done");
    }

    public static void normalize(Rectangle r) {
      if (r.width < 0) {
        r.x += r.width;
        r.width = -r.width;
      }
      if (r.height < 0) {
        r.y += r.height;
        r.height = -r.height;
      }
    }

    public void mouseReleased(MouseEvent e) {
      if (verbose)
        print("mouseReleased");
      mouseDragged(e);
      if (getPoint(e).equals(startingPoint))
        is.setSelection((Rectangle) null);
      startingPoint = null;
    }
  }

  static public interface IF1_IntToInt {

    public int get(int i);
  }

  static public class PersistableOKOrError<A> implements IF0<A> {

    public A value;

    final public PersistableThrowable getError() {
      return error();
    }

    public PersistableThrowable error() {
      return error;
    }

    public PersistableThrowable error;

    public PersistableOKOrError() {
    }

    public PersistableOKOrError(A value) {
      this.value = value;
    }

    public PersistableOKOrError(boolean dummy, PersistableThrowable error) {
      this.error = error;
      assertNotNull(error);
    }

    final public boolean isOK() {
      return ok();
    }

    public boolean ok() {
      return error == null;
    }

    public String toString() {
      return ok() ? str(value) : "Error: " + str(error);
    }

    public A get() {
      return !ok() ? null : value;
    }

    public A getMandatory() {
      if (!ok())
        throw error.asRuntimeException();
      return value;
    }

    static public <A> PersistableOKOrError<A> ok(A a) {
      return new PersistableOKOrError(a);
    }

    static public PersistableOKOrError error(PersistableThrowable error) {
      return new PersistableOKOrError(false, error);
    }
  }

  static public interface IRef<A> extends IF0<A> {

    public default void replaceValue(A oldValue, A newValue) {
    }
  }

  static public class RemoteDB implements AutoCloseable {

    public DialogIO db;

    public String name;

    public RemoteDB(String s) {
      this(s, false);
    }

    public RemoteDB(String s, boolean autoStart) {
      name = s;
      if (isSnippetID(s))
        name = dbBotName(s);
      db = findBot(name);
      if (db == null)
        if (autoStart) {
          nohupJavax(fsI(s));
          waitForBotStartUp(name);
          assertNotNull("Weird problem", db = findBot(s));
        } else
          throw fail("DB " + s + " not running");
    }

    public boolean functional() {
      return db != null;
    }

    public List<RC> list() {
      return adopt((List<RC>) rpc(db, "xlist"));
    }

    public List<RC> list(String className) {
      return adopt((List<RC>) rpc(db, "xlist", className));
    }

    public List<RC> xlist() {
      return list();
    }

    public List<RC> xlist(String className) {
      return list(className);
    }

    public List<RC> adopt(List<RC> l) {
      if (l != null)
        for (RC rc : l) adopt(rc);
      return l;
    }

    public RC adopt(RC rc) {
      if (rc != null)
        rc.db = this;
      return rc;
    }

    public Object adopt(Object o) {
      if (o instanceof RC)
        return adopt((RC) o);
      return o;
    }

    public String xclass(RC o) {
      return (String) rpc(db, "xclass", o);
    }

    public Object xget(RC o, String field) {
      return adopt(rpc(db, "xget", o, field));
    }

    public String xS(RC o, String field) {
      return (String) xget(o, field);
    }

    public RC xgetref(RC o, String field) {
      return adopt((RC) xget(o, field));
    }

    public void xset(RC o, String field, Object value) {
      rpc(db, "xset", o, field, value);
    }

    public RC uniq(String className) {
      RC ref = first(list(className));
      if (ref == null)
        ref = xnew(className);
      return ref;
    }

    public RC xuniq(String className) {
      return uniq(className);
    }

    public RC xnew(String className, Object... values) {
      return adopt((RC) rpc(db, "xnew", className, values));
    }

    public void xdelete(RC o) {
      rpc(db, "xdelete", o);
    }

    public void xdelete(List<RC> l) {
      rpc(db, "xdelete", l);
    }

    public void close() {
      _close(db);
    }

    public String fullgrab() {
      return (String) rpc(db, "xfullgrab");
    }

    public String xfullgrab() {
      return fullgrab();
    }

    public void xshutdown() {
      rpc(db, "xshutdown");
    }

    public long xchangeCount() {
      return (long) rpc(db, "xchangeCount");
    }

    public int xcount() {
      return (int) rpc(db, "xcount");
    }

    public void reconnect() {
      close();
      db = findBot(name);
    }

    public RC rc(long id) {
      return new RC(this, id);
    }
  }

  static public class Flag implements Runnable {

    volatile public boolean up = false;

    public boolean raise() {
      if (up)
        return false;
      synchronized (this) {
        if (up)
          return false;
        up = true;
        notifyAll();
        return true;
      }
    }

    public void run() {
      try {
        raise();
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void waitUntilUp() {
      try {
        if (up)
          return;
        synchronized (this) {
          while (!up) wait();
        }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public boolean waitUntilUp(double timeout) {
      if (timeout == infinity()) {
        waitUntilUp();
        return isUp();
      } else
        return waitUntilUp(toMS(timeout));
    }

    public boolean waitUntilUp(long timeout) {
      try {
        if (up)
          return true;
        synchronized (this) {
          if (!up)
            wait(timeout);
        }
        return isUp();
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    final public boolean get() {
      return isUp();
    }

    public boolean isUp() {
      return up;
    }

    public String toString() {
      return isUp() ? "up" : "down";
    }
  }

  static public class BoolVar {

    public boolean a = false;

    public BoolVar() {
    }

    public BoolVar(boolean a) {
      this.a = a;
    }

    public synchronized void set() {
      set(true);
    }

    public synchronized void set(boolean v) {
      if (v != a) {
        a = v;
        notifyAll();
      }
    }

    public synchronized boolean get() {
      return a;
    }

    final public void unset() {
      clear();
    }

    public void clear() {
      set(false);
    }

    public boolean waitUntilTrue() {
      return waitForValue(true);
    }

    public boolean waitUntilFalse() {
      return waitForValue(false);
    }

    public boolean waitUntilTrue(double timeoutSeconds) {
      return waitForValue(timeoutSeconds, true);
    }

    public boolean waitUntilFalse(double timeoutSeconds) {
      return waitForValue(timeoutSeconds, false);
    }

    synchronized public boolean waitForValue(boolean wantedValue) {
      try {
        while (a != wantedValue) wait();
        return a;
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    synchronized public boolean waitForValue(double timeoutSeconds, boolean wantedValue) {
      try {
        if (timeoutSeconds == infinity())
          return waitForValue(wantedValue);
        long destTime = sysNowPlusSeconds_noPing(timeoutSeconds), remainingTime;
        while (a != wantedValue && (remainingTime = destTime - sysNow_noPing()) > 0) wait(remainingTime);
        return a;
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public synchronized boolean getAndSet(boolean b) {
      var value = a;
      set(b);
      return value;
    }

    public synchronized boolean waitUntilTrueAndClear() {
      if (!waitUntilTrue())
        return false;
      set(false);
      return true;
    }

    public synchronized boolean waitUntilTrueAndClear(double timeoutSeconds) {
      if (!waitUntilTrue(timeoutSeconds))
        return false;
      set(false);
      return true;
    }

    public Object mutex() {
      return this;
    }
  }

  static public List<String> _stickyLibs_1400546 = ll("#1400546", "#1400547", "#1400548");

  static public class G22DatabasesPanel implements IFieldsToList {

    public G22Utils g22utils;

    public G22DatabasesPanel() {
    }

    public G22DatabasesPanel(G22Utils g22utils) {
      this.g22utils = g22utils;
    }

    public Object[] _fieldsToList() {
      return new Object[] { g22utils };
    }

    public JObjectTable<G22Utils.GazelleDB> table;

    public FileWatchService dirWatcher;

    public ReliableSingleThread rstUpdate = new ReliableSingleThread(new Runnable() {

      public void run() {
        try {
          _updateTable();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "_updateTable();";
      }
    });

    public transient JComponent visualize_cache;

    public JComponent visualize() {
      if (visualize_cache == null)
        visualize_cache = visualize_load();
      return visualize_cache;
    }

    public JComponent visualize_load() {
      return markVisualizer(this, visualize_impl());
    }

    public JComponent visualize_impl() {
      table = swing(() -> new JObjectTable());
      table.defaultAction(runnableToIVF1(runnableThread(new Runnable() {

        public void run() {
          try {
            openDB();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "openDB();";
        }
      })));
      table.itemToMap = db -> {
        IG22LoadedDB loaded = db.loadedDB();
        return litorderedmap("Name", db.name, "Directory", f2s(db.dir), "Loaded", loaded == null ? "No" : (loaded.hidden() ? "Yes (hidden)" : "Yes"));
      };
      var tbl = table.visualize();
      bindToComponent(tbl, () -> {
        dirWatcher = new FileWatchService();
        dirWatcher.addNonRecursiveListener(g22utils.databasesMotherDir(), file -> {
          rstUpdate.get();
        });
        g22utils.masterStuff().onLoadedDBsChange(rstUpdate);
        rstUpdate.get();
      }, () -> {
        g22utils.masterStuff().removeLoadedDBsChangeListener(rstUpdate);
        {
          cleanUp(dirWatcher);
          dirWatcher = null;
        }
      });
      return withTopAndBottomMargin(jCenteredRaisedSection("Gazelle projects on this computer", northAndCenterWithMargins(jline(toolTip("Create a new Gazelle project", jbutton("New project...", runnableThread(new Runnable() {

        public void run() {
          try {
            newDatabase();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "newDatabase();";
        }
      })))), centerAndEastWithMargin(tbl, jscroll_vertical_borderless(vstackWithSpacing_fixed(new DefaultButtonBorder(toolTip("Open selected project, keep other projects open too", tableDependentButton(table.table, "Open project", runnableThread(new Runnable() {

        public void run() {
          try {
            openDB();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "openDB();";
        }
      })))), toolTip("Open selected project in hidden mode [without a window]", tableDependentButton(table.table, "Open hidden", runnableThread(new Runnable() {

        public void run() {
          try {
            openDBHidden();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "openDBHidden();";
        }
      }))), toolTip("Open selected project, close all other projects", tableDependentButton(table.table, "Switch to project", runnableThread(new Runnable() {

        public void run() {
          try {
            switchToDB();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "switchToDB();";
        }
      }))), tableDependentButton(table.table, "Close project", runnableThread(new Runnable() {

        public void run() {
          try {
            closeDB();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "closeDB();";
        }
      })), tableDependentButton(table.table, "Rename project", runnableThread(new Runnable() {

        public void run() {
          try {
            renameDB();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "renameDB();";
        }
      })), tableDependentButton(table.table, "Delete project...", runnableThread(new Runnable() {

        public void run() {
          try {
            deleteDB();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "deleteDB();";
        }
      })), tableDependentButton(table.table, "Browse files", runnableThread(new Runnable() {

        public void run() {
          try {
            browse();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "browse();";
        }
      })), tableDependentButton(table.table, "Export project as zip...", runnableThread(new Runnable() {

        public void run() {
          try {
            exportAsZip();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "exportAsZip();";
        }
      })), jThreadedButton("Import project from zip...", runnableThread(new Runnable() {

        public void run() {
          try {
            importZip();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "importZip();";
        }
      })), jThreadedButton("Download project from Gaz.AI...", runnableThread(new Runnable() {

        public void run() {
          try {
            downloadProject();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "downloadProject();";
        }
      }))))))));
    }

    public void newDatabase() {
      AutoCloseable __1 = g22utils.enter();
      try {
        var tf = jtextfield();
        var lblDir = jlabel(" ");
        var lblStatus = jlabel(" ");
        var button = jThreadedButton("Create project", () -> {
          AutoCloseable __2 = g22utils.enter();
          try {
            String name = trim(tf.getText());
            File dir = newFile(g22utils.databasesMotherDir(), name);
            createEmptyConceptsFileInDir(dir);
            disposeFrame(tf);
            g22utils.masterStuff().openDatabase(dir);
          } finally {
            _close(__2);
          }
        });
        disableButton(button);
        onEnter(tf, button);
        onChange(tf, new Runnable() {

          public void run() {
            try {
              String name = trim(tf.getText());
              boolean ok = false;
              String status = " ", path = " ";
              if (isValidFileName(name)) {
                File dir = newFile(g22utils.databasesMotherDir(), name);
                path = f2s(dir);
                if (dirExists(dir))
                  status = "A project with that name exists";
                else
                  ok = true;
              } else if (!empty(name))
                status = "Project name must be a valid file name";
              setEnabled(button, ok);
              setText(lblStatus, status);
              setText(lblDir, path);
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "String name = trim(tf.getText());\r\n      boolean ok;\r\n      String status = \"...";
          }
        });
        showForm_makeFrame("New Gazelle Project", vstackWithSpacing(withLabel("Name for new project", tf), lblDir, lblStatus, button));
      } finally {
        _close(__1);
      }
    }

    public void _updateTable() {
      table.setData_force(g22utils.gazelleDBs());
    }

    public void browse() {
      desktopOpen(table.selected().dir);
    }

    public void openDB() {
      g22utils.masterStuff().openDatabase(table.selected().dir);
    }

    public void openDBHidden() {
      g22utils.masterStuff().openDatabase(table.selected().dir, true);
    }

    public void switchToDB() {
      g22utils.masterStuff().switchToDatabase(table.selected().dir);
    }

    public void closeDB() {
      g22utils.masterStuff().closeDatabase(table.selected().dir);
    }

    public void deleteDB() {
      var db = table.selected();
      if (db == null)
        return;
      var dir = db.dir();
      if (g22utils.isConceptsDir(dir)) {
        messageBox("Can't delete current project");
        return;
      }
      g22utils.masterStuff().closeDatabase(dir);
      new DeleteFilesDialog("Delete Gazelle project " + db.name()).wholeDirectory(dir).show();
    }

    public void exportAsZip() {
      File dir = table.selected().dir;
      JFileChooser fileChooser = new JFileChooser();
      fileChooser.setDialogTitle("Export project as zip");
      fileChooser.setSelectedFile(javaxBackupDir(dir.getName() + "-" + ymdMinusHMS() + ".zip"));
      if (fileChooser.showSaveDialog(visualize()) == JFileChooser.APPROVE_OPTION) {
        File zip = fileChooser.getSelectedFile();
        dir2zip(dir, zip, dir.getName() + "/");
        fileSavedInfoBox(zip);
        desktopOpen(dirOfFile(zip));
      }
    }

    public void importZip() {
      try {
        JFileChooser fc = new JFileChooser();
        fc.setDialogTitle("Import project from zip");
        fc.setCurrentDirectory(javaxBackupDir());
        if (fc.showOpenDialog(visualize()) == JFileChooser.APPROVE_OPTION) {
          File zip = fc.getSelectedFile();
          g22utils.importProjectFromZip(zip);
        }
      } catch (Throwable __e) {
        messageBox(__e);
      }
    }

    public void downloadProject() {
      if (gazAICredentialsFromJavaXSecret() == null) {
        messageBox("Please enter Gaz.AI credentials first");
        return;
      }
      inputText("Project to download", projectName -> {
        try {
          var zip = g22utils.downloadProjectFromGazAI(gazAICredentialsFromJavaXSecret(), projectName);
          if (swingConfirm("Install downloaded project?"))
            g22utils.importProjectFromZip(zip);
        } catch (Throwable __e) {
          messageBox(__e);
        }
      });
    }

    public void renameDB() {
      File dir = table.selected().dir;
      inputText("New name", fileName(dir), newName -> {
        assertValidFileName(newName);
        if (!eq(newName, fileName(dir))) {
          boolean open = g22utils.masterStuff().isConceptDirLoaded(dir);
          if (open)
            g22utils.masterStuff().closeDatabase(dir);
          renameFileVerbose(dir, newName);
          if (open)
            g22utils.masterStuff().openDatabase(dir);
        }
      });
    }
  }

  static public class WeakValueMap<A, B> implements AutoCloseable, IntSize {

    transient public Set<IVF1<A>> onValueForKeyReleased;

    public WeakValueMap<A, B> onValueForKeyReleased(IVF1<A> f) {
      onValueForKeyReleased = createOrAddToSyncLinkedHashSet(onValueForKeyReleased, f);
      return this;
    }

    public WeakValueMap<A, B> removeValueForKeyReleasedListener(IVF1<A> f) {
      main.remove(onValueForKeyReleased, f);
      return this;
    }

    public void valueForKeyReleased(A key) {
      if (onValueForKeyReleased != null)
        for (var listener : onValueForKeyReleased) pcallF_typed(listener, key);
    }

    public Map<A, WeakReference<B>> map = syncMap();

    public RunnablesReferenceQueue queue;

    public boolean myQueue = true;

    public WeakValueMap() {
    }

    public WeakValueMap(RunnablesReferenceQueue queue) {
      this.queue = queue;
      myQueue = false;
    }

    public class MyRef extends WeakReference<B> implements Runnable {

      public A key;

      public MyRef(A key, B value) {
        super(value, queue().get());
        this.key = key;
      }

      public void run() {
        try {
          boolean current = syncMapRemoveKeyAndValuePair(map, key, this);
          valueForKeyReleased(key);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }
    }

    public B get(A key) {
      return getWeakRef(map.get(key));
    }

    public B put(A key, B value) {
      synchronized (mutex()) {
        if (value == null) {
          B old = getWeakRef(map.get(key));
          map.remove(key);
          return old;
        } else
          return getWeakRef(map.put(key, new MyRef(key, value)));
      }
    }

    public Object mutex() {
      return collectionMutex(map);
    }

    public RunnablesReferenceQueue queue() {
      synchronized (mutex()) {
        if (queue == null)
          queue = new RunnablesReferenceQueue();
        return queue;
      }
    }

    public void close() {
      try {
        if (myQueue)
          synchronized (mutex()) {
            {
              cleanUp(queue);
              queue = null;
            }
          }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public int size() {
      return map.size();
    }

    public Map<A, B> snapshot() {
      synchronized (mutex()) {
        Map<A, B> snapshot = new HashMap();
        for (var __0 : _entrySet(map)) {
          var key = __0.getKey();
          var ref = __0.getValue();
          mapPut(snapshot, key, getWeakRef(ref));
        }
        return snapshot;
      }
    }

    final public void queue(RunnablesReferenceQueue queue) {
      setQueue(queue);
    }

    public void setQueue(RunnablesReferenceQueue queue) {
      synchronized (mutex()) {
        if (queue == null || this.queue == queue)
          return;
        if (this.queue != null)
          throw fail("Can't change queue once we're started");
        this.queue = queue;
        myQueue = false;
      }
    }
  }

  static public interface IVF3<A, B, C> {

    public void get(A a, B b, C c);
  }

  static public class G22ScriptResultPanel implements Swingable {

    public JTabbedPane tabs;

    public JFastLogView_noWrap logView = jFastLogView_noWrap();

    public SingleComponentPanel scpResult = singleComponentPanel();

    public transient JComponent visualize_cache;

    public JComponent visualize() {
      if (visualize_cache == null)
        visualize_cache = visualize_load();
      return visualize_cache;
    }

    public JComponent visualize_load() {
      return markVisualizer(this, visualize_impl());
    }

    public JComponent visualize_impl() {
      return tabs = jtabs("Result", scpResult, "Log", jscroll_borderless(logView));
    }
  }

  static public class VarWithNotify<A> extends Var<A> implements IVarWithNotify<A> {

    transient public Set<Runnable> onChange;

    public VarWithNotify<A> onChange(Runnable r) {
      onChange = createOrAddToSyncLinkedHashSet(onChange, r);
      return this;
    }

    public VarWithNotify<A> removeChangeListener(Runnable r) {
      main.remove(onChange, r);
      return this;
    }

    public void fireChange() {
      if (onChange != null)
        for (var listener : onChange) pcallF_typed(listener);
    }

    public VarWithNotify() {
    }

    public VarWithNotify(A a) {
      super(a);
    }

    public void set(A a) {
      A v = get();
      if (eq(v, a)) {
        return;
      }
      synchronized (this) {
        this.v = a;
        notifyAll();
      }
      fireChange();
    }
  }

  static public class SourceTriggeredStream<A> extends Meta {

    public DoneFlag ended = new DoneFlag(true);

    volatile public A lastElement;

    public AtomicLong elementCount = new AtomicLong();

    transient public Set<IVF1<A>> onNewElement;

    public SourceTriggeredStream<A> onNewElement(IVF1<A> f) {
      onNewElement = createOrAddToSyncLinkedHashSet(onNewElement, f);
      return this;
    }

    public SourceTriggeredStream<A> removeNewElementListener(IVF1<A> f) {
      main.remove(onNewElement, f);
      return this;
    }

    public void newElement(A a) {
      lastElement = a;
      inc(elementCount);
      if (onNewElement != null)
        for (var listener : onNewElement) pcallF_typed(listener, a);
    }

    public void onNewElement(Runnable r) {
      onNewElement(runnableToIVF1(r));
    }

    public A get() {
      return lastElement;
    }

    public long elementCount() {
      return elementCount.get();
    }

    public void end() {
      ended.raise();
    }

    public boolean ended() {
      return ended.isUp();
    }

    public void catchError(Runnable r) {
      main.catchError(ended, r);
    }

    public void directlyFeedInto(Consumer<A> consumer) {
      if (consumer != null)
        onNewElement(a -> consumer.accept(a));
    }
  }

  static public class OKOrError<A> implements IF0<A> {

    public A value;

    final public Throwable getError() {
      return error();
    }

    public Throwable error() {
      return error;
    }

    public Throwable error;

    public OKOrError() {
    }

    public OKOrError(A value) {
      this.value = value;
    }

    public OKOrError(boolean dummy, Throwable error) {
      this.error = error;
      assertNotNull(error);
    }

    final public boolean isOK() {
      return ok();
    }

    public boolean ok() {
      return error == null;
    }

    public boolean isError() {
      return error != null;
    }

    public String toString() {
      return ok() ? str(value) : "Error: " + str(error);
    }

    public A get() {
      return !ok() ? null : value;
    }

    public A getMandatory() {
      if (!ok())
        throw rethrow(error);
      return value;
    }

    static public <A> OKOrError<A> ok(A a) {
      return new OKOrError(a);
    }

    static public OKOrError error(Throwable error) {
      return new OKOrError(false, error);
    }

    public void setValue(A value) {
      this.value = value;
      error = null;
    }

    public void setError(Throwable error) {
      this.value = null;
      this.error = error;
    }

    public void copyFrom(OKOrError<A> x) {
      value = x.value;
      error = x.error;
    }
  }

  static public class ConceptWithGlobalID extends Concept implements IHasGlobalID {

    public GlobalID globalID = aGlobalIDObjUnlessLoading();

    public GlobalID globalID() {
      return globalID;
    }

    public String globalIDStr() {
      return strOrNull(globalID);
    }

    public String prependGlobalID(String s) {
      return globalID == null ? s : "[" + globalID + "] " + s;
    }
  }

  static public class FileBasedLock implements AutoCloseable {

    public File lockFile;

    public double timeout = 60.0;

    public boolean verbose = false;

    public boolean haveLock = false;

    public java.util.Timer touchTimer;

    final public FileBasedLock setContentsForLockFile(String contentsForLockFile) {
      return contentsForLockFile(contentsForLockFile);
    }

    public FileBasedLock contentsForLockFile(String contentsForLockFile) {
      this.contentsForLockFile = contentsForLockFile;
      return this;
    }

    final public String getContentsForLockFile() {
      return contentsForLockFile();
    }

    public String contentsForLockFile() {
      return contentsForLockFile;
    }

    public String contentsForLockFile;

    public FileBasedLock() {
    }

    public FileBasedLock(File lockFile) {
      this.lockFile = lockFile;
    }

    public FileBasedLock(File lockFile, double timeout) {
      this.timeout = timeout;
      this.lockFile = lockFile;
    }

    synchronized public boolean tryToLock() {
      if (haveLock)
        return true;
      if (fileExists(lockFile)) {
        double age = fileAgeInSeconds(lockFile);
        double remaining = timeout - age;
        print("Lock file age: " + lockFile + ": " + iround(age) + " s" + (remaining <= 0 ? " - old, deleting" : " - please start again in " + nSeconds(iceil(remaining))));
        if (remaining <= 0) {
          print("Deleting old lock file (program crashed?): " + lockFile + " (age: " + iround(age) + " seconds)");
          deleteFile(lockFile);
        }
      }
      try {
        mkdirsForFile(lockFile);
        java.nio.file.Files.createFile(toPath(lockFile));
        print("Created lock file: " + lockFile);
        if (nempty(contentsForLockFile))
          writeContents();
        acquired();
        return true;
      } catch (Throwable e) {
        printExceptionShort("Can't lock", e);
        return false;
      }
    }

    public void writeContents() {
      saveTextFileWithoutTemp(lockFile, unnull(contentsForLockFile));
    }

    private void acquired() {
      haveLock = true;
      startTouchTimer();
    }

    public void forceLock() {
      try {
        print("Force-locking " + lockFile);
        writeContents();
        acquired();
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public String lockError() {
      return "Couldn't aquire lock file: " + lockFile;
    }

    public void lockOrFail() {
      if (!tryToLock())
        throw fail(lockError());
    }

    synchronized public void startTouchTimer() {
      if (touchTimer != null)
        return;
      double interval = timeout / 2;
      touchTimer = doEvery(interval, new Runnable() {

        public void run() {
          try {
            doTouch();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "doTouch();";
        }
      });
      if (verbose)
        print("Touch timer started for " + lockFile + " (" + interval + "s)");
    }

    synchronized public void doTouch() {
      try {
        if (haveLock) {
          if (verbose)
            print("Touching lock file: " + lockFile);
          touchFile(lockFile);
        }
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }

    public synchronized void close() {
      try {
        {
          cleanUp(touchTimer);
          touchTimer = null;
        }
        if (haveLock) {
          haveLock = false;
          if (verbose)
            print("Deleting lock file: " + lockFile);
          deleteFile(lockFile);
        }
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }

    synchronized public void _simulateCrash() {
      {
        cleanUp(touchTimer);
        touchTimer = null;
      }
    }

    public void deleteOnExit() {
      if (haveLock)
        lockFile.deleteOnExit();
    }

    public String actualContents() {
      return loadTextFile(lockFile);
    }

    public boolean hasExpectedContents() {
      return eq(unnull(contentsForLockFile), actualContents());
    }
  }

  static public class WithTimestamp<A> extends Var<A> {

    public long timestamp;

    final public Timestamp timestamp() {
      return getTimestamp();
    }

    final public Timestamp timeStamp() {
      return getTimestamp();
    }

    public Timestamp getTimestamp() {
      return timestamp == 0 ? null : new Timestamp(timestamp);
    }

    public WithTimestamp() {
    }

    public WithTimestamp(long timestamp, A value) {
      super(value);
      this.timestamp = timestamp;
    }

    public WithTimestamp(A value) {
      this(now(), value);
    }

    public Timestamp timestampObj() {
      return timestamp == 0 ? null : new Timestamp(timestamp);
    }

    public String toString() {
      return toStringWithTimestamp(super.toString());
    }

    public String toStringQuoted() {
      return toStringWithTimestamp(quote(super.toString()));
    }

    public String toStringWithTimestamp(String s) {
      return s + " at " + localDateWithSeconds(timestamp);
    }

    public boolean olderThanMinutes(double minutes) {
      return elapsedMinutes_timestamp(timestamp) >= minutes;
    }

    public boolean olderThanSeconds(double seconds) {
      return elapsedSeconds_timestamp(timestamp) >= seconds;
    }
  }

  static public class ConvertLASToJava extends Meta {

    public String typeToJava(Type type) {
      return type == null ? null : shortenClassNames(type.getTypeName());
    }

    public String typeToJava(LASValueDescriptor desc) {
      return typeToJava(or(desc == null ? null : desc.javaClass(), Object.class));
    }

    public Object convert(LASClassDef.FieldDef field) {
      return "settable " + typeToJava(field.type()) + " " + field.name() + (field.initializer == null ? "" : " = " + convert(field.initializer)) + ";";
    }

    public String convert(GazelleV_LeftArrowScript.FunctionDef f) {
      if (f.synthetic())
        return "";
      return typeToJava(f.returnType) + " " + f.name + "(" + joinWithComma(countIterator(l(f.args), i -> typeToJava(f.argTypes[i]) + " " + f.args[i])) + ") {\n" + indentx(convert(f.body, true)) + "}\n\n";
    }

    public Object convertWithLeadingSpace(GazelleV_LeftArrowScript.Evaluable o) {
      return leadingSpace(o, "") + convert(o);
    }

    public Object convertWithLeadingSpace2(GazelleV_LeftArrowScript.Evaluable o) {
      return replaceIfEqual(leadingSpace(o, ""), " ", "") + convert(o);
    }

    public String leadingSpace(GazelleV_LeftArrowScript.Evaluable o, String defaultSpace) {
      String space = null;
      var src = o.tokenRangeWithSrc();
      if (src != null)
        space = src.startPtr().mapIdx(idx -> idx & ~1).get();
      return or2(space, defaultSpace);
    }

    public String trailingSpace(GazelleV_LeftArrowScript.Evaluable o, String defaultSpace) {
      String space = null;
      var src = o.tokenRangeWithSrc();
      if (src != null) {
        String rawSpace = src.endPtr().mapIdx(idx -> idx & ~1).get();
        space = replaceRegexp(rawSpace, "\n[ \t]+$", "\n");
        if (scaffoldingEnabled())
          printVars("trailingSpace", "rawSpace", quote(rawSpace), "space", quote(space));
      }
      return or2(space, defaultSpace);
    }

    public Object getInstruction(GazelleV_LeftArrowScript.Evaluable o) {
      Object inner = convert(o);
      boolean needSemicolon = !(o instanceof GazelleV_LeftArrowScript.ClassDef) && !(o instanceof GazelleV_LeftArrowScript.ForEachBase);
      String space = trailingSpace(o, "\n");
      if (scaffoldingEnabled())
        printVars("space", space, "o", className(o), "srcText", quote(o.srcText()), "inner", inner);
      return inner + (needSemicolon ? ";" : "") + space;
    }

    public Object convert(GazelleV_LeftArrowScript.Script script, boolean returnLastResult) {
      var steps = asList(script.steps);
      if (returnLastResult) {
        if (empty(steps))
          return "return null;";
        var last = last(steps);
        if (!(last instanceof GazelleV_LeftArrowScript.ReturnFromScript) && !(last instanceof GazelleV_LeftArrowScript.ClassDef))
          setLast(steps, new GazelleV_LeftArrowScript.ReturnFromScript(script, last));
      }
      return concatMapStrings(i -> str(getInstruction(i)), steps);
    }

    public Object convert(GazelleV_LeftArrowScript.Evaluable o, boolean returnLastResult) {
      if (o instanceof GazelleV_LeftArrowScript.Script)
        return convert(((GazelleV_LeftArrowScript.Script) o), returnLastResult);
      return convert(o);
    }

    public Object convert(GazelleV_LeftArrowScript.Evaluable o) {
      if (o == null)
        return null;
      if (o instanceof GazelleV_LeftArrowScript.GetVar)
        return ((GazelleV_LeftArrowScript.GetVar) o).var;
      if (o instanceof GazelleV_LeftArrowScript.Script)
        return convert(((GazelleV_LeftArrowScript.Script) o), false);
      if (o instanceof GazelleV_LeftArrowScript.ClassDef) {
        LASClassDef c = ((GazelleV_LeftArrowScript.ClassDef) o).lasClass.classDef;
        return spaceCombine("class", c.userGivenName, eqOneOf(c.superClass, null, Object.class) ? null : "extends " + typeToJava(c.superClass), empty(c.interfaces) ? null : "is " + joinWithComma(map(__25 -> typeToJava(__25), c.interfaces)), curly("\n" + appendNewLineIfNempty(indentx(joinNemptiesWithEmptyLines(lines_rtrim(map(__26 -> convert(__26), c.fields)), convertInitializers(c), paragraphs(nempties(map(__27 -> convert(__27), c.methods))))))));
      }
      if (o instanceof GazelleV_LeftArrowScript.Assignment)
        return ((GazelleV_LeftArrowScript.Assignment) o).var + " = " + convert(((GazelleV_LeftArrowScript.Assignment) o).expression);
      if (o instanceof GazelleV_LeftArrowScript.VarDeclaration)
        return "var " + ((GazelleV_LeftArrowScript.VarDeclaration) o).var + " = " + convert(((GazelleV_LeftArrowScript.VarDeclaration) o).expression);
      if (o instanceof GazelleV_LeftArrowScript.CallMethod) {
        String targetStr = null;
        var targetType = ((GazelleV_LeftArrowScript.CallMethod) o).target.returnType();
        if (targetType != null && targetType.knownValue()) {
          Object target = targetType.value();
          if (target instanceof Class && eqOneOf(shortClassName((Class) target), "main", "utils"))
            targetStr = "";
        }
        if (targetStr == null)
          targetStr = str(convert(((GazelleV_LeftArrowScript.CallMethod) o).target));
        return (empty(targetStr) ? "" : targetStr + ".") + new FunctionCall(((GazelleV_LeftArrowScript.CallMethod) o).methodName, map(__28 -> convertWithLeadingSpace2(__28), ((GazelleV_LeftArrowScript.CallMethod) o).args));
      }
      if (o instanceof GazelleV_LeftArrowScript.SetField)
        return convert(((GazelleV_LeftArrowScript.SetField) o).target) + "." + ((GazelleV_LeftArrowScript.SetField) o).name + " = " + convert(((GazelleV_LeftArrowScript.SetField) o).expr);
      if (o instanceof GazelleV_LeftArrowScript.CallMethodOrGetField)
        return convert(((GazelleV_LeftArrowScript.CallMethodOrGetField) o).target) + "." + ((GazelleV_LeftArrowScript.CallMethodOrGetField) o).name + "()";
      if (o instanceof GazelleV_LeftArrowScript.DirectMethodCallOnKnownTarget)
        return ((GazelleV_LeftArrowScript.DirectMethodCallOnKnownTarget) o).target + "." + new FunctionCall(((GazelleV_LeftArrowScript.DirectMethodCallOnKnownTarget) o).method.getName(), map(__29 -> convert(__29), ((GazelleV_LeftArrowScript.DirectMethodCallOnKnownTarget) o).args));
      if (o instanceof GazelleV_LeftArrowScript.NewObject) {
        String className;
        var o2 = (GazelleV_LeftArrowScript.NewObject) o;
        if (o2 instanceof GazelleV_LeftArrowScript.NewObject_LASClass) {
          className = ((GazelleV_LeftArrowScript.NewObject_LASClass) o2).lasClass.userGivenName();
        } else
          className = typeToJava(((GazelleV_LeftArrowScript.NewObject) o).c);
        return "new " + new FunctionCall(className, map(__30 -> convert(__30), ((GazelleV_LeftArrowScript.NewObject) o).args));
      }
      if (o instanceof GazelleV_LeftArrowScript.IfThen)
        return "if (" + convert(((GazelleV_LeftArrowScript.IfThen) o).condition) + ") " + curlyIfScript(((GazelleV_LeftArrowScript.IfThen) o).body) + (((GazelleV_LeftArrowScript.IfThen) o).elseBranch == null ? "" : " else " + curlyIfScript(((GazelleV_LeftArrowScript.IfThen) o).elseBranch));
      if (o instanceof GazelleV_LeftArrowScript.Const) {
        Object val = ((GazelleV_LeftArrowScript.Const) o).value;
        if (val instanceof GazelleV_LeftArrowScript.FunctionDef)
          return convert((GazelleV_LeftArrowScript.FunctionDef) val);
        var c = (GazelleV_LeftArrowScript.Const) o;
        {
          var __1 = c == null ? null : c.srcText();
          if (__1 != null)
            return __1;
        }
        try {
          return toJava(val);
        } catch (Throwable __e) {
          pcallFail(__e);
        }
      }
      if (o instanceof GazelleV_LeftArrowScript.ForEach)
        return "fOr (" + ((GazelleV_LeftArrowScript.ForEach) o).var + " : " + convert(((GazelleV_LeftArrowScript.ForEach) o).collection) + ") {\n" + indentx(convert(((GazelleV_LeftArrowScript.ForEach) o).body, false)) + "\n}";
      if (o instanceof GazelleV_LeftArrowScript.ForIntTo)
        return "for " + ((GazelleV_LeftArrowScript.ForIntTo) o).var + " to " + convert(((GazelleV_LeftArrowScript.ForIntTo) o).endValue) + ": {\n" + indentx(convert(((GazelleV_LeftArrowScript.ForIntTo) o).body, false)) + "\n}";
      if (o instanceof GazelleV_LeftArrowScript.CurriedScriptFunctionLambda) {
        int nArgs = ((GazelleV_LeftArrowScript.CurriedScriptFunctionLambda) o).implementedMethod.getParameterCount();
        List<String> args = countIteratorToList_incl(1, nArgs, i -> "_" + i);
        List fullArgs = concatLists(allToString(map(__31 -> convert(__31), ((GazelleV_LeftArrowScript.CurriedScriptFunctionLambda) o).curriedArgs)), args);
        return roundBracketed(typeToJava(((GazelleV_LeftArrowScript.CurriedScriptFunctionLambda) o).intrface)) + " " + lambdaArgsToString_pureJava(args) + " -> " + new FunctionCall(((GazelleV_LeftArrowScript.CurriedScriptFunctionLambda) o).f.name, fullArgs);
      }
      if (o instanceof GazelleV_LeftArrowScript.LambdaDef)
        return roundBracketed(typeToJava(((GazelleV_LeftArrowScript.LambdaDef) o).intrface)) + " " + joinNemptiesWithSpace(lambdaArgsToString_pureJava(((GazelleV_LeftArrowScript.LambdaDef) o).args), "-> " + curlyIfScript(((GazelleV_LeftArrowScript.LambdaDef) o).body));
      if (o instanceof GazelleV_LeftArrowScript.ReturnFromScript)
        return "ret " + convert(((GazelleV_LeftArrowScript.ReturnFromScript) o).value);
      if (o instanceof GazelleV_LeftArrowScript.GetStaticField)
        return typeToJava(((GazelleV_LeftArrowScript.GetStaticField) o).field.getDeclaringClass()) + "." + ((GazelleV_LeftArrowScript.GetStaticField) o).field.getName();
      if (o instanceof GazelleV_LeftArrowScript.BoolAnd)
        return roundBracketed(str(convert(((GazelleV_LeftArrowScript.BoolAnd) o).a))) + " && " + roundBracketed(str(convert(((GazelleV_LeftArrowScript.BoolAnd) o).b)));
      if (o instanceof GazelleV_LeftArrowScript.BoolOr)
        return roundBracketed(str(convert(((GazelleV_LeftArrowScript.BoolOr) o).a))) + " || " + roundBracketed(str(convert(((GazelleV_LeftArrowScript.BoolOr) o).b)));
      if (o instanceof GazelleV_LeftArrowScript.GetField)
        return convert(((GazelleV_LeftArrowScript.GetField) o).target) + "." + ((GazelleV_LeftArrowScript.GetField) o).name;
      if (o instanceof GazelleV_LeftArrowScript.CallFunction)
        return new FunctionCall(((GazelleV_LeftArrowScript.CallFunction) o).f.name, map(__32 -> convert(__32), ((GazelleV_LeftArrowScript.CallFunction) o).args));
      if (o instanceof GazelleV_LeftArrowScript.While)
        return "while (" + convert(((GazelleV_LeftArrowScript.While) o).condition) + ") {\n" + indentx(convert(((GazelleV_LeftArrowScript.While) o).body, false)) + "\n}";
      warn("Can't convert to Java: " + className(o));
      if (o instanceof GazelleV_LeftArrowScript.Base) {
        var b = (GazelleV_LeftArrowScript.Base) o;
        {
          var __2 = b == null ? null : b.srcText();
          if (__2 != null)
            return __2;
        }
      }
      warn("No source reference in script object: " + className(o));
      return str(o);
    }

    public Object curlyIfScript(GazelleV_LeftArrowScript.Evaluable o) {
      if (o instanceof GazelleV_LeftArrowScript.Script)
        return "{\n" + indentx(convert((GazelleV_LeftArrowScript.Script) o)) + "\n}";
      return convert(o);
    }

    public String get(GazelleV_LeftArrowScript.Evaluable o, boolean returnLastResult) {
      String src = strOrEmpty(convert(o, returnLastResult));
      List<String> tok = javaTok(src);
      jreplace(tok, "this.", "");
      JavaXPeepholeShortener shortener = new JavaXPeepholeShortener(tok);
      shortener.run();
      return join(shortener.tok);
    }

    public String convertInitializers(LASClassDef c) {
      return lines_rtrim(nempties(mapWithIndex(c.initializers, (idx, i) -> {
        if (c.isFieldInitializer.get(idx))
          return null;
        return "{ " + addSuffix(rtrim(str(convert(i))), ";") + " }";
      })));
    }
  }

  static public class JPopDownButton extends JButton {

    public String menuPosition = "left";

    public JPopDownButton() {
      this("");
    }

    public JPopDownButton(String text) {
      super(joinNemptiesWithSpace(text, unicode_downPointingTriangle()));
      main.addActionListener(this, new Runnable() {

        public void run() {
          try {
            openMenu();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "openMenu();";
        }
      });
    }

    public JPopDownButton(IVF1<JPopupMenu> fillMenu) {
      this();
      this.fillMenu = fillMenu;
    }

    public JPopDownButton content(Object... items) {
      onFillingMenu(menu -> fillJPopupMenu(menu, items));
      return this;
    }

    transient public Set<IVF1<JPopupMenu>> onFillingMenu;

    public JPopDownButton onFillingMenu(IVF1<JPopupMenu> f) {
      onFillingMenu = createOrAddToSyncLinkedHashSet(onFillingMenu, f);
      return this;
    }

    public JPopDownButton removeFillingMenuListener(IVF1<JPopupMenu> f) {
      main.remove(onFillingMenu, f);
      return this;
    }

    public void fillingMenu(JPopupMenu menu) {
      if (onFillingMenu != null)
        for (var listener : onFillingMenu) pcallF_typed(listener, menu);
    }

    transient public IVF1<JPopupMenu> fillMenu;

    public void fillMenu(JPopupMenu menu) {
      if (fillMenu != null)
        fillMenu.get(menu);
      else
        fillMenu_base(menu);
    }

    final public void fillMenu_fallback(IVF1<JPopupMenu> _f, JPopupMenu menu) {
      if (_f != null)
        _f.get(menu);
      else
        fillMenu_base(menu);
    }

    public void fillMenu_base(JPopupMenu menu) {
      fillingMenu(menu);
    }

    public void openMenu() {
      JPopupMenu menu = new JPopupMenu();
      int emptyCount = menu.getComponentCount();
      fillMenu(menu);
      if (menu.getComponentCount() == emptyCount)
        return;
      int x = 0;
      if (eq(menuPosition, "center"))
        x = (getWidth() - getPreferredWidth(menu)) / 2;
      else if (eq(menuPosition, "right"))
        x = getWidth() - getPreferredWidth(menu);
      menu.show(this, x, getHeight());
    }

    public JComponent visualize() {
      return this;
    }
  }

  static public class AWTOnConceptChanges implements AutoCloseable {

    final public AWTOnConceptChanges setComponent(JComponent component) {
      return component(component);
    }

    public AWTOnConceptChanges component(JComponent component) {
      this.component = component;
      return this;
    }

    final public JComponent getComponent() {
      return component();
    }

    public JComponent component() {
      return component;
    }

    public JComponent component;

    final public AWTOnConceptChanges setAction(Runnable action) {
      return action(action);
    }

    public AWTOnConceptChanges action(Runnable action) {
      this.action = action;
      return this;
    }

    final public Runnable getAction() {
      return action();
    }

    public Runnable action() {
      return action;
    }

    public Runnable action;

    final public AWTOnConceptChanges setConcepts(Concepts concepts) {
      return concepts(concepts);
    }

    public AWTOnConceptChanges concepts(Concepts concepts) {
      this.concepts = concepts;
      return this;
    }

    final public Concepts getConcepts() {
      return concepts();
    }

    public Concepts concepts() {
      return concepts;
    }

    public Concepts concepts;

    final public AWTOnConceptChanges setFirstDelay(int firstDelay) {
      return firstDelay(firstDelay);
    }

    public AWTOnConceptChanges firstDelay(int firstDelay) {
      this.firstDelay = firstDelay;
      return this;
    }

    final public int getFirstDelay() {
      return firstDelay();
    }

    public int firstDelay() {
      return firstDelay;
    }

    public int firstDelay;

    final public AWTOnConceptChanges setDelay(int delay) {
      return delay(delay);
    }

    public AWTOnConceptChanges delay(int delay) {
      this.delay = delay;
      return this;
    }

    final public int getDelay() {
      return delay();
    }

    public int delay() {
      return delay;
    }

    public int delay = 500;

    public long changes = -1;

    public javax.swing.Timer timer;

    public AWTOnConceptChanges(Concepts concepts, JComponent component, Runnable action) {
      this.action = action;
      this.component = component;
      this.concepts = concepts;
    }

    public void install() {
      assertNotNull(concepts);
      timer = installTimer(component, delay, firstDelay, new Runnable() {

        public void run() {
          try {
            _trigger();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "_trigger();";
        }
      });
    }

    public void _trigger() {
      long c = concepts.changes;
      if (changes != c) {
        changes = c;
        {
          if (action != null)
            action.run();
        }
      }
    }

    public void close() {
      try {
        {
          cleanUp(timer);
          timer = null;
        }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }
  }

  abstract static public class Surface extends JPanel implements IMeta {

    public boolean clearSurface = true;

    public boolean clearOnce = false;

    volatile public Object meta;

    public void _setMeta(Object meta) {
      this.meta = meta;
    }

    public Object _getMeta() {
      return meta;
    }

    final public boolean scaffolding() {
      return scaffoldingEnabled();
    }

    final public boolean scaffolded() {
      return scaffoldingEnabled();
    }

    public boolean scaffoldingEnabled() {
      return main.scaffoldingEnabled(this);
    }

    public boolean scaffoldingEnabled(Object o) {
      return main.scaffoldingEnabled(o);
    }

    public String toString_base() {
      return super.toString();
    }

    public String toString() {
      Object o = metaGet("toString", this);
      if (o instanceof String)
        return ((String) o);
      if (o instanceof IF1)
        return str(((IF1) o).get(this));
      return toString_base();
    }

    public Surface() {
      setDoubleBuffered(false);
    }

    public Graphics2D createGraphics2D(int width, int height, Graphics g) {
      Graphics2D g2 = (Graphics2D) g;
      g2.setBackground(getBackground());
      if (clearSurface || clearOnce) {
        g2.clearRect(0, 0, width, height);
        clearOnce = false;
      }
      return g2;
    }

    public abstract void render(int w, int h, Graphics2D g);

    public void paintImmediately(int x, int y, int w, int h) {
      RepaintManager repaintManager = null;
      boolean save = true;
      if (!isDoubleBuffered()) {
        repaintManager = RepaintManager.currentManager(this);
        save = repaintManager.isDoubleBufferingEnabled();
        repaintManager.setDoubleBufferingEnabled(false);
      }
      super.paintImmediately(x, y, w, h);
      if (repaintManager != null)
        repaintManager.setDoubleBufferingEnabled(save);
    }

    public void paint(Graphics g) {
      Dimension d = getSize();
      Graphics2D g2 = createGraphics2D(d.width, d.height, g);
      render(d.width, d.height, g2);
      g2.dispose();
    }
  }

  static public class RSyntaxTextAreaWithSearch implements SearchListener, Swingable {

    public JPanel panel;

    final public RSyntaxTextArea getTextArea() {
      return textArea();
    }

    public RSyntaxTextArea textArea() {
      return textArea;
    }

    volatile public RSyntaxTextArea textArea;

    public CollapsibleSectionPanel csp;

    public FindDialog findDialog;

    public ReplaceDialog replaceDialog;

    public FindToolBar findToolBar;

    public ReplaceToolBar replaceToolBar;

    public StatusBar statusBar;

    public RSyntaxTextAreaWithSearch() {
      init();
    }

    public RSyntaxTextAreaWithSearch(IF1<JComponent, JComponent> wrapStatusLabel) {
      this.wrapStatusLabel = wrapStatusLabel;
      init();
    }

    public RSyntaxTextAreaWithSearch(String text) {
      init();
      setText(text);
    }

    public RSyntaxTextAreaWithSearch(RSyntaxTextArea textArea) {
      this.textArea = textArea;
      init();
    }

    public JComponent visualize() {
      return panel;
    }

    public void init() {
      swing(() -> {
        rsyntaxTextArea_fixNumPad();
        initSearchDialogs();
        panel = new JPanel(new BorderLayout());
        csp = new CollapsibleSectionPanel();
        panel.add(csp);
        if (textArea == null)
          textArea = javaxSyntaxTextArea();
        RTextScrollPane sp = new RTextScrollPane(textArea);
        csp.add(sp);
        ErrorStrip errorStrip = new ErrorStrip(textArea);
        panel.add(errorStrip, BorderLayout.LINE_END);
        statusBar = new StatusBar();
        panel.add(statusBar, BorderLayout.SOUTH);
      });
    }

    transient public IF1<JComponent, JComponent> wrapStatusLabel;

    public JComponent wrapStatusLabel(JComponent label) {
      return wrapStatusLabel != null ? wrapStatusLabel.get(label) : wrapStatusLabel_base(label);
    }

    final public JComponent wrapStatusLabel_fallback(IF1<JComponent, JComponent> _f, JComponent label) {
      return _f != null ? _f.get(label) : wrapStatusLabel_base(label);
    }

    public JComponent wrapStatusLabel_base(JComponent label) {
      return label;
    }

    public void addItem(Action a, ButtonGroup bg, JMenu menu) {
      JRadioButtonMenuItem item = new JRadioButtonMenuItem(a);
      bg.add(item);
      menu.add(item);
    }

    public void menuLessOperation() {
      swing(() -> {
        var mb = createMenuBar();
        for (var menu : getMenus(mb)) for (var menuItem : getMenuItems(menu)) {
          var ks = menuItem.getAccelerator();
          if (ks != null) {
            var action = menuItem.getAction();
            textArea.getInputMap().put(ks, action);
          }
        }
      });
    }

    public JMenuBar createMenuBar() {
      JMenuBar mb = new JMenuBar();
      JMenu menu = new JMenu("Search");
      menu.add(new JMenuItem(new ShowFindDialogAction()));
      menu.add(new JMenuItem(new ShowReplaceDialogAction()));
      menu.add(new JMenuItem(new GoToLineAction()));
      menu.addSeparator();
      int ctrl = getToolkit().getMenuShortcutKeyMask();
      int shift = InputEvent.SHIFT_MASK;
      KeyStroke ks = KeyStroke.getKeyStroke(KeyEvent.VK_F, ctrl | shift);
      Action a = csp.addBottomComponent(ks, findToolBar);
      a.putValue(Action.NAME, "Show Find Search Bar");
      menu.add(new JMenuItem(a));
      ks = KeyStroke.getKeyStroke(KeyEvent.VK_H, ctrl | shift);
      a = csp.addBottomComponent(ks, replaceToolBar);
      a.putValue(Action.NAME, "Show Replace Search Bar");
      menu.add(new JMenuItem(a));
      mb.add(menu);
      return mb;
    }

    public String getSelectedText() {
      return textArea.getSelectedText();
    }

    public void initSearchDialogs() {
      findDialog = new FindDialog((java.awt.Dialog) null, this);
      replaceDialog = new ReplaceDialog((java.awt.Dialog) null, this);
      SearchContext context = findDialog.getSearchContext();
      replaceDialog.setSearchContext(context);
      findToolBar = new FindToolBar(this);
      findToolBar.setSearchContext(context);
      replaceToolBar = new ReplaceToolBar(this);
      replaceToolBar.setSearchContext(context);
    }

    @Override
    public void searchEvent(SearchEvent e) {
      SearchEvent.Type type = e.getType();
      SearchContext context = e.getSearchContext();
      SearchResult result = null;
      switch(type) {
        default:
        case MARK_ALL:
          result = SearchEngine.markAll(textArea, context);
          break;
        case FIND:
          result = SearchEngine.find(textArea, context);
          if (!result.wasFound()) {
            Caret c = textArea.getCaret();
            int pos = c.getDot();
            if (context.getSearchForward()) {
              c.setDot(0);
            } else {
              c.setDot(textArea.getDocument().getLength());
            }
            result = SearchEngine.find(textArea, context);
            if (!result.wasFound()) {
              c.setDot(pos);
              UIManager.getLookAndFeel().provideErrorFeedback(textArea);
            }
          }
          break;
        case REPLACE:
          result = SearchEngine.replace(textArea, context);
          if (!result.wasFound()) {
            UIManager.getLookAndFeel().provideErrorFeedback(textArea);
          }
          break;
        case REPLACE_ALL:
          result = SearchEngine.replaceAll(textArea, context);
          JOptionPane.showMessageDialog(null, result.getCount() + " occurrences replaced.");
          break;
      }
      String text = null;
      if (result.wasFound()) {
        text = "Text found; occurrences marked: " + result.getMarkedCount();
      } else if (type == SearchEvent.Type.MARK_ALL) {
        if (result.getMarkedCount() > 0) {
          text = "Occurrences marked: " + result.getMarkedCount();
        } else {
          text = "";
        }
      } else {
        text = "Text not found";
      }
      setStatus(text);
    }

    public class GoToLineAction extends AbstractAction {

      public GoToLineAction() {
        super("Go To Line...");
        int c = getToolkit().getMenuShortcutKeyMask();
        putValue(ACCELERATOR_KEY, KeyStroke.getKeyStroke(KeyEvent.VK_L, c));
      }

      public void actionPerformed(ActionEvent e) {
        findDialog.setVisible(false);
        replaceDialog.setVisible(false);
        GoToDialog dialog = new GoToDialog((java.awt.Dialog) null);
        dialog.setMaxLineNumberAllowed(textArea.getLineCount());
        showDialogOnSameScreen(dialog, panel);
        int line = dialog.getLineNumber();
        if (line > 0) {
          try {
            textArea.setCaretPosition(textArea.getLineStartOffset(line - 1));
          } catch (BadLocationException ble) {
            UIManager.getLookAndFeel().provideErrorFeedback(textArea);
            ble.printStackTrace();
          }
        }
      }
    }

    public class ShowFindDialogAction extends AbstractAction {

      public ShowFindDialogAction() {
        super("Find...");
        int c = getToolkit().getMenuShortcutKeyMask();
        putValue(ACCELERATOR_KEY, KeyStroke.getKeyStroke(KeyEvent.VK_F, c));
      }

      public void actionPerformed(ActionEvent e) {
        replaceDialog.setVisible(false);
        showDialogOnSameScreen(findDialog, panel);
      }
    }

    public class ShowReplaceDialogAction extends AbstractAction {

      public ShowReplaceDialogAction() {
        super("Replace...");
        int c = getToolkit().getMenuShortcutKeyMask();
        putValue(ACCELERATOR_KEY, KeyStroke.getKeyStroke(KeyEvent.VK_H, c));
      }

      public void actionPerformed(ActionEvent e) {
        findDialog.setVisible(false);
        showDialogOnSameScreen(replaceDialog, panel);
      }
    }

    public class StatusBar extends JPanel {

      public JLabel label;

      public StatusBar() {
        label = new JLabel(" ");
        setLayout(new BorderLayout());
        add(wrapStatusLabel(label), BorderLayout.CENTER);
        add(new JLabel(new SizeGripIcon()), BorderLayout.EAST);
      }

      public void setText(String label) {
        main.setText(this.label, shorten(1000, label));
      }
    }

    public void setStatus(String text) {
      statusBar.setText(text);
    }

    public void setText(String text) {
      main.setText(textArea, text);
    }

    public String getText() {
      return main.getText(textArea);
    }

    public void setEditorFont(final Font font) {
      swing(() -> {
        SyntaxScheme ss = textArea.getSyntaxScheme();
        ss = (SyntaxScheme) ss.clone();
        for (int i = 0; i < ss.getStyleCount(); i++) if (ss.getStyle(i) != null)
          ss.getStyle(i).font = font;
        textArea.setSyntaxScheme(ss);
        textArea.setFont(font);
      });
    }

    public Font getEditorFont() {
      return swing(new F0<Font>() {

        public Font get() {
          try {
            return textArea.getFont();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "return textArea.getFont();";
        }
      });
    }

    public int getEditorFontSize() {
      return getEditorFont().getSize();
    }

    public void setEditorFontSize(int size) {
      setEditorFont(deriveFont(getEditorFont(), size));
    }

    public RSyntaxDocument getDocument() {
      return (RSyntaxDocument) textArea.getDocument();
    }

    public Toolkit getToolkit() {
      return panel.getToolkit();
    }

    public JLabel statusLabel() {
      return statusBar.label;
    }
  }

  static public class RestartableCountdown implements AutoCloseable {

    public java.util.Timer timer;

    public long targetTime;

    public long totalSleepTime;

    synchronized public void setTargetTime(long targetTime, Runnable action) {
      if (targetTime <= 0)
        stop();
      else if (targetTime != this.targetTime) {
        start(targetTime - sysNow(), action);
        this.targetTime = targetTime;
      }
    }

    synchronized public void start(long delayMS, Object action) {
      stop();
      if (delayMS <= 0) {
        startThread(new Runnable() {

          public void run() {
            try {
              callF(action);
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "callF(action);";
          }
        });
      } else {
        totalSleepTime += delayMS;
        timer = doLater_daemon(delayMS, action);
        targetTime = sysNow() + delayMS;
      }
    }

    public void start(double delaySeconds, Object action) {
      start(toMS(delaySeconds), action);
    }

    synchronized public void stop() {
      cancelTimer(timer);
      timer = null;
      targetTime = 0;
    }

    public void close() {
      stop();
    }
  }

  static public class MultiSet<A> implements IMultiSet<A> {

    public Map<A, Integer> map = new HashMap();

    public int size;

    public MultiSet(boolean useTreeMap) {
      if (useTreeMap)
        map = new TreeMap();
    }

    public MultiSet(TreeMap map) {
      this.map = map;
    }

    public MultiSet() {
    }

    public MultiSet(Iterable<A> c) {
      addAll(c);
    }

    public MultiSet(MultiSet<A> ms) {
      synchronized (ms) {
        for (A a : ms.keySet()) add(a, ms.get(a));
      }
    }

    public synchronized int add(A key) {
      return add(key, 1);
    }

    synchronized public void addAll(Iterable<A> c) {
      if (c != null)
        for (A a : c) add(a);
    }

    synchronized public void addAll(MultiSet<A> ms) {
      for (A a : ms.keySet()) add(a, ms.get(a));
    }

    synchronized public int add(A key, int count) {
      if (count <= 0)
        return 0;
      size += count;
      Integer i = map.get(key);
      map.put(key, i != null ? (count += i) : count);
      return count;
    }

    synchronized public void put(A key, int count) {
      int oldCount = get(key);
      if (count == oldCount)
        return;
      size += count - oldCount;
      if (count != 0)
        map.put(key, count);
      else
        map.remove(key);
    }

    public synchronized int get(A key) {
      Integer i = map.get(key);
      return i != null ? i : 0;
    }

    synchronized public boolean contains(A key) {
      return map.containsKey(key);
    }

    synchronized public void remove(A key) {
      Integer i = map.get(key);
      if (i != null) {
        --size;
        if (i > 1)
          map.put(key, i - 1);
        else
          map.remove(key);
      }
    }

    synchronized public List<A> topTen() {
      return getTopTen();
    }

    synchronized public List<A> getTopTen() {
      return getTopTen(10);
    }

    synchronized public List<A> getTopTen(int maxSize) {
      List<A> list = getSortedListDescending();
      return list.size() > maxSize ? list.subList(0, maxSize) : list;
    }

    synchronized public List<A> highestFirst() {
      return getSortedListDescending();
    }

    synchronized public List<A> lowestFirst() {
      return reversedList(getSortedListDescending());
    }

    synchronized public List<A> getSortedListDescending() {
      List<A> list = new ArrayList<A>(map.keySet());
      Collections.sort(list, new Comparator<A>() {

        public int compare(A a, A b) {
          return map.get(b).compareTo(map.get(a));
        }
      });
      return list;
    }

    synchronized public int getNumberOfUniqueElements() {
      return map.size();
    }

    synchronized public int uniqueSize() {
      return map.size();
    }

    synchronized public Set<A> asSet() {
      return map.keySet();
    }

    synchronized public NavigableSet<A> navigableSet() {
      return navigableKeys((NavigableMap) map);
    }

    public synchronized Set<A> keySet() {
      return map.keySet();
    }

    final public A mostPopular() {
      return getMostPopularEntry();
    }

    synchronized public A getMostPopularEntry() {
      int max = 0;
      A a = null;
      for (Map.Entry<A, Integer> entry : map.entrySet()) {
        if (entry.getValue() > max) {
          max = entry.getValue();
          a = entry.getKey();
        }
      }
      return a;
    }

    synchronized public void removeAll(A key) {
      size -= get(key);
      map.remove(key);
    }

    public synchronized int size() {
      return size;
    }

    synchronized public MultiSet<A> mergeWith(MultiSet<A> set) {
      MultiSet<A> result = new MultiSet<A>();
      for (A a : set.asSet()) {
        result.add(a, set.get(a));
      }
      return result;
    }

    public synchronized boolean isEmpty() {
      return map.isEmpty();
    }

    synchronized public String toString() {
      return str(map);
    }

    synchronized public void clear() {
      map.clear();
      size = 0;
    }

    final public Map<A, Integer> toMap() {
      return asMap();
    }

    synchronized public Map<A, Integer> asMap() {
      return cloneMap(map);
    }
  }

  public interface G2Drawable {

    public void drawOn(Graphics2D g);

    default public void drawOn(BufferedImage img) {
      drawOn(img.createGraphics());
    }
  }

  static public class DynamicVStack extends DynamicStack {

    transient public IF0<GridBagConstraints> _componentConstraints;

    public GridBagConstraints _componentConstraints() {
      return _componentConstraints != null ? _componentConstraints.get() : _componentConstraints_base();
    }

    final public GridBagConstraints _componentConstraints_fallback(IF0<GridBagConstraints> _f) {
      return _f != null ? _f.get() : _componentConstraints_base();
    }

    public GridBagConstraints _componentConstraints_base() {
      return gridBagConstraints_vstack_1(spacing);
    }

    public GridBagConstraints _fillerConstraints() {
      return gridBagConstraints_vstack_rest();
    }
  }

  abstract static public class ImageSurfaceMouseHandler extends MouseAdapter implements AutoCloseable {

    public ImageSurface is;

    public void register(ImageSurface is) {
      this.is = is;
      is.tools.add(this);
      is.addMouseListener(this);
      is.addMouseMotionListener(this);
    }

    public void close() {
      try {
        if (is == null)
          return;
        is.tools.remove(this);
        is.removeMouseListener(this);
        is.removeMouseMotionListener(this);
        is = null;
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public Pt getPt(MouseEvent e) {
      return toPt(getPoint(e));
    }

    public Point getPoint(MouseEvent e) {
      return new Point((int) (e.getX() / is.getZoomX()), (int) (e.getY() / is.getZoomY()));
    }

    public ImageSurface getImageSurface() {
      return is;
    }
  }

  static public class T3<A, B, C> {

    public A a;

    public B b;

    public C c;

    public T3() {
    }

    public T3(A a, B b, C c) {
      this.c = c;
      this.b = b;
      this.a = a;
    }

    public T3(T3<A, B, C> t) {
      a = t.a;
      b = t.b;
      c = t.c;
    }

    public int hashCode() {
      return _hashCode(a) + 2 * _hashCode(b) - 4 * _hashCode(c);
    }

    public boolean equals(Object o) {
      if (o == this)
        return true;
      if (!(o instanceof T3))
        return false;
      T3 t = (T3) o;
      return eq(a, t.a) && eq(b, t.b) && eq(c, t.c);
    }

    public String toString() {
      return "(" + quoteBorderless(a) + ", " + quoteBorderless(b) + ", " + quoteBorderless(c) + ")";
    }
  }

  public enum G22ScriptMode {

    edit, saved, autoRunnable
  }

  static public interface Swingable {

    public JComponent visualize();
  }

  static public class WrappedMap<A, B> extends AbstractMap<A, B> {

    public Map<A, B> map;

    public WrappedMap() {
    }

    public WrappedMap(Map<A, B> map) {
      this.map = map;
    }

    public B get(Object key) {
      return map.get(key);
    }

    public B put(A key, B value) {
      return map.put(key, value);
    }

    public boolean containsKey(Object key) {
      return map.containsKey(key);
    }

    public Set<Map.Entry<A, B>> entrySet() {
      return map.entrySet();
    }
  }

  public interface RunnableWithExceptions {

    public void run() throws Exception;
  }

  static public class G22SelfTests implements IFieldsToList {

    public G22Utils g22utils;

    public G22SelfTests() {
    }

    public G22SelfTests(G22Utils g22utils) {
      this.g22utils = g22utils;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + g22utils + ")";
    }

    public Object[] _fieldsToList() {
      return new Object[] { g22utils };
    }

    volatile public boolean started = false;

    volatile public OKOrError result;

    public void run() {
      try {
        started = true;
        result = okOrError(() -> runImpl());
        String msg = "Self Tests " + status();
        if (result.isOK())
          print(msg);
        else
          infoBox(msg);
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void runImpl() {
      G22LAScriptIDE.selfTest(g22utils);
    }

    public String status() {
      return !started ? "Not started" : result == null ? "Running" : result.isOK() ? "OK" : "Failed";
    }
  }

  static public class MinimalChain<A> implements Iterable<A> {

    public A element;

    public MinimalChain<A> next;

    public MinimalChain() {
    }

    public MinimalChain(A element) {
      this.element = element;
    }

    public MinimalChain(A element, MinimalChain<A> next) {
      this.next = next;
      this.element = element;
    }

    public String toString() {
      return str(toList());
    }

    public ArrayList<A> toList() {
      ArrayList<A> l = new ArrayList();
      MinimalChain<A> c = this;
      while (c != null) {
        l.add(c.element);
        c = c.next;
      }
      return l;
    }

    public void setElement(A a) {
      element = a;
    }

    public void setNext(MinimalChain<A> next) {
      this.next = next;
    }

    public Iterator<A> iterator() {
      return toList().iterator();
    }

    public A get() {
      return element;
    }
  }

  static public class RSTADummyParser extends org.fife.ui.rsyntaxtextarea.parser.AbstractParser {

    final public Pair<String, List<Error>> getErrors() {
      return errors();
    }

    public Pair<String, List<Error>> errors() {
      return errors;
    }

    public Pair<String, List<Error>> errors;

    static public class Error {

      final public Error setStart(LineAndColumn start) {
        return start(start);
      }

      public Error start(LineAndColumn start) {
        this.start = start;
        return this;
      }

      final public LineAndColumn getStart() {
        return start();
      }

      public LineAndColumn start() {
        return start;
      }

      public LineAndColumn start;

      final public Error setEnd(LineAndColumn end) {
        return end(end);
      }

      public Error end(LineAndColumn end) {
        this.end = end;
        return this;
      }

      final public LineAndColumn getEnd() {
        return end();
      }

      public LineAndColumn end() {
        return end;
      }

      public LineAndColumn end;

      final public Error setMsg(String msg) {
        return msg(msg);
      }

      public Error msg(String msg) {
        this.msg = msg;
        return this;
      }

      final public String getMsg() {
        return msg();
      }

      public String msg() {
        return msg;
      }

      public String msg;
    }

    @Override
    public org.fife.ui.rsyntaxtextarea.parser.ParseResult parse(RSyntaxDocument doc, String style) {
      var result = new org.fife.ui.rsyntaxtextarea.parser.DefaultParseResult(this);
      try {
        var p = this.errors;
        if (p == null)
          return result;
        String src = p.a;
        var errors = p.b;
        if (empty(errors))
          return result;
        String text = doc.getText(0, doc.getLength());
        if (!eq(text, src)) {
          return result;
        }
        for (Error e : errors) {
          LineAndColumn start = e.start;
          LineAndColumn end = e.end;
          int lineStart = lineNrToCharIndex(text, start.line);
          int lineLength = lengthOfLine(text, start.line - 1);
          result.addNotice(new org.fife.ui.rsyntaxtextarea.parser.DefaultParserNotice(this, e.msg, start.line - 1, lineStart, lineLength));
        }
      } catch (Throwable __e) {
        pcallFail(__e);
      }
      return result;
    }

    public void setErrors(String text, List<Error> errors, RSyntaxTextArea textArea) {
      this.errors = pair(text, errors);
      {
        swing(() -> {
          textArea.forceReparsing(RSTADummyParser.this);
        });
      }
    }

    public void install(RSyntaxTextArea textArea) {
      swing(() -> {
        textArea.addParser(RSTADummyParser.this);
      });
    }
  }

  public interface IPersistenceInfo {

    public Map _persistenceInfo();
  }

  static public interface IConceptCounter {

    public Class<? extends Concept> conceptClass();

    public int countConcepts();

    public Collection<Concept> allConcepts();
  }

  static public class IntRange {

    public int start, end;

    public IntRange() {
    }

    public IntRange(int start, int end) {
      this.end = end;
      this.start = start;
    }

    public IntRange(IntRange r) {
      start = r.start;
      end = r.end;
    }

    public boolean equals(Object o) {
      return stdEq2(this, o);
    }

    public int hashCode() {
      return stdHash2(this);
    }

    final public int length() {
      return end - start;
    }

    final public boolean empty() {
      return start >= end;
    }

    final public boolean isEmpty() {
      return start >= end;
    }

    static public String _fieldOrder = "start end";

    public String toString() {
      return "[" + start + ";" + end + "]";
    }
  }

  public interface IToolTipMaker {

    public String getToolTip(Pt p);
  }

  static public class Average {

    final public double getSum() {
      return sum();
    }

    public double sum() {
      return sum;
    }

    public double sum;

    final public double getN() {
      return n();
    }

    public double n() {
      return n;
    }

    public double n;

    final public void addSample(double d) {
      add(d);
    }

    public void add(double d) {
      ++n;
      sum += d;
    }

    public void add(double d, double weight) {
      n += weight;
      sum += d * weight;
    }

    public void remove(double d) {
      add(d, -1);
    }

    final public double avg() {
      return get();
    }

    final public double average() {
      return get();
    }

    final public double getAverage() {
      return get();
    }

    public double get() {
      return doubleRatio(sum, n);
    }

    public boolean isEmpty() {
      return n == 0;
    }

    public String toString() {
      return get() + " (n=" + n + ")";
    }

    public void clear() {
      n = 0;
      sum = 0;
    }

    final public double count() {
      return size();
    }

    public double size() {
      return n;
    }
  }

  public interface ChangeTriggerable {

    public void change();
  }

  static public class ClearForAutoRun<A> extends Var<A> {

    public ClearForAutoRun() {
    }

    public ClearForAutoRun(A code) {
      super(code);
    }
  }

  static public class Stringifier_ToString implements IStringifier {

    public String toString(Object o) {
      return str(o);
    }
  }

  public interface IPartialStringifier<A> {

    public String toStringOpt(A o);
  }

  static public class G22TypeDesc {

    public String exactClassName;

    public Set<String> implementedClassNames;
  }

  static public class MetaWithChangeListeners extends Meta implements IHasChangeListeners, ChangeTriggerable {

    transient public Set<Runnable> onChange;

    public MetaWithChangeListeners onChange(Runnable r) {
      onChange = createOrAddToSyncLinkedHashSet(onChange, r);
      return this;
    }

    public MetaWithChangeListeners removeChangeListener(Runnable r) {
      main.remove(onChange, r);
      return this;
    }

    public void change() {
      if (onChange != null)
        for (var listener : onChange) pcallF_typed(listener);
    }
  }

  static public class Scored<A> extends Var<A> {

    public float score;

    public Scored() {
    }

    public Scored(A a, float score) {
      super(a);
      this.score = score;
    }

    public Scored(A a, double score) {
      super(a);
      this.score = (float) score;
    }

    public float score() {
      return score;
    }

    public String toString() {
      return toIntPercent(score) + "%: " + str(get());
    }
  }

  static public class RGBImage implements MakesBufferedImage, IRGBImage {

    transient public BufferedImage bufferedImage;

    public int width, height;

    public int[] pixels;

    public RGBImage() {
    }

    public RGBImage(BufferedImage image) {
      bufferedImage = image;
      width = image.getWidth();
      height = image.getHeight();
      pixels = new int[width * height];
      var gp = grabbableIntPixels_fastOrSlow(image);
      if (gp.scanlineStride == width && gp.offset == 0)
        pixels = gp.data;
      else {
        pixels = new int[width * height];
        int iIn = 0, iOut = 0;
        for (int y = 0; y < height; y++) {
          arrayCopy(gp.data, iIn, pixels, iOut, width);
          iIn += gp.scanlineStride;
          iOut += width;
        }
      }
      cleanPixels();
    }

    public RGBImage(Dimension size, Color color) {
      this(size.width, size.height, color);
    }

    public RGBImage(Dimension size, RGB color) {
      this(size.width, size.height, color);
    }

    private void cleanPixels() {
      var pixels = this.pixels;
      for (int i = 0; i < pixels.length; i++) pixels[i] &= 0xFFFFFF;
    }

    public RGBImage(int width, int height, int[] pixels) {
      this.width = width;
      this.height = height;
      this.pixels = pixels;
    }

    public RGBImage(int w, int h, RGB[] pixels) {
      this.width = w;
      this.height = h;
      this.pixels = asInts(pixels);
    }

    public static int[] asInts(RGB[] pixels) {
      int[] ints = new int[pixels.length];
      for (int i = 0; i < pixels.length; i++) ints[i] = pixels[i] == null ? 0 : pixels[i].getColor().getRGB();
      return ints;
    }

    public RGBImage(int w, int h) {
      this(w, h, Color.black);
    }

    public RGBImage(int w, int h, RGB rgb) {
      this.width = w;
      this.height = h;
      this.pixels = new int[w * h];
      int col = rgb.asInt();
      if (col != 0)
        for (int i = 0; i < pixels.length; i++) pixels[i] = col;
    }

    public RGBImage(RGBImage image) {
      this(image.width, image.height, copyPixels(image.pixels));
    }

    public RGBImage(int width, int height, Color color) {
      this(width, height, new RGB(color));
    }

    public RGBImage(MakesBufferedImage img) {
      this(toBufferedImage(img));
    }

    private static int[] copyPixels(int[] pixels) {
      int[] copy = new int[pixels.length];
      System.arraycopy(pixels, 0, copy, 0, pixels.length);
      return copy;
    }

    public int getIntPixel(int x, int y) {
      if (inRange(x, y))
        return pixels[y * width + x];
      else
        return 0xFFFFFF;
    }

    public int getIntPixel_noRangeCheck(int idx) {
      return pixels[idx];
    }

    public static RGB asRGB(int packed) {
      int r = (packed >> 16) & 0xFF;
      int g = (packed >> 8) & 0xFF;
      int b = packed & 0xFF;
      return new RGB(r / 255f, g / 255f, b / 255f);
    }

    public RGB getRGB(int x, int y) {
      if (inRange(x, y))
        return asRGB(pixels[y * width + x]);
      else
        return new RGB(0xFFFFFF);
    }

    public RGB getPixel(int x, int y) {
      return getRGB(x, y);
    }

    public RGB getPixel(Pt p) {
      return getPixel(p.x, p.y);
    }

    public int getWidth() {
      return width;
    }

    public int getHeight() {
      return height;
    }

    public int w() {
      return width;
    }

    public int h() {
      return height;
    }

    public BufferedImage getBufferedImage() {
      if (bufferedImage == null) {
        bufferedImage = new BufferedImage(width, height, BufferedImage.TYPE_INT_RGB);
        for (int y = 0; y < height; y++) for (int x = 0; x < width; x++) bufferedImage.setRGB(x, y, pixels[y * width + x]);
      }
      return bufferedImage;
    }

    public RGBImage clip(Rect r) {
      return r == null ? null : clip(r.getRectangle());
    }

    public RGBImage clip(Rectangle r) {
      r = fixClipRect(r);
      if (r.x == 0 && r.y == 0 && r.width == width && r.height == height)
        return this;
      int[] newPixels;
      try {
        newPixels = new int[r.width * r.height];
      } catch (RuntimeException e) {
        System.out.println(r);
        throw e;
      }
      for (int y = 0; y < r.height; y++) {
        System.arraycopy(pixels, (y + r.y) * width + r.x, newPixels, y * r.width, r.width);
      }
      return new RGBImage(r.width, r.height, newPixels);
    }

    private Rectangle fixClipRect(Rectangle r) {
      r = r.intersection(new Rectangle(0, 0, width, height));
      if (r.isEmpty())
        r = new Rectangle(r.x, r.y, 0, 0);
      return r;
    }

    public int getInt(int x, int y) {
      return pixels[y * width + x];
    }

    public void save(File file) {
      saveImage(file, getBufferedImage());
    }

    public static RGBImage dummyImage() {
      return new RGBImage(1, 1, new int[] { 0xFFFFFF });
    }

    public int[] getPixels() {
      return pixels;
    }

    public void setPixel(int x, int y, int r, int g, int b) {
      if (x >= 0 && y >= 0 && x < width && y < height)
        pixels[y * width + x] = (limitToUByte(r) << 16) | (limitToUByte(g) << 8) | limitToUByte(b);
    }

    public void setPixel(int x, int y, RGB rgb) {
      if (x >= 0 && y >= 0 && x < width && y < height)
        pixels[y * width + x] = rgb.asInt();
    }

    final public void set(int x, int y, Color color) {
      setPixel(x, y, color);
    }

    public void setPixel(int x, int y, Color color) {
      setPixel(x, y, new RGB(color));
    }

    public void setInt(int x, int y, int rgb) {
      setPixel(x, y, rgb);
    }

    public void setPixel(int x, int y, int rgb) {
      if (x >= 0 && y >= 0 && x < width && y < height)
        pixels[y * width + x] = rgb;
    }

    public void setPixel(Pt p, RGB rgb) {
      setPixel(p.x, p.y, rgb);
    }

    public void setPixel(Pt p, Color color) {
      setPixel(p.x, p.y, color);
    }

    public RGBImage copy() {
      return new RGBImage(this);
    }

    public boolean inRange(int x, int y) {
      return x >= 0 && y >= 0 && x < width && y < height;
    }

    public Dimension getSize() {
      return new Dimension(width, height);
    }

    @Override
    public boolean equals(Object o) {
      if (this == o)
        return true;
      if (o == null || getClass() != o.getClass())
        return false;
      RGBImage rgbImage = (RGBImage) o;
      if (height != rgbImage.height)
        return false;
      if (width != rgbImage.width)
        return false;
      if (!Arrays.equals(pixels, rgbImage.pixels))
        return false;
      return true;
    }

    @Override
    public int hashCode() {
      int result = width;
      result = 31 * result + height;
      result = 31 * result + Arrays.hashCode(pixels);
      return result;
    }

    public String getHex(int x, int y) {
      return getPixel(x, y).getHexString();
    }

    public RGBImage clip(int x, int y, int width, int height) {
      return clip(new Rectangle(x, y, width, height));
    }

    public RGBImage clipLine(int y) {
      return clip(0, y, width, 1);
    }

    public int numPixels() {
      return width * height;
    }

    public RGBImage uncacheBufferedImage() {
      bufferedImage = null;
      return this;
    }
  }

  static public interface IRGBImage extends MakesBufferedImage {

    public int getIntPixel(int x, int y);
  }

  static abstract public class DynamicStack extends JPanel {

    final public DynamicStack setSpacing(int spacing) {
      return spacing(spacing);
    }

    public DynamicStack spacing(int spacing) {
      this.spacing = spacing;
      return this;
    }

    final public int getSpacing() {
      return spacing();
    }

    public int spacing() {
      return spacing;
    }

    public int spacing = 10;

    public boolean useFiller = false;

    public DynamicStack() {
      this(true);
    }

    public DynamicStack(boolean useFiller) {
      super(new GridBagLayout());
      this.useFiller = useFiller;
      _addFiller();
    }

    abstract public GridBagConstraints _componentConstraints();

    abstract public GridBagConstraints _fillerConstraints();

    public void _addFiller() {
      if (useFiller)
        add(jrigid(), _fillerConstraints());
    }

    public void addComponent(final Component c) {
      addComponents(ll(c));
    }

    public void addComponents(Collection<? extends Component> l) {
      swing(() -> {
        for (Component c : unnullForIteration(l)) if (c.getParent() != this)
          add(c, _componentConstraints(), getComponentCount() - (useFiller ? 1 : 0));
        revalidate();
      });
    }

    public void setComponents(Collection<? extends Component> l) {
      removeAll();
      _addFiller();
      addComponents(l);
    }

    public void clearComponents() {
      setComponents(null);
    }

    public void removeComponent(Component c) {
      swing(() -> {
        if (c != null) {
          remove(c);
          revalidate();
        }
      });
    }

    public int numComponents() {
      return countComponents() - 1;
    }

    public List<Component> components() {
      return dropLast(main.getComponents(this));
    }

    public boolean isEmpty() {
      return numComponents() == 0;
    }
  }

  static public class JConceptsTable<A extends Concept> implements Swingable {

    public Class<? extends A> conceptClass;

    public Concepts concepts;

    public JTable table;

    public Map<String, Object> filters;

    public String hID = "ID";

    final public JConceptsTable<A> setDropFields(List<String> dropFields) {
      return dropFields(dropFields);
    }

    public JConceptsTable<A> dropFields(List<String> dropFields) {
      this.dropFields = dropFields;
      return this;
    }

    final public List<String> getDropFields() {
      return dropFields();
    }

    public List<String> dropFields() {
      return dropFields;
    }

    public List<String> dropFields;

    final public JConceptsTable<A> setNoSubclasses(boolean noSubclasses) {
      return noSubclasses(noSubclasses);
    }

    public JConceptsTable<A> noSubclasses(boolean noSubclasses) {
      this.noSubclasses = noSubclasses;
      return this;
    }

    final public boolean getNoSubclasses() {
      return noSubclasses();
    }

    public boolean noSubclasses() {
      return noSubclasses;
    }

    public boolean noSubclasses = false;

    public IF1<List, List> postProcess;

    public Runnable afterUpdate;

    public boolean latestFirst = false;

    public IF1<Collection<A>, Collection<A>> sorter = __1 -> defaultSort(__1);

    public int idWidth = 50;

    final public JConceptsTable<A> setUpdateInterval(int updateInterval) {
      return updateInterval(updateInterval);
    }

    public JConceptsTable<A> updateInterval(int updateInterval) {
      this.updateInterval = updateInterval;
      return this;
    }

    final public int getUpdateInterval() {
      return updateInterval();
    }

    public int updateInterval() {
      return updateInterval;
    }

    public int updateInterval = 100;

    public int firstUpdateInterval = 100;

    public boolean humanizeFieldNames = true;

    public Float tableFontSize;

    public Integer tableRowHeight;

    final public JConceptsTable<A> setAddCountToEnclosingTab(boolean addCountToEnclosingTab) {
      return addCountToEnclosingTab(addCountToEnclosingTab);
    }

    public JConceptsTable<A> addCountToEnclosingTab(boolean addCountToEnclosingTab) {
      this.addCountToEnclosingTab = addCountToEnclosingTab;
      return this;
    }

    final public boolean getAddCountToEnclosingTab() {
      return addCountToEnclosingTab();
    }

    public boolean addCountToEnclosingTab() {
      return addCountToEnclosingTab;
    }

    public boolean addCountToEnclosingTab = false;

    final public JConceptsTable<A> setUseNewChangeHandler(boolean useNewChangeHandler) {
      return useNewChangeHandler(useNewChangeHandler);
    }

    public JConceptsTable<A> useNewChangeHandler(boolean useNewChangeHandler) {
      this.useNewChangeHandler = useNewChangeHandler;
      return this;
    }

    final public boolean getUseNewChangeHandler() {
      return useNewChangeHandler();
    }

    public boolean useNewChangeHandler() {
      return useNewChangeHandler;
    }

    public boolean useNewChangeHandler = false;

    final public JConceptsTable<A> setDefaultAction(IVF1<A> defaultAction) {
      return defaultAction(defaultAction);
    }

    public JConceptsTable<A> defaultAction(IVF1<A> defaultAction) {
      this.defaultAction = defaultAction;
      return this;
    }

    final public IVF1<A> getDefaultAction() {
      return defaultAction();
    }

    public IVF1<A> defaultAction() {
      return defaultAction;
    }

    public IVF1<A> defaultAction;

    public boolean pauseUpdates = false;

    public int count;

    transient public Set<Runnable> onSelectionChanged;

    public JConceptsTable<A> onSelectionChanged(Runnable r) {
      onSelectionChanged = createOrAddToSyncLinkedHashSet(onSelectionChanged, r);
      return this;
    }

    public JConceptsTable<A> removeSelectionChangedListener(Runnable r) {
      main.remove(onSelectionChanged, r);
      return this;
    }

    public void selectionChanged() {
      if (onSelectionChanged != null)
        for (var listener : onSelectionChanged) pcallF_typed(listener);
    }

    transient public Set<Runnable> onSingleSelectionChanged;

    public JConceptsTable<A> onSingleSelectionChanged(Runnable r) {
      onSingleSelectionChanged = createOrAddToSyncLinkedHashSet(onSingleSelectionChanged, r);
      return this;
    }

    public JConceptsTable<A> removeSingleSelectionChangedListener(Runnable r) {
      main.remove(onSingleSelectionChanged, r);
      return this;
    }

    public void singleSelectionChanged() {
      if (onSingleSelectionChanged != null)
        for (var listener : onSingleSelectionChanged) pcallF_typed(listener);
    }

    public AWTOnConceptChanges changeHandler;

    public AWTOnConceptChangesByClass newChangeHandler;

    public boolean updatingList = false;

    final public JConceptsTable<A> setSelectAfterUpdate(A selectAfterUpdate) {
      return selectAfterUpdate(selectAfterUpdate);
    }

    public JConceptsTable<A> selectAfterUpdate(A selectAfterUpdate) {
      this.selectAfterUpdate = selectAfterUpdate;
      return this;
    }

    final public A getSelectAfterUpdate() {
      return selectAfterUpdate();
    }

    public A selectAfterUpdate() {
      return selectAfterUpdate;
    }

    public A selectAfterUpdate;

    public A lastSelected;

    public JConceptsTable() {
    }

    public JConceptsTable(Class<? extends A> conceptClass) {
      this.conceptClass = conceptClass;
    }

    public JConceptsTable(Concepts concepts, Class<? extends A> conceptClass) {
      this.conceptClass = conceptClass;
      this.concepts = concepts;
    }

    transient public IF1<A, Map<String, Object>> itemToMap;

    public Map<String, Object> itemToMap(A a) {
      return itemToMap != null ? itemToMap.get(a) : itemToMap_base(a);
    }

    final public Map<String, Object> itemToMap_fallback(IF1<A, Map<String, Object>> _f, A a) {
      return _f != null ? _f.get(a) : itemToMap_base(a);
    }

    public Map<String, Object> itemToMap_base(A a) {
      Map<String, Object> map = specialFieldsForItem(a);
      try {
        putAll(map, mapValues(__81 -> renderValue(__81), itemToMap_inner2(a)));
      } catch (Throwable e) {
        printStackTrace(e);
        map.put("Error", str(e));
      }
      return map;
    }

    transient public IF1<Object, Object> renderValue;

    public Object renderValue(Object o) {
      return renderValue != null ? renderValue.get(o) : renderValue_base(o);
    }

    final public Object renderValue_fallback(IF1<Object, Object> _f, Object o) {
      return _f != null ? _f.get(o) : renderValue_base(o);
    }

    public Object renderValue_base(Object o) {
      return renderForTable_noStruct(o);
    }

    transient public IF1<A, Map<String, Object>> itemToMap_inner2;

    public Map<String, Object> itemToMap_inner2(A a) {
      return itemToMap_inner2 != null ? itemToMap_inner2.get(a) : itemToMap_inner2_base(a);
    }

    final public Map<String, Object> itemToMap_inner2_fallback(IF1<A, Map<String, Object>> _f, A a) {
      return _f != null ? _f.get(a) : itemToMap_inner2_base(a);
    }

    public Map<String, Object> itemToMap_inner2_base(A a) {
      return allConceptFieldsAsMapExcept(a, dropFields);
    }

    transient public IF1<A, Map<String, Object>> specialFieldsForItem;

    public Map<String, Object> specialFieldsForItem(A a) {
      return specialFieldsForItem != null ? specialFieldsForItem.get(a) : specialFieldsForItem_base(a);
    }

    final public Map<String, Object> specialFieldsForItem_fallback(IF1<A, Map<String, Object>> _f, A a) {
      return _f != null ? _f.get(a) : specialFieldsForItem_base(a);
    }

    public Map<String, Object> specialFieldsForItem_base(A a) {
      Map<String, Object> map = litorderedmap(hID, str(a.id));
      mapPut(map, "Java Class", javaClassDescForItem(a));
      return map;
    }

    public String javaClassDescForItem(A a) {
      String className = dynShortClassName(a);
      if (neq(className, shortClassName(conceptClass))) {
        String text = className;
        String realClass = shortClassName(a);
        if (neq(className, realClass))
          text += " as " + realClass;
        return text;
      }
      return null;
    }

    public String defaultTitle() {
      return plural(shortClassName(conceptClass));
    }

    public void showAsFrame() {
      showAsFrame(defaultTitle());
    }

    public void showAsFrame(String title) {
      makeTable();
      showFrame(title, table);
    }

    public void makeTable() {
      if (table != null)
        return;
      if (concepts == null)
        concepts = db_mainConcepts();
      table = sexyTable();
      if (tableFontSize != null) {
        setTableFontSizes(tableFontSize, table);
        if (tableRowHeight == null)
          tableRowHeight = iround(tableFontSize * 1.5);
      }
      if (tableRowHeight != null)
        setRowHeight(table, tableRowHeight);
      if (useNewChangeHandler) {
        newChangeHandler = new AWTOnConceptChangesByClass(concepts, conceptClass, table, () -> _update()).delay(updateInterval).firstDelay(firstUpdateInterval);
        newChangeHandler.install();
      } else {
        changeHandler = new AWTOnConceptChanges(concepts, table, () -> _update()).delay(updateInterval).firstDelay(firstUpdateInterval);
        changeHandler.install();
      }
      onTableSelectionChanged(table, () -> {
        if (updatingList)
          return;
        selectionChanged();
      });
      onSelectionChanged(() -> {
        var a = selected();
        if (a != lastSelected) {
          lastSelected = a;
          singleSelectionChanged();
        }
      });
      onDoubleClickOrEnter(table, () -> {
        A a = selected();
        if (a != null && defaultAction != null)
          pcallF(defaultAction, a);
      });
    }

    public void update() {
      {
        swing(() -> {
          _update();
        });
      }
    }

    public void _update() {
      if (table == null || pauseUpdates)
        return;
      updatingList = true;
      boolean allRestored = false;
      A selectAfterUpdate = selectAfterUpdate();
      try {
        List<Map> data = new ArrayList();
        Set<Long> selection;
        if (selectAfterUpdate != null) {
          selection = litset(selectAfterUpdate._conceptID());
          selectAfterUpdate(null);
        } else
          selection = toSet(selectedConceptIDs());
        Collection<? extends A> l = conceptsWhere(concepts, conceptClass, mapToParams(filters));
        if (noSubclasses)
          l = filter(l, x -> x.getClass() == conceptClass);
        l = postProcess(sorter, l);
        for (A c : l) addIfNotNull(data, itemToMap(c));
        if (latestFirst)
          reverseInPlace(data);
        data = (List) postProcess(postProcess, data);
        count = l(data);
        dataToTable_uneditable(data, table);
        if (humanizeFieldNames)
          humanizeTableColumns();
        tableColumnMaxWidth(table, 0, idWidth);
        allRestored = restoreSelection(selection);
        if (addCountToEnclosingTab)
          updateEnclosingTabTitle();
      } finally {
        updatingList = false;
      }
      pcallF(afterUpdate);
      if (!allRestored || selectAfterUpdate != null)
        selectionChanged();
    }

    public void updateEnclosingTabTitle() {
      updateEnclosingTabTitleWithCount(table, count);
    }

    public void humanizeTableColumns() {
      int n = tableColumnCount(table);
      for (int i = 0; i < n; i++) setColumnName(table, i, humanizeFormLabel(getColumnName(table, i)));
    }

    public JComponent visualize() {
      return table();
    }

    public JTable table() {
      makeTable();
      return table;
    }

    public A selectedConcept() {
      return (A) concepts.getConcept(toLong(selectedTableCell(table, 0)));
    }

    public A selected() {
      return selectedConcept();
    }

    public long getItemID(int row) {
      return toLong(getTableCell(table, row, 0));
    }

    public List<A> getList() {
      return swing(() -> {
        return countIteratorAsList(size(), row -> getItem(row));
      });
    }

    public A getItem(int row) {
      return (A) concepts.getConcept(getItemID(row));
    }

    public int size() {
      return tableRowCount(table);
    }

    public int indexOfConcept(final A c) {
      if (c == null)
        return -1;
      return swing(new F0<Integer>() {

        public Integer get() {
          try {
            int n = size();
            for (int row = 0; row < n; row++) if (toLong(getTableCell(table, row, 0)) == c.id)
              return row;
            return -1;
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "int n = size();\r\n      for row to n:\r\n        if (toLong(getTableCell(table, ...";
        }
      });
    }

    public List<A> selectedConcepts() {
      return swing(() -> {
        int[] rows = table.getSelectedRows();
        List<A> l = new ArrayList();
        for (int row : rows) l.add(getItem(row));
        return l;
      });
    }

    public List<Long> selectedConceptIDs() {
      return swing(() -> {
        int[] rows = table.getSelectedRows();
        List<Long> l = emptyList(l(rows));
        for (int row : rows) l.add(getItemID(row));
        return l;
      });
    }

    public boolean restoreSelection(Set<Long> selection) {
      return swing(() -> {
        int n = size();
        IntBuffer toSelect = new IntBuffer();
        for (int row = 0; row < n; row++) if (selection.contains(getItemID(row)))
          toSelect.add(row);
        selectTableRows(table, toSelect.toIntArray());
        return toSelect.size() == selection.size();
      });
    }

    public void setSelected(A a) {
      selectRow(table(), indexOfConcept(a));
    }

    public Collection<A> defaultSort(Collection<A> l) {
      return sortByConceptID(l);
    }

    public JConceptsTable<A> addFilter(String field, Object value) {
      filters = orderedMapPutOrCreate(filters, field, value);
      return this;
    }

    public void onSelectionChangedAndWhenShowing(Runnable r) {
      bindToComponent(table(), r);
      onSelectionChanged(r);
    }

    public void onSelectionChangedAndNow(Runnable r) {
      if (r == null)
        return;
      onSelectionChanged(r);
      r.run();
    }

    public JConceptsTable<A> updateInterval(double seconds) {
      return updateInterval(toMS_int(seconds));
    }

    public JConceptsTable<A> pauseUpdates(boolean b) {
      {
        swing(() -> {
          if (pauseUpdates != b) {
            if (!(pauseUpdates = b))
              _update();
          }
        });
      }
      return this;
    }
  }

  static public interface IMultiSet<A> extends IntSize {

    public int add(A key);

    public int get(A key);

    public Set<A> keySet();
  }

  static public class TableSearcher {

    public JTable table;

    public JTextField tfInput;

    public JComponent searchPanel, panel;

    public F2<String, Map, Boolean> rowTester;

    public List<Integer> rowIndices;

    public SingleComponentPanel scpRightOfSearchPanel = scp();

    public List lastFiltered, lastOriginal;

    public String input() {
      return gtt(tfInput);
    }

    public void clearSearchField() {
      setText(tfInput, "");
    }
  }

  static public TableSearcher tableWithSearcher2(JTable t, Object... __) {
    TableSearcher s = new TableSearcher();
    boolean precise = true;
    s.table = t;
    s.tfInput = jtextfield();
    s.rowTester = new F2<String, Map, Boolean>() {

      public Boolean get(String pat, Map row) {
        try {
          return anyValueContainsIgnoreCase(row, pat);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "anyValueContainsIgnoreCase(row, pat)";
      }
    };
    onUpdate(s.tfInput, new Runnable() {

      public void run() {
        String pat = s.input();
        List<Map<String, Object>> data = rawTableData(t);
        if (eq(s.lastFiltered, data))
          data = s.lastOriginal;
        List data2 = new ArrayList();
        List<Integer> rowIndices = new ArrayList();
        for (int i = 0; i < l(data); i++) {
          Map<String, Object> map = data.get(i);
          if (isTrue(callF(s.rowTester, pat, map))) {
            data2.add(map);
            rowIndices.add(i);
          }
        }
        s.lastFiltered = data2;
        s.lastOriginal = data;
        dataToTable(t, data2);
        if (precise)
          s.lastFiltered = rawTableData(t);
        s.rowIndices = rowIndices;
      }
    });
    s.searchPanel = centerAndEast(withLabel(" Search:", s.tfInput), s.scpRightOfSearchPanel);
    JComponent top = s.searchPanel;
    s.panel = boolOptPar(__, "withMargin") ? northAndCenterWithMargin(top, t) : northAndCenter(top, t);
    return s;
  }

  static abstract public class DialogIO implements AutoCloseable {

    public String line;

    public boolean eos, loud, noClose;

    public Lock lock = lock();

    abstract public String readLineImpl();

    abstract public boolean isStillConnected();

    abstract public void sendLine(String line);

    abstract public boolean isLocalConnection();

    abstract public Socket getSocket();

    public int getPort() {
      Socket s = getSocket();
      return s == null ? 0 : s.getPort();
    }

    public boolean helloRead = false;

    public int shortenOutputTo = 500;

    public String readLineNoBlock() {
      String l = line;
      line = null;
      return l;
    }

    public boolean waitForLine() {
      try {
        ping();
        if (line != null)
          return true;
        line = readLineImpl();
        if (line == null)
          eos = true;
        return line != null;
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public String readLine() {
      waitForLine();
      helloRead = true;
      return readLineNoBlock();
    }

    public String ask(String s, Object... args) {
      if (loud)
        return askLoudly(s, args);
      if (!helloRead)
        readLine();
      if (args.length != 0)
        s = format3(s, args);
      sendLine(s);
      return readLine();
    }

    public String askLoudly(String s, Object... args) {
      if (!helloRead)
        readLine();
      if (args.length != 0)
        s = format3(s, args);
      print("> " + shorten(s, shortenOutputTo));
      sendLine(s);
      String answer = readLine();
      print("< " + shorten(answer, shortenOutputTo));
      return answer;
    }

    public void pushback(String l) {
      if (line != null)
        throw fail();
      line = l;
      helloRead = false;
    }
  }

  static abstract public class DialogHandler implements IDialogHandler {
  }

  public interface IDialogHandler {

    public void run(DialogIO io);
  }

  static public class DoneFlag extends Flag {

    transient volatile public Object error;

    transient public boolean printErrors = false;

    public DoneFlag() {
    }

    public DoneFlag(boolean printErrors) {
      this.printErrors = printErrors;
    }

    public void done() {
      raise();
    }

    final public void setError(Object error) {
      done(error);
    }

    public void done(Object error) {
      this.error = error;
      if (printErrors)
        printStackTrace_gen(error);
      raise();
    }

    public boolean hasError() {
      return error != null;
    }

    public boolean isDone() {
      return isUp();
    }
  }

  static public class DefaultButtonBorder extends JPanel {

    public JButton button;

    public DefaultButtonBorder(JButton button) {
      super(new BorderLayout());
      this.button = button;
      setBorder(makeBorder());
      add(button);
      onEnabledChanged(button, () -> setBorder(makeBorder()));
    }

    public Border makeBorder() {
      return BorderFactory.createLineBorder(main.isEnabled(button) ? Color.black : Color.lightGray);
    }
  }

  static public class JavaXPeepholeShortener implements IFieldsToList {

    public List<String> tok;

    public JavaXPeepholeShortener() {
    }

    public JavaXPeepholeShortener(List<String> tok) {
      this.tok = tok;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + tok + ")";
    }

    public Object[] _fieldsToList() {
      return new Object[] { tok };
    }

    public void run() {
      try {
        jreplace(tok, "<quoted>, <id>", "+$3", (_tok, nIdx) -> eq(unquote(_get(tok, nIdx + 1)), _get(tok, nIdx + 5)));
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }
  }

  static public class G22LAScriptIDE<A extends G22LeftArrowScript> implements Swingable {

    final public G22LAScriptIDE<A> setG22utils(G22Utils g22utils) {
      return g22utils(g22utils);
    }

    public G22LAScriptIDE<A> g22utils(G22Utils g22utils) {
      this.g22utils = g22utils;
      return this;
    }

    final public G22Utils getG22utils() {
      return g22utils();
    }

    public G22Utils g22utils() {
      return g22utils;
    }

    public G22Utils g22utils;

    final public G22LAScriptIDE<A> setNoScriptSelectedMsg(String noScriptSelectedMsg) {
      return noScriptSelectedMsg(noScriptSelectedMsg);
    }

    public G22LAScriptIDE<A> noScriptSelectedMsg(String noScriptSelectedMsg) {
      this.noScriptSelectedMsg = noScriptSelectedMsg;
      return this;
    }

    final public String getNoScriptSelectedMsg() {
      return noScriptSelectedMsg();
    }

    public String noScriptSelectedMsg() {
      return noScriptSelectedMsg;
    }

    public String noScriptSelectedMsg = "Please select or create a script to edit it";

    final public A getScript() {
      return script();
    }

    public A script() {
      return script;
    }

    public A script;

    transient public SingleComponentPanel scp;

    transient public JLeftArrowScriptIDE[] ides;

    transient public JExtendedTabbedPane tabs;

    transient public JButton btnSave, btnDiscardChanges, btnClearForAutoRun;

    transient public CollapsibleLeftPanel collapsibleResultPanel;

    transient public G22ScriptResultPanel resultPanel;

    transient public Mode lastVisibleMode;

    abstract public class Mode {

      public G22ScriptMode modeEnum;

      public String name;

      final public boolean getEditable() {
        return editable();
      }

      public boolean editable() {
        return editable;
      }

      public boolean editable = false;

      public Mode(G22ScriptMode modeEnum, String name, boolean editable) {
        this.editable = editable;
        this.name = name;
        this.modeEnum = modeEnum;
      }

      public IVarWithNotify<String> scriptVar_cache;

      public IVarWithNotify<String> scriptVar() {
        if (scriptVar_cache == null)
          scriptVar_cache = scriptVar_load();
        return scriptVar_cache;
      }

      abstract public IVarWithNotify<String> scriptVar_load();

      public void addButtons(JPanel panel) {
      }

      public String toString() {
        return name;
      }

      public String tabName() {
        return scriptVar().has() ? name : "Not " + firstToLower(name);
      }
    }

    public class ModeClearedForAutoRun extends Mode {

      public ModeClearedForAutoRun() {
        super(G22ScriptMode.autoRunnable, "Cleared for auto-run", false);
      }

      public IVarWithNotify<String> scriptVar_load() {
        var var = new VirtualVar<String>(() -> script.codeForAutoRun(), null);
        addWeakChangeListener(script.varClearedForAutoRun(), var);
        return var;
      }

      public void addButtons(JPanel panel) {
        panel.add(jbutton("Forget auto-run code", runnableThread(new Runnable() {

          public void run() {
            try {
              forgetAutoRunCode();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "forgetAutoRunCode();";
          }
        })));
      }
    }

    public class ModeSaved extends Mode {

      public ModeSaved() {
        super(G22ScriptMode.saved, "Saved", false);
      }

      public IVarWithNotify<String> scriptVar_load() {
        return getterVarOnly(script.varText());
      }

      public void addButtons(JPanel panel) {
        panel.add(btnClearForAutoRun = jbutton("Clear for auto-run", runnableThread(new Runnable() {

          public void run() {
            try {
              clearForAutoRun();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "clearForAutoRun();";
          }
        })));
        panel.add(jbutton("Forget code", runnableThread(new Runnable() {

          public void run() {
            try {
              forgetSaved();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "forgetSaved();";
          }
        })));
      }
    }

    public class ModeEdit extends Mode {

      public ModeEdit() {
        super(G22ScriptMode.edit, "Edit", true);
      }

      public IVarWithNotify<String> scriptVar_load() {
        var var = new VirtualVar<String>(() -> script.textForEditing(), text -> script.receiveEditingText(text));
        addWeakChangeListener(script, var);
        return var;
      }

      public void addButtons(JPanel panel) {
        panel.add(btnSave = jbutton("Save", runnableThread(new Runnable() {

          public void run() {
            try {
              saveEdit();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "saveEdit();";
          }
        })));
        panel.add(btnDiscardChanges = jbutton("Discard changes", runnableThread(new Runnable() {

          public void run() {
            try {
              discardEdit();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "discardEdit();";
          }
        })));
      }
    }

    transient public ModeEdit modeEdit = new ModeEdit();

    transient public ModeSaved modeSaved = new ModeSaved();

    transient public ModeClearedForAutoRun modeClearedForAutoRun = new ModeClearedForAutoRun();

    transient public List<Mode> modes = ll(modeEdit, modeSaved, modeClearedForAutoRun);

    public G22LAScriptIDE(G22Utils g22utils) {
      this.g22utils = g22utils;
    }

    public transient JComponent visualize_cache;

    public JComponent visualize() {
      if (visualize_cache == null)
        visualize_cache = visualize_load();
      return visualize_cache;
    }

    public JComponent visualize_load() {
      return markVisualizer(this, visualize_impl());
    }

    public JComponent visualize_impl() {
      ides = new JLeftArrowScriptIDE[l(modes)];
      if (scp == null)
        scp = singleComponentPanel();
      loadScript(script);
      return scp;
    }

    public void setScript(A script) {
      if (this.script != script)
        if (this.script != null)
          throw fail("Can't set script after initialisation");
        else
          loadScript(script);
    }

    public void loadScript(A script) {
      this.script = script;
      if (scp == null)
        return;
      if (script == null)
        scp.set(jcenteredlabel(noScriptSelectedMsg()));
      else {
        tabs = jExtendedTabs();
        resultPanel = new G22ScriptResultPanel();
        collapsibleResultPanel = new CollapsibleLeftPanel(false, "Output", resultPanel.visualize(), tabs.visualize());
        collapsibleResultPanel.sidePanelMargins = c -> withTopAndLeftMargin(c);
        for (Pair<Integer, Mode> __0 : iterateWithIndex(modes)) {
          int i = pairA(__0);
          Mode mode = pairB(__0);
          var ide = ides[i] = g22utils.leftArrowIDE();
          ide.withResultPanel(false);
          ide.resultPanel = resultPanel;
          ide.collapsibleResultPanel = collapsibleResultPanel;
          ide.wrapSection = c -> wrapEditorSection(mode, c);
          ide.newCompileResult = () -> script.newCompileResult();
          ide.makeParser = () -> script.makeParser();
          modifyIDE(ide);
          var varScript = mode.scriptVar();
          ide.lvScript(varWithNotifyToLiveValue(String.class, varScript));
          addTab(tabs, str(mode));
          mode.addButtons(ide.buttons());
          ide.visualize();
          ide.setEditable(mode.editable());
          varScript.onChangeAndNow(text -> setTab(tabs, i, text == null ? jcenteredlabel("Empty") : wrapIDE(mode, ide)));
          ide.popDownButton.onFillingMenu(menu -> addMenuItem(menu, "Show History", runnableThread(new Runnable() {

            public void run() {
              try {
                showHistory();
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "showHistory();";
            }
          })));
        }
        script.onChangeAndNow(new Runnable() {

          public void run() {
            try {
              for (Pair<Integer, Mode> __1 : iterateWithIndex(modes)) {
                int i = pairA(__1);
                Mode mode = pairB(__1);
                setTabTitle(tabs, i, mode.tabName());
              }
              setEnabled(script.isEditing(), btnSave, btnDiscardChanges);
              setEnabled(btnClearForAutoRun, script.isSavedDistinctFromAutoRunVersion());
              for (var ide : ides) ide.sectionTitle(str(script));
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "for (Pair<Integer, Mode> __1 : iterateWithIndex(modes))\r\n          { int i = ...";
          }
        });
        onTabSelectedAndNow(tabs, () -> {
          var mode = visibleMode();
          if (lastVisibleMode != null && lastVisibleMode != mode) {
            var lastIDE = ide(lastVisibleMode);
            var ide = visibleIDE();
            awtLater(0.5, () -> {
              LineAndColumn lac = caretLineAndCol(lastIDE.textArea());
              moveCaretToLineAndCol(ide.textArea(), lac);
              setEnclosingViewPosition(ide.textArea(), enclosingViewPosition(lastIDE.textArea()));
              focus(ide.textArea());
            });
          }
          lastVisibleMode = mode;
          tabs.setComponentBesideTabs(mode != modeEdit ? jfullcenter(withRightMargin(jbutton("Edit script", () -> setMode(modeEdit)))) : null);
        });
        setMode(script.isEditing() ? modeEdit : modeSaved);
        scp.set(collapsibleResultPanel);
      }
    }

    transient public IF2<Mode, JComponent, JComponent> wrapEditorSection;

    public JComponent wrapEditorSection(Mode mode, JComponent editorSection) {
      return wrapEditorSection != null ? wrapEditorSection.get(mode, editorSection) : wrapEditorSection_base(mode, editorSection);
    }

    final public JComponent wrapEditorSection_fallback(IF2<Mode, JComponent, JComponent> _f, Mode mode, JComponent editorSection) {
      return _f != null ? _f.get(mode, editorSection) : wrapEditorSection_base(mode, editorSection);
    }

    public JComponent wrapEditorSection_base(Mode mode, JComponent editorSection) {
      return editorSection;
    }

    transient public IF2<Mode, JLeftArrowScriptIDE, JComponent> wrapIDE;

    public JComponent wrapIDE(Mode mode, JLeftArrowScriptIDE ide) {
      return wrapIDE != null ? wrapIDE.get(mode, ide) : wrapIDE_base(mode, ide);
    }

    final public JComponent wrapIDE_fallback(IF2<Mode, JLeftArrowScriptIDE, JComponent> _f, Mode mode, JLeftArrowScriptIDE ide) {
      return _f != null ? _f.get(mode, ide) : wrapIDE_base(mode, ide);
    }

    public JComponent wrapIDE_base(Mode mode, JLeftArrowScriptIDE ide) {
      return ide.visualize();
    }

    transient public Set<IVF1<JLeftArrowScriptIDE>> onSettingUpIDE;

    public G22LAScriptIDE<A> onSettingUpIDE(IVF1<JLeftArrowScriptIDE> f) {
      onSettingUpIDE = createOrAddToSyncLinkedHashSet(onSettingUpIDE, f);
      return this;
    }

    public G22LAScriptIDE<A> removeSettingUpIDEListener(IVF1<JLeftArrowScriptIDE> f) {
      main.remove(onSettingUpIDE, f);
      return this;
    }

    public void settingUpIDE(JLeftArrowScriptIDE ide) {
      if (onSettingUpIDE != null)
        for (var listener : onSettingUpIDE) pcallF_typed(listener, ide);
    }

    transient public IVF1<JLeftArrowScriptIDE> modifyIDE;

    public void modifyIDE(JLeftArrowScriptIDE ide) {
      if (modifyIDE != null)
        modifyIDE.get(ide);
      else
        modifyIDE_base(ide);
    }

    final public void modifyIDE_fallback(IVF1<JLeftArrowScriptIDE> _f, JLeftArrowScriptIDE ide) {
      if (_f != null)
        _f.get(ide);
      else
        modifyIDE_base(ide);
    }

    public void modifyIDE_base(JLeftArrowScriptIDE ide) {
      ide.showTitle(false);
      settingUpIDE(ide);
    }

    public void saveEdit() {
      script.completeEdit();
      setMode(modeSaved);
    }

    public JLeftArrowScriptIDE ide(Mode mode) {
      if (ides == null)
        visualize();
      return _get(ides, indexOf(modes, mode));
    }

    public RSyntaxTextArea visibleTextArea() {
      var ide = visibleIDE();
      return ide == null ? null : ide.textArea();
    }

    public void setMode(Mode mode) {
      var caretPos = caretLineAndCol(visibleTextArea());
      printVars("setMode", "caretPos", caretPos);
      selectTab(tabs, indexOf(modes, mode));
      var ide = visibleIDE();
      printVars("setMode", "ide", ide, "mode", visibleMode());
      ide.goToPosition_noFocus(caretPos);
      if (mode == modeEdit)
        focus(visibleTextArea());
    }

    public Mode visibleMode() {
      return _get(modes, indexOfSelectedTab(tabs));
    }

    public JLeftArrowScriptIDE visibleIDE() {
      return ide(visibleMode());
    }

    public void discardEdit() {
      setMode(modeSaved);
      script.discardEdit();
    }

    public void forgetSaved() {
      script.setTextWithHistory(null);
    }

    public void clearForAutoRun() {
      script.clearForAutoRun();
      setMode(modeClearedForAutoRun);
    }

    public void forgetAutoRunCode() {
      script.forgetAutoRunCode();
    }

    private void selfTest_impl() {
      G22LeftArrowScript script = new G22LeftArrowScript();
      setScript((A) script);
      ide(modeEdit).setText("hello");
      assertEqualsVerbose(null, script.text());
      assertEqualsVerbose("hello", script.editedText());
      saveEdit();
      assertEqualsVerbose("hello", script.text());
      assertEqualsVerbose(null, script.editedText());
    }

    static public void selfTest(G22Utils g22utils) {
      new G22LAScriptIDE(g22utils).selfTest_impl();
    }

    public void showHistory() {
      showText("Edit history of " + script, loadTextFile(script.historyFile()));
    }

    public void goToPositionInAllModes(LineAndColumn lac) {
      for (var ide : ides) {
        if (ide != null)
          ide.goToPosition_noFocus(lac);
      }
    }
  }

  static public class DeleteFilesDialog {

    final public DeleteFilesDialog setTitle(String title) {
      return title(title);
    }

    public DeleteFilesDialog title(String title) {
      this.title = title;
      return this;
    }

    final public String getTitle() {
      return title();
    }

    public String title() {
      return title;
    }

    public String title = "Delete files";

    public LinkedHashSet<File> filesToDelete = new LinkedHashSet();

    public DeleteFilesDialog() {
    }

    public DeleteFilesDialog(String title) {
      this.title = title;
    }

    public DeleteFilesDialog wholeDirectory(File dir) {
      if (!isDirectory(dir))
        return this;
      filesToDelete.addAll(reversed(findAllFiles(dir)));
      filesToDelete.add(dir);
      return this;
    }

    public void show() {
      renameSubmitButton("DELETE " + upper(nFiles(filesToDelete)), showFormTitled3(title, "Files to delete", jscroll(uneditableTextArea(lines(filesToDelete))), null, runnableThread(new Runnable() {

        public void run() {
          try {
            doIt();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "doIt();";
        }
      })).visualize());
    }

    public void doIt() {
      int successes = 0;
      for (File f : filesToDelete) if (deleteFile(f)) {
        print("DELETED: " + f);
        ++successes;
      } else
        print("COULDN'T DELETE: " + f);
      int failures = l(filesToDelete) - successes;
      String msg = "Deleted " + nFiles(successes);
      if (failures == 0)
        infoBox(msg);
      else
        messageBox(msg + ", but couldn't delete " + n2(failures));
    }
  }

  static public interface IHasGlobalID {

    public GlobalID globalID();
  }

  public interface IHasChangeListeners {

    public IHasChangeListeners onChange(Runnable r);

    public IHasChangeListeners removeChangeListener(Runnable r);

    default public IHasChangeListeners onChangeAndNow(Runnable l) {
      onChange(l);
      callF(l);
      return this;
    }
  }

  static public class JFastLogView_noWrap extends JComponent implements Scrollable {

    public List<String> lines = syncList();

    public boolean endsWithNewLine, verbose;

    public Dimension getPreferredScrollableViewportSize() {
      return getPreferredSize();
    }

    public int getScrollableUnitIncrement(Rectangle visibleRect, int orientation, int direction) {
      return 20;
    }

    public int getScrollableBlockIncrement(Rectangle visibleRect, int orientation, int direction) {
      return (direction == SwingConstants.HORIZONTAL ? visibleRect.width : visibleRect.height) * 5 / 6;
    }

    public boolean getScrollableTracksViewportWidth() {
      return false;
    }

    public boolean getScrollableTracksViewportHeight() {
      return false;
    }

    public void paint(Graphics g) {
      int w = getWidth(), h = getHeight();
      g.setColor(getBackground());
      g.fillRect(0, 0, w, h);
      g.setColor(getForeground());
      FontMetrics fm = componentFontMetrics(this);
      int fh = fm.getHeight();
      Rectangle clip = g.getClipBounds();
      int start, end;
      if (clip == null) {
        start = 0;
        end = l(lines);
      } else {
        start = max(0, clip.y / fh);
        end = min(l(lines), idiv_ceil(clip.y + clip.height, fh));
      }
      int y = fm.getAscent() + start * fh;
      for (int i = start; i < end; i++) {
        String s = get(lines, i);
        if (s != null)
          g.drawString(s, 0, y);
        y += fh;
      }
    }

    public Dimension getPreferredSize() {
      FontMetrics fm = componentFontMetrics(this);
      if (fm == null)
        return new Dimension(50, 50);
      int fh = fm.getHeight();
      int w = 0;
      for (int i = 0; i < l(lines); i++) {
        String s = get(lines, i);
        w = max(w, fm.stringWidth(unnull(s)));
      }
      return new Dimension(w, fh * l(lines));
    }

    public JFastLogView_noWrap() {
    }

    public JFastLogView_noWrap(String text) {
      setText(text);
    }

    {
      componentPopupMenuItem(this, "Copy full text", new Runnable() {

        public void run() {
          try {
            copyFullText();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "copyFullText();";
        }
      });
    }

    public boolean setLines(Collection<String> lines) {
      List<String> newList = asSyncList(lines);
      if (eq(this.lines, newList))
        return false;
      this.lines = newList;
      _revalidate(this);
      return true;
    }

    public boolean setText(String text) {
      endsWithNewLine = endsWithNewLine(text);
      return setLines(lines(text));
    }

    public void append(String text) {
      if (nempty(text))
        setText(getText() + text);
    }

    public String getText() {
      return lines_rtrimIf(!endsWithNewLine, cloneList(lines));
    }

    public void copyFullText() {
      copyTextToClipboard(getText());
    }
  }

  static public class JObjectTable<A> implements Swingable {

    public List<A> data = new ArrayList();

    transient public IF1<A, Map> itemToMap;

    transient public Set<String> hideFields;

    transient public boolean debug, fieldsInOrder = true, withSearcher;

    final public JObjectTable<A> setDefaultAction(IVF1<A> defaultAction) {
      return defaultAction(defaultAction);
    }

    public JObjectTable<A> defaultAction(IVF1<A> defaultAction) {
      this.defaultAction = defaultAction;
      return this;
    }

    final public IVF1<A> getDefaultAction() {
      return defaultAction();
    }

    public IVF1<A> defaultAction() {
      return defaultAction;
    }

    public IVF1<A> defaultAction;

    final public JTable getTable() {
      return table();
    }

    public JTable table() {
      return table;
    }

    transient public JTable table;

    transient public TableSearcher searcher;

    transient public boolean useStruct = false;

    transient public Set<Runnable> onListChanged;

    public JObjectTable<A> onListChanged(Runnable r) {
      onListChanged = createOrAddToSyncLinkedHashSet(onListChanged, r);
      return this;
    }

    public JObjectTable<A> removeListChangedListener(Runnable r) {
      main.remove(onListChanged, r);
      return this;
    }

    public void listChanged() {
      if (onListChanged != null)
        for (var listener : onListChanged) pcallF_typed(listener);
    }

    public JObjectTable() {
      itemToMap = a -> {
        if (a instanceof String)
          return litorderedmap("", (String) a);
        Map map = humanizeKeys(fieldsInOrder ? objectToMap_inOrder_withoutFields(a, hideFields) : objectToMap(a));
        if (!useStruct)
          map = mapValues(__82 -> strOrEmpty(__82), map);
        return map;
      };
    }

    public void onListChangedAndNow(Runnable r) {
      if (r == null)
        return;
      onListChanged(r);
      r.run();
    }

    public transient JComponent visualize_cache;

    public JComponent visualize() {
      if (visualize_cache == null)
        visualize_cache = visualize_load();
      return visualize_cache;
    }

    public JComponent visualize_load() {
      return markVisualizer(this, visualize_impl());
    }

    public JComponent visualize_impl() {
      List<Map> l = map(itemToMap, data);
      table = dataToTable_uneditable(sexyTable(), l);
      onDoubleClickOrEnter(table, new VF1<Integer>() {

        public void get(Integer row) {
          try {
            A a = _get(data, row);
            if (a != null) {
              if (defaultAction != null)
                defaultAction.get(a);
            }
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "A a = _get(data, row);\r\n      if (a != null) defaultAction?.get(a);";
        }
      });
      if (withSearcher)
        return (searcher = tableWithSearcher2(table)).panel;
      return jscroll(table);
    }

    public void updateTable() {
      if (table != null) {
        swing(() -> {
          Point scrollPosition = enclosingViewPosition(table);
          if (debug)
            print("Scroll position: " + scrollPosition);
          dataToTable_uneditable(table, map(itemToMap, data));
          setEnclosingViewPosition(table, scrollPosition);
          if (searcher != null)
            searcher.rowIndices = null;
          if (debug)
            print("dataToTable done, alerting " + n2(onListChanged, "listener"));
        });
      }
      listChanged();
    }

    public void clear() {
      syncClear(data);
      fireDataChanged();
    }

    public void add(A a) {
      syncAdd(data, a);
      fireDataChanged();
    }

    public A addAndReturn(A a) {
      add(a);
      return a;
    }

    public void add(int idx, A a) {
      syncAdd(data, idx, a);
      fireDataChanged();
    }

    public void addAll(Collection<A> l) {
      if (empty(l))
        return;
      syncAddAll(data, l);
      fireDataChanged();
    }

    public void addAndScrollDown(A a) {
      add(a);
      scrollDown();
    }

    public void remove(A a) {
      syncRemove(data, a);
      fireDataChanged();
    }

    public void removeAll(List<A> a) {
      syncRemoveAll(data, a);
      fireDataChanged();
    }

    public void setList(Iterable<A> data) {
      setData(data);
    }

    public void removeSelected() {
      removeAll(allSelected());
    }

    public void setData(Iterable<A> data) {
      setData(data, false);
    }

    public void setData(Iterable<A> data, boolean force) {
      {
        swing(() -> {
          int[] selection = selectedTableRows_array(table);
          List<A> cloned = cloneList(data);
          if (force || !eq(this.data, cloned)) {
            this.data = cloned;
            updateTable();
          }
          selectTableRows(table, selection);
        });
      }
    }

    public int count() {
      return syncL(data);
    }

    public void setData_force(Iterable<A> data) {
      setData(data, true);
    }

    public void fireDataChanged() {
      setData_force(data);
    }

    public int rowFromSearcher(int i) {
      return searcher == null || searcher.rowIndices == null ? i : or(get(searcher.rowIndices, i), -1);
    }

    public A selected() {
      return syncGet(data, rowFromSearcher(selectedTableRowInModel(table)));
    }

    public List<A> allSelected() {
      return syncListGetMulti(data, selectedIndices());
    }

    public int selectedIndex() {
      return selectedTableRow(table);
    }

    public List<Integer> selectedIndices() {
      return map(i -> rowFromSearcher(i), selectedTableRowsInModel(table));
    }

    public boolean selectItem(A a) {
      int i = indexOf(data, a);
      selectRow(table, i);
      return i >= 0;
    }

    public void doubleClickItem(A a) {
      if (selectItem(a)) {
        if (defaultAction != null)
          defaultAction.get(a);
      }
    }

    public void popupMenuItem(String text, IVF1<A> r) {
      tablePopupMenuItemsThreaded(table, text, _convertRunnable(r));
    }

    public void popupMenuItem_top(String text, IVF1<A> r) {
      tablePopupMenuItemsThreaded_top(table, text, _convertRunnable(r));
    }

    public IVF1<Integer> _convertRunnable(IVF1<A> r) {
      return r == null ? null : idx -> r.get(syncGet(data, idx));
    }

    public void hideFields(String... fields) {
      if (hideFields == null)
        hideFields = new HashSet();
      _addAll(hideFields, fields);
    }

    public A getRow(int row) {
      return get(data, row);
    }

    public void scrollDown() {
      scrollTableDownNow(table);
    }

    public void onSelect(IVF1<A> r) {
      visualize();
      onTableSelectionChanged(table, () -> pcallF_typed(r, selected()));
    }

    public List<A> getList() {
      return data;
    }
  }

  static public class JForm implements Swingable {

    public List parts = new ArrayList();

    public FormLayout1 layout = new FormLayout1();

    public JPanel panel;

    final public JForm setScrollable(boolean scrollable) {
      return scrollable(scrollable);
    }

    public JForm scrollable(boolean scrollable) {
      this.scrollable = scrollable;
      return this;
    }

    final public boolean getScrollable() {
      return scrollable();
    }

    public boolean scrollable() {
      return scrollable;
    }

    public boolean scrollable = false;

    final public JForm setFrameCloser(IVF1<Component> frameCloser) {
      return frameCloser(frameCloser);
    }

    public JForm frameCloser(IVF1<Component> frameCloser) {
      this.frameCloser = frameCloser;
      return this;
    }

    final public IVF1<Component> getFrameCloser() {
      return frameCloser();
    }

    public IVF1<Component> frameCloser() {
      return frameCloser;
    }

    public IVF1<Component> frameCloser;

    public JForm(Object... parts) {
      this.parts = asList(parts);
    }

    public JForm addRow(String label, Swingable component) {
      return addRow(label, toComponent(component));
    }

    public JForm addRow(String label, Component component) {
      addAll(parts, label, component);
      return this;
    }

    public transient JComponent visualize_cache;

    public JComponent visualize() {
      if (visualize_cache == null)
        visualize_cache = visualize_load();
      return visualize_cache;
    }

    public JComponent visualize_load() {
      return markVisualizer(this, visualize_impl());
    }

    public JComponent visualize_impl() {
      panel = jpanel(layout, showForm_arrange1(showForm_makeComponents(c -> {
        {
          if (frameCloser != null)
            frameCloser.get(c);
        }
      }, flattenToArray(parts))));
      return scrollable ? jscroll_vertical(panel) : panel;
    }

    public JForm closeInternalFrameOnSubmit() {
      frameCloser(__1 -> disposeInternalFrame(__1));
      return this;
    }

    final public JForm disposeFrameOnSubmit() {
      return closeFrameOnSubmit();
    }

    public JForm closeFrameOnSubmit() {
      frameCloser(__2 -> disposeFrame(__2));
      return this;
    }

    public JForm closeNothingOnSubmit() {
      frameCloser(null);
      return this;
    }
  }

  static public class FunctionCall implements Transformable, IFieldsToList {

    public Object function;

    public Object[] args;

    public FunctionCall() {
    }

    public Object[] _fieldsToList() {
      return new Object[] { function, args };
    }

    static public String _fieldOrder = "function args";

    public FunctionCall(Object function, Object... args) {
      this.args = args;
      this.function = function;
      if (empty(this.args))
        this.args = null;
    }

    public FunctionCall(Object function, List args) {
      this(function, toObjectArray(args));
    }

    public String toString() {
      return function + "(" + joinWithComma(allToString(args)) + ")";
    }

    public String toStringWithOptionalParens() {
      return empty(args) ? str(function) : toString();
    }

    public boolean equals(Object o) {
      return o instanceof FunctionCall && eq(function, ((FunctionCall) o).function) && objectArraysEqual(args, ((FunctionCall) o).args);
    }

    public int hashCode() {
      return hashAboutObjects(function, asList(args));
    }

    public List args() {
      return asList(args);
    }

    public Object transformUsing(IF1 f) {
      return new FunctionCall(f.get(function), mapObjectArray(f, args));
    }
  }

  static public class FormLayout1 extends AbstractLayoutManager {

    public void layoutContainer(Container parent) {
      List<Component> l = getComponents(parent);
      BitSet bigOnes = new BitSet();
      for (int i = 0; i < l(l); i++) if (containsATextArea(l.get(i)))
        add(bigOnes, i);
      int nBigOnes = bigOnes.cardinality();
      int mandatoryHeight = totalPreferredHeight(listWithoutIndicesInBitSet(l, bigOnes));
      int gap = 4, outerSpacing = 5;
      Dimension size = parent.getSize();
      int gapsAndMargins = outerSpacing * 2 + (l(l) - 1) * gap;
      int totalSpace = size.height - gapsAndMargins;
      int liberalSpace = totalSpace - mandatoryHeight;
      double perBigOne = doubleRatio(liberalSpace, nBigOnes);
      double y = outerSpacing;
      for (int i = 0; i < l(l); i++) {
        Component c = l.get(i);
        boolean big = contains(bigOnes, i);
        double h = big ? perBigOne : c.getPreferredSize().height;
        int actualY = iround(y);
        c.setBounds(outerSpacing, actualY, size.width - outerSpacing * 2, iround(y + h) - actualY);
        y += h + gap;
      }
      Dimension pref = componentsBoundingSize(parent, outerSpacing);
      if (parent.getHeight() <= 0) {
        int tph = totalPreferredHeight(l);
        pref.height = tph + gapsAndMargins;
      }
      preferredSize(pref);
    }
  }

  static public class AWTOnConceptChangesByClass implements AutoCloseable {

    final public AWTOnConceptChangesByClass setComponent(JComponent component) {
      return component(component);
    }

    public AWTOnConceptChangesByClass component(JComponent component) {
      this.component = component;
      return this;
    }

    final public JComponent getComponent() {
      return component();
    }

    public JComponent component() {
      return component;
    }

    public JComponent component;

    final public AWTOnConceptChangesByClass setAction(Runnable action) {
      return action(action);
    }

    public AWTOnConceptChangesByClass action(Runnable action) {
      this.action = action;
      return this;
    }

    final public Runnable getAction() {
      return action();
    }

    public Runnable action() {
      return action;
    }

    public Runnable action;

    final public AWTOnConceptChangesByClass setConcepts(Concepts concepts) {
      return concepts(concepts);
    }

    public AWTOnConceptChangesByClass concepts(Concepts concepts) {
      this.concepts = concepts;
      return this;
    }

    final public Concepts getConcepts() {
      return concepts();
    }

    public Concepts concepts() {
      return concepts;
    }

    public Concepts concepts;

    final public AWTOnConceptChangesByClass setConceptClass(Class conceptClass) {
      return conceptClass(conceptClass);
    }

    public AWTOnConceptChangesByClass conceptClass(Class conceptClass) {
      this.conceptClass = conceptClass;
      return this;
    }

    final public Class getConceptClass() {
      return conceptClass();
    }

    public Class conceptClass() {
      return conceptClass;
    }

    public Class conceptClass;

    final public AWTOnConceptChangesByClass setFirstDelay(int firstDelay) {
      return firstDelay(firstDelay);
    }

    public AWTOnConceptChangesByClass firstDelay(int firstDelay) {
      this.firstDelay = firstDelay;
      return this;
    }

    final public int getFirstDelay() {
      return firstDelay();
    }

    public int firstDelay() {
      return firstDelay;
    }

    public int firstDelay;

    final public AWTOnConceptChangesByClass setDelay(int delay) {
      return delay(delay);
    }

    public AWTOnConceptChangesByClass delay(int delay) {
      this.delay = delay;
      return this;
    }

    final public int getDelay() {
      return delay();
    }

    public int delay() {
      return delay;
    }

    public int delay = 500;

    volatile public long changes = -1, changeCounter;

    public javax.swing.Timer timer;

    public AutoCloseable closer;

    public AWTOnConceptChangesByClass(Concepts concepts, Class conceptClass, JComponent component, Runnable action) {
      this.action = action;
      this.component = component;
      this.conceptClass = conceptClass;
      this.concepts = concepts;
    }

    public void install() {
      assertNotNull(concepts);
      assertNotNull(conceptClass);
      assertNotNull(component);
      bindToComponent(component, () -> closer = onConceptChangeByClass_notOnAllChanged(concepts, conceptClass, () -> ++changeCounter), () -> {
        {
          cleanUp(closer);
          closer = null;
        }
      });
      timer = installTimer(component, delay, firstDelay, new Runnable() {

        public void run() {
          try {
            _trigger();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "_trigger();";
        }
      });
    }

    public void _trigger() {
      long c = changeCounter;
      if (changes != c) {
        changes = c;
        {
          if (action != null)
            action.run();
        }
      }
    }

    public void close() {
      try {
        {
          cleanUp(timer);
          timer = null;
        }
        {
          cleanUp(closer);
          closer = null;
        }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }
  }

  static public class IntBuffer implements Iterable<Integer> {

    public int[] data;

    public int size;

    public IntBuffer() {
    }

    public IntBuffer(int size) {
      if (size != 0)
        data = new int[size];
    }

    public IntBuffer(Iterable<Integer> l) {
      if (l instanceof Collection)
        allocate(((Collection) l).size());
      addAll(l);
    }

    public void add(int i) {
      if (size >= lIntArray(data)) {
        data = resizeIntArray(data, Math.max(1, toInt(Math.min(maximumSafeArraySize(), lIntArray(data) * 2L))));
        if (size >= data.length)
          throw fail("IntBuffer too large: " + size);
      }
      data[size++] = i;
    }

    public void allocate(int n) {
      data = resizeIntArray(data, max(n, size()));
    }

    public void setSize(int n) {
      data = resizeIntArray(data, n);
      size = min(l(data), size);
    }

    public void addAll(Iterable<Integer> l) {
      if (l != null)
        for (int i : l) add(i);
    }

    public void addAll(int... l) {
      if (l != null)
        for (int i : l) add(i);
    }

    final public int[] toIntArray() {
      return toArray();
    }

    public int[] toArray() {
      return size == 0 ? null : resizeIntArray(data, size);
    }

    public int[] subArray(int from, int to) {
      return subIntArray(data, from, min(to, size));
    }

    public int[] toArrayNonNull() {
      return unnull(toArray());
    }

    final public List<Integer> asList() {
      return toList();
    }

    final public List<Integer> asVirtualList() {
      return toList();
    }

    public List<Integer> toList() {
      return new RandomAccessAbstractList<Integer>() {

        public int size() {
          return size;
        }

        public Integer get(int i) {
          return IntBuffer.this.get(i);
        }

        public Integer set(int i, Integer val) {
          Integer a = get(i);
          data[i] = val;
          return a;
        }
      };
    }

    public void reset() {
      size = 0;
    }

    public void clear() {
      reset();
    }

    public int size() {
      return size;
    }

    public boolean isEmpty() {
      return size == 0;
    }

    public int get(int idx) {
      if (idx >= size)
        throw fail("Index out of range: " + idx + "/" + size);
      return data[idx];
    }

    public void set(int idx, int value) {
      if (idx >= size)
        throw fail("Index out of range: " + idx + "/" + size);
      data[idx] = value;
    }

    public int popLast() {
      if (size == 0)
        throw fail("empty buffer");
      return data[--size];
    }

    public int last() {
      return data[size - 1];
    }

    public int nextToLast() {
      return data[size - 2];
    }

    public String toString() {
      return squareBracket(joinWithSpace(toList()));
    }

    public Iterator<Integer> iterator() {
      return new IterableIterator<Integer>() {

        public int i = 0;

        public boolean hasNext() {
          return i < size;
        }

        public Integer next() {
          return data[i++];
        }
      };
    }

    public IntegerIterator integerIterator() {
      return new IntegerIterator() {

        public int i = 0;

        public boolean hasNext() {
          return i < size;
        }

        public int next() {
          return data[i++];
        }

        public String toString() {
          return "Iterator@" + i + " over " + IntBuffer.this;
        }
      };
    }

    public void trimToSize() {
      data = resizeIntArray(data, size);
    }
  }

  static public class JExtendedTabbedPane implements Swingable {

    public JTabbedPane tabs;

    public List<Component> components = new ArrayList();

    public SingleComponentPanel scpBesideTabs = scp();

    public SingleComponentPanel scpPage = scp();

    final public JExtendedTabbedPane setVerbose(boolean verbose) {
      return verbose(verbose);
    }

    public JExtendedTabbedPane verbose(boolean verbose) {
      this.verbose = verbose;
      return this;
    }

    final public boolean getVerbose() {
      return verbose();
    }

    public boolean verbose() {
      return verbose;
    }

    public boolean verbose = false;

    public JExtendedTabbedPane(JTabbedPane _tabs) {
      swing(() -> {
        tabs = _tabs != null ? _tabs : jtabs();
        int n = tabCount(tabs);
        for (int i = 0; i < n; i++) {
          var c = tabs.getComponentAt(i);
          c.setVisible(true);
          components.add(c);
          tabs.setComponentAt(i, emptyPage());
        }
        onTabSelectedAndNow(tabs, () -> updatePage());
      });
    }

    public void updatePage() {
      int idx = getSelectedIndex();
      var c = get(components, idx);
      if (verbose)
        printVars("JExtendedTabbedPane.updateTabs", "idx", idx, "c", c);
      scpPage.set(c);
    }

    public Component emptyPage() {
      return verticalStrut(0);
    }

    public transient JComponent visualize_cache;

    public JComponent visualize() {
      if (visualize_cache == null)
        visualize_cache = visualize_load();
      return visualize_cache;
    }

    public JComponent visualize_load() {
      return markVisualizer(this, visualize_impl());
    }

    public JComponent visualize_impl() {
      return vertical() ? westAndCenter(centerAndSouthWithMargin(tabs, scpBesideTabs), wrapPage(scpPage)) : northAndCenter(centerAndEastWithMargin(tabs, scpBesideTabs), wrapPage(scpPage));
    }

    transient public IF1<JComponent, JComponent> wrapPage;

    public JComponent wrapPage(JComponent page) {
      return wrapPage != null ? wrapPage.get(page) : wrapPage_base(page);
    }

    final public JComponent wrapPage_fallback(IF1<JComponent, JComponent> _f, JComponent page) {
      return _f != null ? _f.get(page) : wrapPage_base(page);
    }

    public JComponent wrapPage_base(JComponent page) {
      return page;
    }

    final public JExtendedTabbedPane setComponentBelowTabs(Component c) {
      return setComponentBesideTabs(c);
    }

    public JExtendedTabbedPane setComponentBesideTabs(Component c) {
      scpBesideTabs.set(c);
      return this;
    }

    public int getSelectedIndex() {
      return tabs.getSelectedIndex();
    }

    public void setComponentAt(int i, Component c) {
      components.set(i, c);
      if (getSelectedIndex() == i)
        updatePage();
    }

    public Component getComponentAt(int i) {
      return components.get(i);
    }

    public Component getTabComponentAt(int i) {
      return tabs.getTabComponentAt(i);
    }

    public void add(String title, Component c) {
      components.add(c);
      tabs.add(title, emptyPage());
    }

    public int getTabCount() {
      return tabs.getTabCount();
    }

    public void setTitleAt(int i, String title) {
      tabs.setTitleAt(i, title);
    }

    public void setSelectedIndex(int i) {
      tabs.setSelectedIndex(i);
    }

    public boolean vertical() {
      return tabs.getTabPlacement() == JTabbedPane.LEFT;
    }
  }

  static public interface Transformable {

    public Object transformUsing(IF1 f);
  }

  static public class VirtualVar<A> extends HasChangeListeners implements IVarWithNotify<A>, IFieldsToList {

    public IF0<A> getter;

    public IVF1<A> setter;

    public VirtualVar() {
    }

    public VirtualVar(IF0<A> getter, IVF1<A> setter) {
      this.setter = setter;
      this.getter = getter;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + getter + ", " + setter + ")";
    }

    public boolean equals(Object o) {
      if (!(o instanceof VirtualVar))
        return false;
      VirtualVar __1 = (VirtualVar) o;
      return eq(getter, __1.getter) && eq(setter, __1.setter);
    }

    public int hashCode() {
      int h = -393827268;
      h = boostHashCombine(h, _hashCode(getter));
      h = boostHashCombine(h, _hashCode(setter));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { getter, setter };
    }

    public void set(A a) {
      {
        if (setter != null)
          setter.get(a);
      }
    }

    public A get() {
      return getter == null ? null : getter.get();
    }
  }

  static abstract public class F2<A, B, C> {

    abstract public C get(A a, B b);
  }

  static public class GlobalID implements Comparable<GlobalID> {

    public long a;

    public int b;

    public GlobalID() {
    }

    public GlobalID(String id) {
      assertGlobalID(id);
      BigInteger value = bigint(0);
      for (int i = 0; i < l(id); i++) value = plus(mul(value, 26), charDiff(id.charAt(i), 'a'));
      a = value.longValue();
      value = value.shiftRight(64);
      b = value.shortValue();
    }

    public String toString() {
      BigInteger value = bigint(b);
      value = value.shiftLeft(32);
      value = plus(value, (a >> 32) & 0xFFFFFFFFL);
      value = value.shiftLeft(32);
      value = plus(value, a & 0xFFFFFFFFL);
      return bigintToGlobalID(value);
    }

    public boolean equals(Object o) {
      if (!(o instanceof GlobalID))
        return false;
      return ((GlobalID) o).a == a && ((GlobalID) o).b == b;
    }

    public int hashCode() {
      return (int) a;
    }

    public int compareTo(GlobalID id) {
      int diff = b - id.b;
      return diff != 0 ? diff : Long.compareUnsigned(a, id.a);
    }
  }

  abstract static public class AbstractLayoutManager implements LayoutManager {

    final public AbstractLayoutManager setPreferredSize(Dimension preferredSize) {
      return preferredSize(preferredSize);
    }

    public AbstractLayoutManager preferredSize(Dimension preferredSize) {
      this.preferredSize = preferredSize;
      return this;
    }

    final public Dimension getPreferredSize() {
      return preferredSize();
    }

    public Dimension preferredSize() {
      return preferredSize;
    }

    public Dimension preferredSize = new Dimension(100, 100);

    final public AbstractLayoutManager setMinimumSize(Dimension minimumSize) {
      return minimumSize(minimumSize);
    }

    public AbstractLayoutManager minimumSize(Dimension minimumSize) {
      this.minimumSize = minimumSize;
      return this;
    }

    final public Dimension getMinimumSize() {
      return minimumSize();
    }

    public Dimension minimumSize() {
      return minimumSize;
    }

    public Dimension minimumSize = new Dimension(10, 10);

    public void addLayoutComponent(String name, Component comp) {
    }

    public void removeLayoutComponent(Component comp) {
    }

    public AbstractLayoutManager preferredSize(int w, int h) {
      return preferredSize(new Dimension(w, h));
    }

    public Dimension preferredLayoutSize(Container parent) {
      layoutContainer(parent);
      return preferredSize;
    }

    public Dimension minimumLayoutSize(Container parent) {
      return minimumSize;
    }
  }

  abstract static public class RandomAccessAbstractList<A> extends AbstractList<A> implements RandomAccess {
  }

  abstract static public class IntegerIterator {

    abstract public boolean hasNext();

    abstract public int next();
  }

  static public class HasChangeListeners implements IHasChangeListeners, ChangeTriggerable {

    transient public Set<Runnable> onChange;

    public HasChangeListeners onChange(Runnable r) {
      onChange = createOrAddToSyncLinkedHashSet(onChange, r);
      return this;
    }

    public HasChangeListeners removeChangeListener(Runnable r) {
      main.remove(onChange, r);
      return this;
    }

    public void change() {
      if (onChange != null)
        for (var listener : onChange) pcallF_typed(listener);
    }
  }

  static public Object preciseGetOrCallMethod(Object object, String name) {
    if (object == null)
      return null;
    if (canCallWithVarargs(object, name))
      return call(object, name);
    return _get(object, name);
  }

  static public <A> A set(A o, String field, Object value) {
    if (o == null)
      return null;
    if (o instanceof Class)
      set((Class) o, field, value);
    else
      try {
        Field f = set_findField(o.getClass(), field);
        makeAccessible(f);
        smartSet(f, o, value);
      } catch (Exception e) {
        throw new RuntimeException(e);
      }
    return o;
  }

  static public void set(Class c, String field, Object value) {
    if (c == null)
      return;
    try {
      Field f = set_findStaticField(c, field);
      makeAccessible(f);
      smartSet(f, null, value);
    } catch (Exception e) {
      throw new RuntimeException(e);
    }
  }

  static public Field set_findStaticField(Class<?> c, String field) {
    Class _c = c;
    do {
      for (Field f : _c.getDeclaredFields()) if (f.getName().equals(field) && (f.getModifiers() & java.lang.reflect.Modifier.STATIC) != 0)
        return f;
      _c = _c.getSuperclass();
    } while (_c != null);
    throw new RuntimeException("Static field '" + field + "' not found in " + c.getName());
  }

  static public Field set_findField(Class<?> c, String field) {
    Class _c = c;
    do {
      for (Field f : _c.getDeclaredFields()) if (f.getName().equals(field))
        return f;
      _c = _c.getSuperclass();
    } while (_c != null);
    throw new RuntimeException("Field '" + field + "' not found in " + c.getName());
  }

  static public void set(BitSet bs, int idx) {
    {
      if (bs != null)
        bs.set(idx);
    }
  }

  static public Lock dbLock() {
    return db_mainConcepts().lock;
  }

  static public Lock dbLock(Concepts cc) {
    return cc == null ? null : cc.lock;
  }

  static public Lock dbLock(Concept c) {
    return dbLock(c == null ? null : c._concepts);
  }

  static public boolean bareDBMode_on = false;

  static public void bareDBMode() {
    bareDBMode(null);
  }

  static public void bareDBMode(Integer autoSaveInterval) {
    bareDBMode_on = true;
    conceptsAndBot(autoSaveInterval);
  }

  static public ThreadLocal<Boolean> DynamicObject_loading = or((ThreadLocal) get(getClass("x30_pkg.x30_util"), "DynamicObject_loading"), new ThreadLocal());

  static public ThreadLocal<Boolean> dynamicObjectIsLoading_threadLocal() {
    return DynamicObject_loading;
  }

  static public Class<?> getClass(String name) {
    return _getClass(name);
  }

  static public Class getClass(Object o) {
    return _getClass(o);
  }

  static public Class getClass(Object realm, String name) {
    return _getClass(realm, name);
  }

  static public boolean classIsExportedTo(Class c, java.lang.Module destModule) {
    if (c == null || destModule == null)
      return false;
    java.lang.Module srcModule = c.getModule();
    String packageName = c.getPackageName();
    return srcModule.isExported(packageName, destModule);
  }

  static public boolean isAbstract(Class c) {
    return (c.getModifiers() & Modifier.ABSTRACT) != 0;
  }

  static public boolean isAbstract(Method m) {
    return (m.getModifiers() & Modifier.ABSTRACT) != 0;
  }

  static public boolean reflection_isForbiddenMethod(Method m) {
    return m.getDeclaringClass() == Object.class && eqOneOf(m.getName(), "finalize", "clone", "registerNatives");
  }

  static public Set<Class> allInterfacesImplementedBy(Object o) {
    return allInterfacesImplementedBy(_getClass(o));
  }

  static public Set<Class> allInterfacesImplementedBy(Class c) {
    if (c == null)
      return null;
    HashSet<Class> set = new HashSet();
    allInterfacesImplementedBy_find(c, set);
    return set;
  }

  static public void allInterfacesImplementedBy_find(Class c, Set<Class> set) {
    if (c.isInterface() && !set.add(c))
      return;
    do {
      for (Class intf : c.getInterfaces()) allInterfacesImplementedBy_find(intf, set);
    } while ((c = c.getSuperclass()) != null);
  }

  static public Method findStaticMethod(Class c, String method, Object... args) {
    Class _c = c;
    while (c != null) {
      for (Method m : c.getDeclaredMethods()) {
        if (!m.getName().equals(method))
          continue;
        if ((m.getModifiers() & Modifier.STATIC) == 0 || !findStaticMethod_checkArgs(m, args))
          continue;
        return m;
      }
      c = c.getSuperclass();
    }
    return null;
  }

  static public boolean findStaticMethod_checkArgs(Method m, Object[] args) {
    Class<?>[] types = m.getParameterTypes();
    if (types.length != args.length)
      return false;
    for (int i = 0; i < types.length; i++) if (!(args[i] == null || isInstanceX(types[i], args[i])))
      return false;
    return true;
  }

  static public String unquote(String s) {
    if (s == null)
      return null;
    if (startsWith(s, '[')) {
      int i = 1;
      while (i < s.length() && s.charAt(i) == '=') ++i;
      if (i < s.length() && s.charAt(i) == '[') {
        String m = s.substring(1, i);
        if (s.endsWith("]" + m + "]"))
          return s.substring(i + 1, s.length() - i - 1);
      }
    }
    return unquoteSingleOrDoubleQuotes(s);
  }

  static public List<String> quoteAll(String[] l) {
    return quoteAll(asList(l));
  }

  static public List<String> quoteAll(Collection<String> l) {
    List<String> x = new ArrayList();
    for (String s : l) x.add(quote(s));
    return x;
  }

  static public int _hashCode(Object a) {
    return a == null ? 0 : a.hashCode();
  }

  static public boolean arraysEqual(Object[] a, Object[] b) {
    if (a.length != b.length)
      return false;
    for (int i = 0; i < a.length; i++) if (neq(a[i], b[i]))
      return false;
    return true;
  }

  static public Object metaGet(IMeta o, Object key) {
    return metaMapGet(o, key);
  }

  static public Object metaGet(Object o, Object key) {
    return metaMapGet(o, key);
  }

  static public Object metaGet(String key, IMeta o) {
    return metaMapGet(o, key);
  }

  static public Object metaGet(String key, Object o) {
    return metaMapGet(o, key);
  }

  static public Object metaMapGet(IMeta o, Object key) {
    return o == null ? null : o.metaGet(key);
  }

  static public Object metaMapGet(Object o, Object key) {
    return metaMapGet(toIMeta(o), key);
  }

  static public void metaPut(IMeta o, Object key, Object value) {
    metaMapPut(o, key, value);
  }

  static public void metaPut(Object o, Object key, Object value) {
    metaMapPut(o, key, value);
  }

  static public void metaMapPut(IMeta o, Object key, Object value) {
    {
      if (o != null)
        o.metaPut(key, value);
    }
  }

  static public void metaMapPut(Object o, Object key, Object value) {
    var meta = initIMeta(o);
    {
      if (meta != null)
        meta.metaPut(key, value);
    }
  }

  static public Map convertObjectMetaToMap(IMeta o) {
    return convertObjectMetaToMap(o, () -> makeObjectMetaMap());
  }

  static public Map convertObjectMetaToMap(IMeta o, IF0<Map> createEmptyMap) {
    if (o == null)
      return null;
    Object meta = o._getMeta();
    if (meta instanceof Map)
      return ((Map) meta);
    var mutex = tempMetaMutex(o);
    try {
      var actualMutex = mutex.get();
      synchronized (actualMutex) {
        meta = o._getMeta();
        if (meta instanceof Map)
          return ((Map) meta);
        Map map = createEmptyMap.get();
        if (meta != null)
          map.put("previousMeta", meta);
        o._setMeta(map);
        return map;
      }
    } finally {
      _close(mutex);
    }
  }

  static public <A, B> void syncMapPutOrRemove(Map<A, B> map, A key, B value) {
    syncMapPut2(map, key, value);
  }

  static public float clamp(float x, float a, float b) {
    return x < a ? a : x > b ? b : x;
  }

  static public double clamp(double x, double a, double b) {
    return x < a ? a : x > b ? b : x;
  }

  static public int clamp(int x, int a, int b) {
    return x < a ? a : x > b ? b : x;
  }

  static public long clamp(long x, long a, long b) {
    return x < a ? a : x > b ? b : x;
  }

  static public void add(BitSet bs, int i) {
    bs.set(i);
  }

  static public <A> boolean add(Collection<A> c, A a) {
    return c != null && c.add(a);
  }

  static public void add(Container c, Component x) {
    addToContainer(c, x);
  }

  static public long add(AtomicLong l, long b) {
    return l.addAndGet(b);
  }

  static public <A> A _print(String s, A a) {
    return print(s, a);
  }

  static public <A> A _print(A a) {
    return print(a);
  }

  static public void _print() {
    print();
  }

  static public boolean _eq(Object a, Object b) {
    return eq(a, b);
  }

  static public String toString(Object o) {
    return strOrNull(o);
  }

  static public String formatDouble(double d, int digits) {
    String format = digits <= 0 ? "0" : "0." + rep(digits, '#');
    return decimalFormatEnglish(format, d);
  }

  static public String formatDouble(double d) {
    return str(d);
  }

  static public double ratioToPercent(double x, double y) {
    return x * 100 / y;
  }

  static public int boostHashCombine(int a, int b) {
    return a ^ (b + 0x9e3779b9 + (a << 6) + (a >>> 2));
  }

  static public long now_virtualTime;

  static public long now() {
    return now_virtualTime != 0 ? now_virtualTime : System.currentTimeMillis();
  }

  static public String formatLocalDateWithSeconds(long time) {
    return localDateWithSeconds(time);
  }

  static public String formatLocalDateWithSeconds() {
    return localDateWithSeconds();
  }

  static public long toMS(double seconds) {
    return (long) (seconds * 1000);
  }

  static public long toMS(Duration d) {
    return d == null ? 0 : d.toMillis();
  }

  static public long clockTimeToSystemTime(long now) {
    return now == 0 ? 0 : now + clockToSysTimeDiff();
  }

  static public TreeSet<String> ciSet() {
    return caseInsensitiveSet();
  }

  static public <A> A last(List<A> l) {
    return empty(l) ? null : l.get(l.size() - 1);
  }

  static public char last(String s) {
    return empty(s) ? '#' : s.charAt(l(s) - 1);
  }

  static public byte last(byte[] a) {
    return l(a) != 0 ? a[l(a) - 1] : 0;
  }

  static public int last(int[] a) {
    return l(a) != 0 ? a[l(a) - 1] : 0;
  }

  static public long last(long[] a) {
    return l(a) != 0 ? a[l(a) - 1] : 0;
  }

  static public double last(double[] a) {
    return l(a) != 0 ? a[l(a) - 1] : 0;
  }

  static public <A> A last(A[] a) {
    return l(a) != 0 ? a[l(a) - 1] : null;
  }

  static public <A> A last(Iterator<A> it) {
    A a = null;
    while (it.hasNext()) {
      ping();
      a = it.next();
    }
    return a;
  }

  static public <A> A last(Collection<A> l) {
    if (l == null)
      return null;
    if (l instanceof List)
      return (A) last((List) l);
    if (l instanceof SortedSet)
      return (A) last((SortedSet) l);
    Iterator<A> it = iterator(l);
    A a = null;
    while (it.hasNext()) {
      ping();
      a = it.next();
    }
    return a;
  }

  static public <A> A last(SortedSet<A> l) {
    return l == null ? null : l.last();
  }

  static public <A> A last(ReverseChain<A> l) {
    return l == null ? null : l.element;
  }

  static public int last(IntBuffer buf) {
    return buf.get(buf.size() - 1);
  }

  static public <A> A last(CompactLinkedHashSet<A> set) {
    return set == null ? null : set.last();
  }

  static public <A> void replaceLast(List<A> l, A a) {
    replaceLastElement(l, a);
  }

  static public <A> A[] toTypedArray(Class<A> type, Iterable<A> c) {
    return toArray(c, type);
  }

  static public <A> String pnlToLines(String prefix, Iterable<A> l) {
    return pnlToString(prefix, l);
  }

  static public <A> String pnlToLines(Iterable<A> l) {
    return pnlToString(l);
  }

  static public <A> String pnlToLines(A[] l) {
    return pnlToString(l);
  }

  static public <A, B> String pnlToLines(Map<A, B> map) {
    return pnlToString(map);
  }

  static public <A, B> String pnlToLines(MultiMap<A, B> map) {
    return pnlToString(map);
  }

  static public String formatRecordVars(String recordName, Object... params) {
    return renderRecordVars(recordName, params);
  }

  static public String indentx(Object s) {
    return indentx(strOrEmpty(s));
  }

  static public String indentx(String s) {
    return indentx(indent_default, s);
  }

  static public String indentx(int n, String s) {
    return dropSuffix(repeat(' ', n), indent(n, s));
  }

  static public String indentx(String indent, String s) {
    return dropSuffix(indent, indent(indent, s));
  }

  static public TokenIndexedList3 tokenIndexedList3(List<String> l) {
    return l instanceof TokenIndexedList3 ? ((TokenIndexedList3) l) : new TokenIndexedList3(l);
  }

  static public void tok_ifdef(List<String> tok, IF1<String, Boolean> isDefined) {
    jreplace_dyn(tok, "ifdef <id> or <id>", (_tok, cIdx) -> {
      String flag1 = tok.get(cIdx + 2), flag2 = tok.get(cIdx + 6);
      boolean value = isDefined.get(flag1) || isDefined.get(flag2);
      return "ifdef " + value;
    });
    tok_conditionals(tok, "ifdef", "endifdef", isDefined, true, false);
  }

  static public void tok_pcall_script(List<String> tok) {
    replaceKeywordBlock(tok, "pcall", "try {", "} catch __e { pcallFail __e }");
  }

  static public void tok_script_settable(List<String> tok) {
    int i;
    while ((i = jfind(tok, "settable <id> :")) >= 0) {
      String id = tok.get(i + 2);
      int iType = i + 6;
      String type = tok_script_scanType(tok, i + 6);
      String getter = "def !synthetic " + id + ": " + type + " { this !_getField_ " + id + "}";
      String setter = "def !synthetic " + id + " " + id + ": " + type + " { this " + id + " <- " + id + "; this }";
      replaceToken_reTok(tok, i, joinWithSpace(getter, setter));
    }
  }

  static public String jreplace(String s, String in, String out) {
    return jreplace(s, in, out, null);
  }

  static public String jreplace(String s, String in, String out, Object condition) {
    List<String> tok = javaTok(s);
    return jreplace(tok, in, out, condition) ? join(tok) : s;
  }

  static public boolean jreplace(List<String> tok, String in, String out) {
    return jreplace(tok, in, out, false, true, null);
  }

  static public boolean jreplace(List<String> tok, String in, String out, Object condition) {
    return jreplace(tok, in, out, false, true, condition);
  }

  static public boolean jreplace(List<String> tok, String in, ITokCondition condition, String out) {
    return jreplace(tok, in, out, (Object) condition);
  }

  static public boolean jreplace(List<String> tok, String in, String out, IF2<List<String>, Integer, Boolean> condition) {
    return jreplace(tok, in, out, (Object) condition);
  }

  static public boolean jreplace(List<String> tok, String in, String out, boolean ignoreCase, boolean reTok, Object condition) {
    String[] toks = javaTokForJFind_array(in);
    int lTokin = toks.length * 2 + 1;
    boolean anyChange = false;
    int i = -1;
    for (int n = 0; n < 10000; n++) {
      i = findCodeTokens(tok, i + 1, ignoreCase, toks, condition);
      if (i < 0)
        return anyChange;
      List<String> subList = tok.subList(i - 1, i + lTokin - 1);
      String expansion = jreplaceExpandRefs(out, subList);
      int end = i + lTokin - 2;
      clearAllTokens(tok, i, end);
      tok.set(i, expansion);
      if (reTok)
        reTok(tok, i, end);
      i = end;
      anyChange = true;
    }
    throw fail("woot? 10000! " + quote(in) + " => " + quote(out));
  }

  static public boolean jreplace_debug = false;

  static public boolean setText_opt = true;

  static public <A extends JTextComponent> A setText(A c, Object text) {
    setText((JComponent) c, text);
    return c;
  }

  static public <A extends JComboBox> A setText(final A c, Object text) {
    final String s = strUnnull(text);
    {
      swing(() -> {
        c.getEditor().setItem(s);
      });
    }
    return c;
  }

  static public void setText(JLabel c, Object text) {
    setText((JComponent) c, text);
  }

  static public JButton setText(JButton c, Object text) {
    setText((JComponent) c, jlabel_textAsHTML_center_ifNeeded(strUnnull(text)));
    return c;
  }

  static public <A extends JComponent> A setText(final A c, Object text) {
    if (c == null)
      return null;
    final String s = strUnnull(text);
    {
      swing(() -> {
        if (!setText_opt || neq(callOpt(c, "getText"), s))
          call(c, "setText", s);
      });
    }
    return c;
  }

  static public RuntimeException rethrowAndAppendToMessage(Throwable t, String msg) {
    String haveMsg = t.getMessage();
    if (empty(msg) || endsWith(haveMsg, " " + msg))
      throw rethrow(t);
    throw new RuntimeException(joinWithSpace(t.getMessage(), msg), t);
  }

  static public String squareBracketed(String s) {
    return "[" + s + "]";
  }

  static public String spaceCombine(Object... l) {
    return joinNemptiesWithSpace(flattenCollections(ll(l)));
  }

  static public <A, B> AutoCloseable tempRestoreMap(Map<A, B> map) {
    if (map == null)
      return null;
    var cloned = cloneMap(map);
    return () -> copyMap(cloned, map);
  }

  static public boolean is(String a, String b) {
    return false;
  }

  static public void _close(AutoCloseable c) {
    if (c != null)
      try {
        c.close();
      } catch (Throwable e) {
        if (c instanceof javax.imageio.stream.ImageOutputStream)
          return;
        else
          throw rethrow(e);
      }
  }

  static public String assertIdentifier(String s) {
    return assertIsIdentifier(s);
  }

  static public String assertIdentifier(String msg, String s) {
    return assertIsIdentifier(msg, s);
  }

  static public <A, B> Map<A, B> putOrCreateLinkedHashMap(Map<A, B> map, A key, B value) {
    if (map == null)
      map = new LinkedHashMap();
    map.put(key, value);
    return map;
  }

  static public boolean isIdentifier(String s) {
    return isJavaIdentifier(s);
  }

  static public Class typeToClass(Type type) {
    if (type == null)
      return null;
    if (type instanceof Class)
      return ((Class) type);
    if (type instanceof ParameterizedType)
      return optCast(Class.class, ((ParameterizedType) type).getRawType());
    if (type instanceof GenericArrayType)
      return typeToClass(((GenericArrayType) type).getGenericComponentType()).arrayType();
    if (type instanceof IResolvableClass)
      return ((IResolvableClass) type).resolveToClass();
    return null;
  }

  static public void printVars(Object... params) {
    printVars_str(params);
  }

  static public void scaffoldCalled(Object obj, Object function, Object... args) {
    printShortenedFunctionCall(200, (obj == null ? "" : shorten(20, str(obj)) + " :: ") + function, args);
  }

  static public boolean startsWithDigit(String s) {
    return nempty(s) && isDigit(s.charAt(0));
  }

  static public boolean isQuoted(String s) {
    if (isNormalQuoted(s))
      return true;
    return isMultilineQuoted(s);
  }

  static public boolean swic(String a, String b) {
    return startsWithIgnoreCase(a, b);
  }

  static public boolean swic(String a, String b, Matches m) {
    if (!swic(a, b))
      return false;
    m.m = new String[] { substring(a, l(b)) };
    return true;
  }

  static public int parseHexInt(String s) {
    return hexToInt(s);
  }

  static public int intFromBinary(String s) {
    return Integer.parseInt(s, 2);
  }

  static public boolean isInteger(String s) {
    int n = l(s);
    if (n == 0)
      return false;
    int i = 0;
    if (s.charAt(0) == '-')
      if (++i >= n)
        return false;
    while (i < n) {
      char c = s.charAt(i);
      if (c < '0' || c > '9')
        return false;
      ++i;
    }
    return true;
  }

  static public Number parseIntOrLong(String s) {
    long l = parseLong(s);
    return longIsInt(l) ? (Number) (int) l : (Number) l;
  }

  static public float parseFloat(String s) {
    return Float.parseFloat(s);
  }

  static public boolean endsWith(String a, String b) {
    return a != null && a.endsWith(b);
  }

  static public boolean endsWith(String a, char c) {
    return nempty(a) && lastChar(a) == c;
  }

  static public boolean endsWith(String a, String b, Matches m) {
    if (!endsWith(a, b))
      return false;
    m.m = new String[] { dropLast(l(b), a) };
    return true;
  }

  static public long parseLong(String s) {
    if (empty(s))
      return 0;
    return Long.parseLong(dropSuffix("L", s));
  }

  static public long parseLong(Object s) {
    return Long.parseLong((String) s);
  }

  static public boolean hasStaticMethodNamed(Class c, String method) {
    if (c == null)
      return false;
    var methods = getMethodCache(c).cache.get(method);
    if (methods != null)
      for (var m : methods) if (isStaticMethod(m))
        return true;
    return false;
  }

  static public boolean isInterface(Class c) {
    return c != null && c.isInterface();
  }

  static public Field getField(Object o, String field) {
    if (o == null)
      return null;
    return setOpt_findField(_getClass(o), field);
  }

  static public Object getField(Field field, Object o) {
    return fieldGet(field, o);
  }

  static public Field findFieldInInterfaces(Class c, String field) {
    if (c == null)
      return null;
    for (var intf : allInterfacesImplementedBy(c)) {
      var __1 = getField(intf, field);
      if (__1 != null)
        return __1;
    }
    return null;
  }

  static public boolean isStaticField(Field f) {
    return (f.getModifiers() & Modifier.STATIC) != 0;
  }

  static public String[] toStringArray(Collection<String> c) {
    String[] a = new String[l(c)];
    Iterator<String> it = c.iterator();
    for (int i = 0; i < l(a); i++) a[i] = it.next();
    return a;
  }

  static public String[] toStringArray(Object o) {
    if (o instanceof String[])
      return (String[]) o;
    else if (o instanceof Collection)
      return toStringArray((Collection<String>) o);
    else
      throw fail("Not a collection or array: " + getClassName(o));
  }

  static public List<Constructor> constructorsWithNumberOfArguments(Class c, int n) {
    return filter(getDeclaredConstructors_cached(c), con -> l(con.getParameterTypes()) == n);
  }

  static public Object[] toArray(Collection c) {
    return toObjectArray(c);
  }

  static public <A> A[] toArray(Class<A> type, Iterable<A> c) {
    return toArray(c, type);
  }

  static public <A> A[] toArray(Class<A> type, Collection<A> c) {
    return toArray(c, type);
  }

  static public <A> A[] toArray(Collection<A> c, Class<A> type) {
    A[] a = arrayOfType(l(c), type);
    if (a.length == 0)
      return a;
    asList(c).toArray(a);
    return a;
  }

  static public <A> A[] toArray(Iterable<A> c, Class<A> type) {
    var c2 = asList(c);
    A[] a = arrayOfType(l(c2), type);
    if (a.length == 0)
      return a;
    c2.toArray(a);
    return a;
  }

  static public <A> A[] toArray(A[] array, Collection c) {
    if (array == null || c == null)
      return null;
    asList(c).toArray(array);
    return array;
  }

  static public <A> A[] toArrayOrNull(Class<A> type, Collection<A> c) {
    if (empty(c))
      return null;
    return toArray(type, c);
  }

  static public Map<String, Class> parsePrimitiveType_map = litmap("int", int.class, "char", char.class, "byte", byte.class, "short", short.class, "long", long.class, "float", float.class, "double", double.class, "bool", boolean.class);

  static public Class parsePrimitiveType(String s) {
    return parsePrimitiveType_map.get(s);
  }

  static public String joinSubList(List<String> l, int i, int j) {
    return join(subList(l, i, j));
  }

  static public String joinSubList(List<String> l, int i) {
    return join(subList(l, i));
  }

  static public String joinSubList(List<String> l, IntRange r) {
    return r == null ? null : joinSubList(l, r.start, r.end);
  }

  static public Map<String, Class> classForName_cache = synchroHashMap();

  static public Class classForName(String name) {
    return classForName(name, null);
  }

  static public Class classForName(String name, Object classFinder) {
    if (classForName_cache == null || classFinder != null)
      return classForName_uncached(name, classFinder);
    Class c = classForName_cache.get(name);
    if (c == null)
      classForName_cache.put(name, c = classForName_uncached(name, null));
    return c;
  }

  static public Class classForName_uncached(String name, Object classFinder) {
    try {
      if (classFinder != null)
        return (Class) callF(classFinder, name);
      return Class.forName(name);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Class classForNameOpt_noCache(String name) {
    try {
      try {
        return Class.forName(name);
      } catch (ClassNotFoundException e) {
        return null;
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public boolean hasMethodNamed(Object obj, String method) {
    if (obj == null)
      return false;
    if (obj instanceof Class)
      return hasMethodNamed((Class) obj, method);
    return hasMethodNamed(obj.getClass(), method);
  }

  static public boolean hasMethodNamed(Class c, String method) {
    if (c == null)
      return false;
    return getMethodCache(c).cache.containsKey(method);
  }

  static public <A, B> Collection<B> values(Map<A, B> map) {
    return map == null ? emptyList() : map.values();
  }

  static public Collection values(Object map) {
    return values((Map) map);
  }

  static public <A, B> Collection<B> values(MultiMap<A, B> mm) {
    return mm == null ? emptyList() : concatLists(values(mm.data));
  }

  static public <A> List<A> nonNulls(Iterable<A> l) {
    return withoutNulls(l);
  }

  static public <A> List<A> nonNulls(A[] l) {
    return withoutNulls(l);
  }

  static public <A, B> Map<A, B> nonNulls(Map<A, B> map) {
    return withoutNulls(map);
  }

  static public <A, B> List<B> nonNulls(Iterable<A> l, IF1<A, B> f) {
    return mapNonNulls(l, f);
  }

  static public <A, B> Map<A, B> mapWithSingleValue(Iterable<A> l, B b) {
    HashMap<A, B> map = new HashMap();
    if (l != null)
      for (A a : l) map.put(a, b);
    return map;
  }

  static public HashMap litmap(Object... x) {
    HashMap map = new HashMap();
    litmap_impl(map, x);
    return map;
  }

  static public void litmap_impl(Map map, Object... x) {
    if (x != null)
      for (int i = 0; i < x.length - 1; i += 2) if (x[i + 1] != null)
        map.put(x[i], x[i + 1]);
  }

  static public <A, B> AutoCloseable tempMapPutAll(Map<A, B> map, Map<A, B> toAdd) {
    if (map != null && nempty(toAdd)) {
      List<Pair<A, B>> toRestore = new ArrayList();
      for (var __0 : _entrySet(toAdd)) {
        var key = __0.getKey();
        var value = __0.getValue();
        if (key != null && value != null) {
          B old = map.put(key, value);
          if (!eq(old, value))
            toRestore.add(pair(key, old));
        }
      }
      return () -> {
        for (var p : toRestore) mapPutOrRemove(map, p.a, p.b);
      };
    }
    return null;
  }

  static public <A, B> List<A> keysList(Map<A, B> map) {
    return cloneListSynchronizingOn(keys(map), map);
  }

  static public <A> List<A> keysList(MultiSet<A> ms) {
    return ms == null ? null : keysList(ms.map);
  }

  static public <A, B> B[] valuesArray(Class<B> valueType, Map<A, B> map) {
    if (map == null)
      return null;
    synchronized (collectionMutex(map)) {
      int n = map.size();
      B[] array = newArray(valueType, n);
      var it = valueIterator(map);
      for (int i = 0; i < n; i++) array[i] = it.next();
      return array;
    }
  }

  static public <B, A extends B> A addAndReturn(Collection<B> c, A a) {
    if (c != null)
      c.add(a);
    return a;
  }

  static public <B, A extends B> A addAndReturn(List<B> c, int idx, A a) {
    if (c != null)
      c.add(idx, a);
    return a;
  }

  static public TreeSet mapToTreeSet(Object f, Iterable l) {
    TreeSet x = new TreeSet();
    if (l != null)
      for (Object o : l) x.add(callF(f, o));
    return x;
  }

  static public <A, B> TreeSet<B> mapToTreeSet(IF1<A, B> f, Iterable<A> l) {
    TreeSet<B> x = new TreeSet();
    if (l != null)
      for (var o : l) x.add(f.get(o));
    return x;
  }

  static public <A, B> TreeSet<B> mapToTreeSet(Iterable<A> l, IF1<A, B> f) {
    return mapToTreeSet(f, l);
  }

  static public boolean isAnonymousClass(Class c) {
    return isAnonymousClassName(className(c));
  }

  static public <A> TreeSet<A> asTreeSet(Collection<A> set) {
    return set == null ? null : set instanceof TreeSet ? (TreeSet) set : new TreeSet(set);
  }

  static public boolean isAnonymousClassName(String s) {
    for (int i = 0; i < l(s); i++) if (s.charAt(i) == '$' && Character.isDigit(s.charAt(i + 1)))
      return true;
    return false;
  }

  static public String longestPrefixInTreeSet(String s, TreeSet<String> set) {
    return longestPrefixInNavigableSet(s, set);
  }

  static public String dropPrefix(String prefix, String s) {
    return s == null ? null : s.startsWith(prefix) ? s.substring(l(prefix)) : s;
  }

  static public int smartIndexOf(String s, String sub, int i) {
    if (s == null)
      return 0;
    i = s.indexOf(sub, min(i, l(s)));
    return i >= 0 ? i : l(s);
  }

  static public int smartIndexOf(String s, int i, char c) {
    return smartIndexOf(s, c, i);
  }

  static public int smartIndexOf(String s, char c, int i) {
    if (s == null)
      return 0;
    i = s.indexOf(c, min(i, l(s)));
    return i >= 0 ? i : l(s);
  }

  static public int smartIndexOf(String s, String sub) {
    return smartIndexOf(s, sub, 0);
  }

  static public int smartIndexOf(String s, char c) {
    return smartIndexOf(s, c, 0);
  }

  static public <A> int smartIndexOf(List<A> l, A sub) {
    return smartIndexOf(l, sub, 0);
  }

  static public <A> int smartIndexOf(List<A> l, int start, A sub) {
    return smartIndexOf(l, sub, start);
  }

  static public <A> int smartIndexOf(List<A> l, A sub, int start) {
    int i = indexOf(l, sub, start);
    return i < 0 ? l(l) : i;
  }

  static public Map<String, String> javaxClassShortcuts_cache;

  static public Map<String, String> javaxClassShortcuts() {
    if (javaxClassShortcuts_cache == null)
      javaxClassShortcuts_cache = javaxClassShortcuts_load();
    return javaxClassShortcuts_cache;
  }

  static public Map<String, String> javaxClassShortcuts_load() {
    return litmap("O", "Object", "S", "String", "L", "List", "Cl", "Collection", "Int", "Integer");
  }

  static public <A> List<A> itemPlus(A a, Collection<A> l) {
    return itemPlusList(a, l);
  }

  static public List<String> standardImports_fullyImportedPackages() {
    return endingWith_dropSuffix(standardImports(), ".*");
  }

  static public List<String> standardImports_singleClasses() {
    return notEndingWith(standardImports(), ".*");
  }

  static public Field findFieldOfClass(Class c, String field) {
    return c == null || field == null ? null : getOpt_getFieldMap(c).get(field);
  }

  static public boolean classHasMethodNamed(Class c, String method) {
    if (c == null)
      return false;
    return getMethodCache(c).cache.containsKey(method);
  }

  static public boolean scaffoldingEnabled(Object o) {
    return metaGet(o, "scaffolding") != null;
  }

  static public <A, B> AutoCloseable tempMapPut(Map<A, B> map, A key, B value) {
    if (map != null && key != null && value != null) {
      B old = map.put(key, value);
      return () -> mapPutOrRemove(map, key, old);
    }
    return null;
  }

  static public File getBytecodePathForClass(Object o) {
    return getBytecodePathForClass(_getClass(o));
  }

  static public File getBytecodePathForClass(Class c) {
    try {
      return c == null ? null : new File(c.getProtectionDomain().getCodeSource().getLocation().toURI());
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String unquote_relaxedMLS(String s) {
    if (s == null)
      return null;
    if (startsWith(s, '[')) {
      int i = 1;
      while (i < s.length() && s.charAt(i) == '=') ++i;
      if (i < s.length() && s.charAt(i) == '[') {
        String m = s.substring(1, i);
        int n = s.length();
        if (s.endsWith("]" + m + "]"))
          n -= i + 1;
        return s.substring(i + 1, n);
      }
    }
    return unquoteSingleOrDoubleQuotes(s);
  }

  static public <A, B> Map<A, B> putAll(Map<A, B> a, Map<? extends A, ? extends B> b) {
    if (a != null && b != null)
      a.putAll(b);
    return a;
  }

  static public <A, B> MultiMap<A, B> putAll(MultiMap<A, B> a, Map<? extends A, ? extends B> b) {
    if (a != null)
      a.putAll((Map) b);
    return a;
  }

  static public <A, B> Map<A, B> putAll(Map<A, B> a, Object... b) {
    if (a != null)
      litmap_impl(a, b);
    return a;
  }

  static public double sqrt(double x) {
    return Math.sqrt(x);
  }

  static public double fracNonNeg(double d) {
    return frac_nonNeg(d);
  }

  static public double twoPi() {
    return Math.PI * 2;
  }

  static public String plusPrefixUnlessMinus(String s) {
    return startsWith(s, "-") ? s : "+" + s;
  }

  static public <A> A getAndClear(IVar<A> v) {
    A a = v.get();
    v.set(null);
    return a;
  }

  static public <A, B> Set<A> keySet(Map<A, B> map) {
    return map == null ? new HashSet() : map.keySet();
  }

  static public Set keySet(Object map) {
    return keys((Map) map);
  }

  static public <A> Set<A> keySet(MultiSet<A> ms) {
    return ms.keySet();
  }

  static public <A, B> Set<A> keySet(MultiMap<A, B> mm) {
    return mm.keySet();
  }

  static public <A, B> int keysSize(MultiMap<A, B> mm) {
    return lKeys(mm);
  }

  static public <A> A reverseGet(List<A> l, int idx) {
    if (l == null || idx < 0)
      return null;
    int n = l(l);
    return idx < n ? l.get(n - 1 - idx) : null;
  }

  static public <A, B> Map<A, B> cloneMap(Map<A, B> map) {
    if (map == null)
      return new HashMap();
    synchronized (map) {
      return map instanceof TreeMap ? new TreeMap((TreeMap) map) : map instanceof LinkedHashMap ? new LinkedHashMap(map) : new HashMap(map);
    }
  }

  static public <A, B> List<B> cloneMap(Iterable<A> l, IF1<A, B> f) {
    List x = emptyList(l);
    if (l != null)
      for (A o : cloneList(l)) x.add(f.get(o));
    return x;
  }

  static public <A, B, C extends Collection<B>> List<B> allValues(Map<A, C> map) {
    List<B> out = new ArrayList();
    for (var l : values(map)) addAll(out, l);
    return out;
  }

  static public <A> List<A> replace(List<A> l, A a, A b) {
    for (int i = 0; i < l(l); i++) if (eq(l.get(i), a))
      l.set(i, b);
    return l;
  }

  static public <A> List<A> replace(A a, A b, List<A> l) {
    return replace(l, a, b);
  }

  static public String replace(String s, String a, String b) {
    return s == null ? null : a == null || b == null ? s : s.replace(a, b);
  }

  static public String replace(String s, char a, char b) {
    return s == null ? null : s.replace(a, b);
  }

  static public boolean hasNext(Iterator it) {
    return it != null && it.hasNext();
  }

  static public Method hashMap_findKey_method;

  static public <A, B> A hashMap_findKey(HashMap<A, B> map, Object key) {
    try {
      if (hashMap_findKey_method == null)
        hashMap_findKey_method = findMethodNamed(HashMap.class, "getNode");
      Map.Entry<A, B> entry = (Map.Entry) hashMap_findKey_method.invoke(map, hashMap_internalHash(key), key);
      return entry == null ? null : entry.getKey();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String find(String pattern, String text) {
    Matcher matcher = Pattern.compile(pattern).matcher(text);
    if (matcher.find())
      return matcher.group(1);
    return null;
  }

  static public <A> A find(Collection<A> c, Object... data) {
    for (A x : c) if (checkFields(x, data))
      return x;
    return null;
  }

  static public String a(String noun) {
    if (eq(noun, ""))
      return "?";
    return ("aeiou".indexOf(noun.charAt(0)) >= 0 ? "an " : "a ") + noun;
  }

  static public String a(String contents, Object... params) {
    return hfulltag("a", contents, params);
  }

  static public String b(Object contents, Object... params) {
    return fulltag("b", contents, params);
  }

  static public int hashCodeFor(Object a) {
    return a == null ? 0 : a.hashCode();
  }

  static public String joinNemptiesWithColon(String... strings) {
    return joinNempties(": ", strings);
  }

  static public String joinNemptiesWithColon(Collection<String> strings) {
    return joinNempties(": ", strings);
  }

  static public String commaCombine(Object... l) {
    return joinNemptiesWithComma(flattenCollectionsAndArrays(l));
  }

  static public WidthAndHeight widthAndHeight(BufferedImage image) {
    return image == null ? null : widthAndHeight(image.getWidth(), image.getHeight());
  }

  static public WidthAndHeight widthAndHeight(int w) {
    return widthAndHeight(w, w);
  }

  static public WidthAndHeight widthAndHeight(int w, int h) {
    return new WidthAndHeightFinal(w, h);
  }

  static public Pt ptMinus(Pt a, Pt b) {
    if (b == null)
      return a;
    return new Pt(a.x - b.x, a.y - b.y);
  }

  static public G22Utils g22utils(Concepts cc) {
    return (G22Utils) cc.miscMapGet(G22Utils.class);
  }

  static public G22Utils g22utils(Concept cc) {
    return g22utils(concepts(cc));
  }

  static public CharInToken charIndexToCharInToken(List<String> tok, int charIndex) {
    int i = 0, idx = 0, lTok;
    while (i < l(tok) && idx + (lTok = l(tok.get(i))) <= charIndex) {
      idx += lTok;
      i++;
    }
    return new CharInToken(tok, i, charIndex - idx);
  }

  static public boolean even(int i) {
    return (i & 1) == 0;
  }

  static public boolean even(long i) {
    return (i & 1) == 0;
  }

  static public boolean even(BigInteger n) {
    return even(n.intValue());
  }

  static public <A, B> List<A> cloneKeys(Map<A, B> map) {
    return cloneList(keys(map));
  }

  static public String exceptionToStringShort(Throwable e) {
    try {
      lastException(e);
      e = getInnerException(e);
      String msg = hideCredentials(unnull(e.getMessage()));
      if (msg.indexOf("Error") < 0 && msg.indexOf("Exception") < 0)
        return baseClassName(e) + prependIfNempty(": ", msg);
      else
        return msg;
    } catch (Throwable _e) {
      printStackTrace(_e);
      return "Error in exceptionToStringShort";
    }
  }

  static public boolean eqOneOf(Object o, Object... l) {
    if (l != null)
      for (Object x : l) if (eq(o, x))
        return true;
    return false;
  }

  static public boolean containsNewLine(String s) {
    return contains(s, '\n');
  }

  static public List<String> stringsSortedByLength(Iterable<String> l) {
    return sortedByCalculatedField(l, new F1<String, Integer>() {

      public Integer get(String s) {
        try {
          return l(s);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "l(s)";
      }
    });
  }

  static public List<String> methodNames(Object o) {
    return allMethodNames(o);
  }

  static public Set<String> fieldNames(Object o) {
    return allFields(o);
  }

  static public <A, B> B floorValue(NavigableMap<A, B> map, A key) {
    if (map == null)
      return null;
    var e = map.floorEntry(key);
    return e == null ? null : e.getValue();
  }

  static public UnsupportedOperationException unsupportedOperation() {
    throw new UnsupportedOperationException();
  }

  static public int rgbRed(int rgb) {
    return (rgb >> 16) & 0xFF;
  }

  static public int rgbGreen(int rgb) {
    return (rgb >> 8) & 0xFF;
  }

  static public int rgbBlue(int rgb) {
    return rgb & 0xFF;
  }

  static public Color getColor(BufferedImage img, int x, int y) {
    return colorFromRGBA(img.getRGB(x, y));
  }

  static public Color getColor(BufferedImage img, Pt p) {
    return colorFromRGBA(img.getRGB(p.x, p.y));
  }

  static public float clampZeroToOne(float x) {
    return x < 0 ? 0 : x > 1 ? 1 : x;
  }

  static public double clampZeroToOne(double x) {
    return x < 0 ? 0 : x > 1 ? 1 : x;
  }

  static public int rgbInt(int r, int g, int b) {
    return (clamp(r, 0, 255) << 16) | (clamp(g, 0, 255) << 8) | clamp(b, 0, 255);
  }

  static public int rgbInt(byte r, byte g, byte b) {
    return (ubyteToInt(r) << 16) | (ubyteToInt(g) << 8) | ubyteToInt(b);
  }

  static public int asInt(Object o) {
    return toInt(o);
  }

  static public String nlToSpace(String s) {
    return newLinesToSpaces_trim(s);
  }

  static public long incAtomicLong(AtomicLong l) {
    return l.incrementAndGet();
  }

  static public String n2(long l) {
    return formatWithThousands(l);
  }

  static public String n2(AtomicLong l) {
    return n2(l.get());
  }

  static public String n2(Collection l) {
    return n2(l(l));
  }

  static public String n2(Map map) {
    return n2(l(map));
  }

  static public String n2_getPlural(String singular) {
    return plural(singular);
  }

  static public String n2(double l, String singular) {
    return empty(singular) ? str(l) : n2(l, singular, n2_getPlural(singular));
  }

  static public String n2(double l, String singular, String plural) {
    if (fraction(l) == 0)
      return n2((long) l, singular, plural);
    else
      return l + " " + plural;
  }

  static public String n2(long l, String singular, String plural) {
    return n_fancy2(l, singular, plural);
  }

  static public String n2(long l, String singular) {
    return empty(singular) ? n2(l) : n_fancy2(l, singular, n2_getPlural(singular));
  }

  static public String n2(Collection l, String singular) {
    return n2(l(l), singular);
  }

  static public String n2(Collection l, String singular, String plural) {
    return n_fancy2(l, singular, plural);
  }

  static public String n2(Map m, String singular, String plural) {
    return n_fancy2(m, singular, plural);
  }

  static public String n2(Map m, String singular) {
    return n2(l(m), singular);
  }

  static public String n2(long[] a, String singular) {
    return n2(l(a), singular);
  }

  static public String n2(Object[] a, String singular) {
    return n2(l(a), singular);
  }

  static public String n2(Object[] a, String singular, String plural) {
    return n_fancy2(a, singular, plural);
  }

  static public String n2(MultiSet ms, String singular) {
    return n2(ms, singular, n2_getPlural(singular));
  }

  static public String n2(MultiSet ms, String singular, String plural) {
    return n_fancy2(ms, singular, plural);
  }

  static public String n2(IMultiMap mm, String singular) {
    return n2(mm, singular, n2_getPlural(singular));
  }

  static public String n2(IMultiMap mm, String singular, String plural) {
    return n_fancy2(l(mm), singular, plural);
  }

  static public <A, B> B mapGet(Map<A, B> map, A a) {
    return map == null || a == null ? null : map.get(a);
  }

  static public <A, B> B mapGet(A a, Map<A, B> map) {
    return map == null || a == null ? null : map.get(a);
  }

  static public boolean preciseNuObject_debug = false;

  static public <A> A preciseNuObject(Class<A> c, Object... args) {
    try {
      Constructor[] methods = getDeclaredConstructors_cached(c);
      if (methods.length == 0)
        throw fail(c + " doesn't define any constructors");
      return preciseNuObject(methods, args);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A> A preciseNuObject(Constructor[] methods, Object... args) {
    try {
      Constructor best = null;
      int bestScore = Integer.MAX_VALUE;
      boolean widening = false;
      if (preciseNuObject_debug)
        printVars("preciseNuObject", "c", first(methods).getDeclaringClass(), "methods", l(methods));
      for (var m : methods) {
        int score = methodApplicabilityScore_withPrimitiveWidening(m, args);
        if (score == 0)
          return (A) m.newInstance(args);
        if (preciseNuObject_debug)
          print("Method score: " + m + " " + score);
        if (abs(score) < bestScore) {
          best = m;
          bestScore = abs(score);
          widening = score < 0;
        }
      }
      if (best != null)
        if (widening)
          return (A) invokeConstructorWithWidening(best, args);
        else
          return (A) best.newInstance(args);
      methodSearch: for (var m : methods) {
        {
          if (!(m.isVarArgs()))
            continue;
        }
        Object[] newArgs = massageArgsForVarArgsCall(m, args);
        if (newArgs != null)
          return (A) m.newInstance(newArgs);
      }
      var c = first(methods).getDeclaringClass();
      throw fail("No matching constructor found: " + formatFunctionCall(c, map(__83 -> _getClass(__83), args)));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String formatFunctionCall(String fname, Object... args) {
    return formatFunctionCall((Object) fname, args);
  }

  static public String formatFunctionCall(Object fname, Object... args) {
    return fname + "(" + joinWithComma(allToString(args)) + ")";
  }

  static public String formatFunctionCall(String fname, Iterable args) {
    return formatFunctionCall((Object) fname, args);
  }

  static public String formatFunctionCall(Object fname, Iterable args) {
    return formatFunctionCall(fname, toObjectArray(args));
  }

  static public String resolve(String host) {
    return hostToIP(host);
  }

  static public String strOrClassName(Object o) {
    if (o instanceof Class)
      return className((Class) o);
    return str(o);
  }

  static public String toStringWithClass(Object o) {
    return o == null ? null : className(o) + " - " + o;
  }

  static public <A> A _get(List<A> l, int idx) {
    return l != null && idx >= 0 && idx < l(l) ? l.get(idx) : null;
  }

  static public Object _get(Object o, String field) {
    return get(o, field);
  }

  static public Object _get(String field, Object o) {
    return get(o, field);
  }

  static public <A> A _get(A[] l, int idx) {
    return idx >= 0 && idx < l(l) ? l[idx] : null;
  }

  static public boolean newPreciseCall_debug = false;

  static public Object newPreciseCall(Object o, String method, Object... args) {
    try {
      if (o == null)
        return null;
      boolean staticCall = o instanceof Class;
      Class c = staticCall ? (Class) o : o.getClass();
      Object target = staticCall ? null : o;
      _MethodCache cache = callOpt_getCache(c);
      List<Method> methods = cache.cache.get(method);
      Method best = null;
      int bestScore = Integer.MAX_VALUE;
      boolean widening = false;
      if (newPreciseCall_debug)
        printVars("newPreciseCall", "method", method, "staticCall", staticCall, "c", c, "methods", l(methods));
      if (methods != null)
        for (Method m : methods) {
          if (staticCall && !isStaticMethod(m))
            continue;
          int score = methodApplicabilityScore_withPrimitiveWidening(m, args);
          if (score == 0)
            return invokeMethod(m, target, args);
          if (newPreciseCall_debug)
            print("Method score: " + m + " " + score);
          if (abs(score) < bestScore) {
            best = m;
            bestScore = abs(score);
            widening = score < 0;
          }
        }
      if (best != null)
        if (widening)
          return invokeMethodWithWidening(best, target, args);
        else
          return invokeMethod(best, target, args);
      return callWithVarargs(o, method, args);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public List<Method> findMethodsNamed_cached(Object obj, String method) {
    return findMethodsNamed_cached(_getClass(obj), method);
  }

  static public List<Method> findMethodsNamed_cached(Class c, String method) {
    if (c == null)
      return null;
    return getMethodCache(c).cache.get(method);
  }

  static public <A> boolean any(Object pred, Iterable<A> l) {
    if (l != null)
      for (A a : l) if (isTrue(callF(pred, a)))
        return true;
    return false;
  }

  static public <A> boolean any(IF1<A, Boolean> pred, Iterable<A> l) {
    if (l != null)
      for (A a : l) if (pred.get(a))
        return true;
    return false;
  }

  static public <A> boolean any(Iterable<A> l, IF1<A, Boolean> pred) {
    return any(pred, l);
  }

  static public <A> boolean any(A[] l, IF1<A, Boolean> pred) {
    if (l != null)
      for (A a : l) if (pred.get(a))
        return true;
    return false;
  }

  static public boolean any(Iterable<Boolean> l) {
    if (l != null)
      for (Boolean a : l) if (isTrue(a))
        return true;
    return false;
  }

  static public Pair<Method, Boolean> findMethod_withPrimitiveWidening_onTypes(Object o, String method, Class... argTypes) {
    try {
      Lowest<Method> best = new Lowest();
      boolean widening = false;
      if (o instanceof Class) {
        _MethodCache cache = callOpt_getCache((Class) o);
        List<Method> methods = cache.cache.get(method);
        if (methods != null)
          for (Method m : methods) {
            {
              if (!(isStaticMethod(m)))
                continue;
            }
            int score = methodApplicabilityScore_withPrimitiveWidening_onTypes(m, argTypes);
            if (abs(score) < Integer.MAX_VALUE) {
              best.put(m, abs(score));
              widening = score < 0;
            }
          }
        return pair(best.get(), widening);
      }
      if (o == null)
        return null;
      _MethodCache cache = callOpt_getCache(o.getClass());
      List<Method> methods = cache.cache.get(method);
      if (methods != null)
        for (Method m : methods) {
          int score = methodApplicabilityScore_withPrimitiveWidening_onTypes(m, argTypes);
          if (abs(score) < Integer.MAX_VALUE) {
            best.put(m, abs(score));
            widening = score < 0;
          }
        }
      return pair(best.get(), widening);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A> Object[] mapToArrayOrNull(A[] l, IF1<A, Object> f) {
    if (l == null)
      return null;
    int n = l.length;
    if (n == 0)
      return null;
    Object[] array = new Object[n];
    for (int i = 0; i < n; i++) array[i] = f.get(l[i]);
    return array;
  }

  static public <A> Object[] mapToArrayOrNull(IF1<A, Object> f, A[] l) {
    return mapToArrayOrNull(l, f);
  }

  static public <A> Object[] mapToArrayOrNull(IF1<A, Object> f, Collection<A> l) {
    int n = l(l);
    if (n == 0)
      return null;
    Object[] array = new Object[n];
    if (n != 0) {
      Iterator it = iterator(l);
      for (int i = 0; i < n; i++) array[i] = callF(f, it.next());
    }
    return array;
  }

  static public <A> Object[] mapToArrayOrNull(Collection<A> l, IF1<A, Object> f) {
    return mapToArrayOrNull(l, f);
  }

  static public Object newPreciseCall_sentinel(Object o, String method, Object methodNotFoundSentinel, Object... args) {
    try {
      if (o == null)
        return null;
      boolean staticCall = o instanceof Class;
      Class c = staticCall ? (Class) o : o.getClass();
      Object target = staticCall ? null : o;
      _MethodCache cache = callOpt_getCache(c);
      List<Method> methods = cache.cache.get(method);
      Method best = null;
      int bestScore = Integer.MAX_VALUE;
      boolean widening = false;
      if (methods != null)
        for (Method m : methods) {
          if (staticCall && !isStaticMethod(m))
            continue;
          int score = methodApplicabilityScore_withPrimitiveWidening(m, args);
          if (score == 0)
            return invokeMethod(m, target, args);
          if (abs(score) < bestScore) {
            best = m;
            bestScore = abs(score);
            widening = score < 0;
          }
        }
      if (best != null)
        if (widening)
          return invokeMethodWithWidening(best, target, args);
        else
          return invokeMethod(best, target, args);
      return callWithVarargs_sentinel(o, method, methodNotFoundSentinel, args);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A> A[] itemPlusArray(A a, A[] l) {
    return singlePlusArray(a, l);
  }

  static public Object preciseGetOrCallMethod_sentinel(Object object, String name, Object sentinel) {
    if (object == null)
      return null;
    if (canCallWithVarargs(object, name))
      return call(object, name);
    Field f = getField(object, name);
    if (f != null)
      return fieldGet(f, object);
    return sentinel;
  }

  static public Method findSingleInterfaceMethodOrFail(Class intrface) {
    Method m = findSingleInterfaceMethod(intrface);
    if (m == null)
      throw fail(intrface + " is not a single method interface");
    return m;
  }

  static public <A> A proxyFromInvocationHandler(Class<A> intrface, InvocationHandler handler) {
    return (A) java.lang.reflect.Proxy.newProxyInstance(intrface.getClassLoader(), new Class[] { intrface }, handler);
  }

  static public Object handleObjectMethodsInProxyInvocationHandler(Object invocationHandler, Method implementedMethod, Method method, Object proxy, Object[] actualArgs) {
    String name = method.getName();
    if (name.equals("hashCode"))
      return invocationHandler.hashCode();
    if (name.equals("equals"))
      return proxy == actualArgs[0];
    if (name.equals("toString"))
      return invocationHandler.toString();
    throw fail("No handler for method " + method + " (only have " + implementedMethod + ")");
  }

  static public Object[] concatMethodArgs(Object[] args1, Object[] args2) {
    int n1, n2;
    if (args1 == null || (n1 = args1.length) == 0)
      return args2;
    if (args2 == null || (n2 = args2.length) == 0)
      return args1;
    Object[] args = new Object[n1 + n2];
    for (int i = 0; i < n1; i++) args[i] = args1[i];
    for (int i = 0; i < n2; i++) args[n1 + i] = args2[i];
    return args;
  }

  static public Object invokeMethodWithWidening(Method m, Object o, Object... args) {
    try {
      try {
        Class<?>[] types = m.getParameterTypes();
        int n = types.length;
        Object[] args2 = new Object[n];
        for (int i = 0; i < n; i++) args2[i] = convertPrimitiveIfNecessary(args[i], types[i]);
        return m.invoke(o, args2);
      } catch (InvocationTargetException e) {
        throw rethrow(getExceptionCause(e));
      } catch (IllegalArgumentException e) {
        throw new IllegalArgumentException(e.getMessage() + " - was calling: " + m + ", args: " + joinWithSpace(classNames(args)));
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Iterator iterator_gen(Object o) {
    if (o == null)
      return emptyItIt();
    if (o instanceof Iterator)
      return ((Iterator) o);
    if (o instanceof Iterable)
      return ((Iterable) o).iterator();
    if (o instanceof Object[])
      return arrayIterator((Object[]) o);
    throw fail("Not iterable: " + className(o));
  }

  static public <A, B, C extends Iterator<B>> IterableIterator<B> nestedIterator(Iterable<A> c, final F1<A, C> makeInnerIterator) {
    return nestedIterator(iterator(c), makeInnerIterator);
  }

  static public <A, B, C extends Iterator<B>> IterableIterator<B> nestedIterator(Iterable<A> c, IF1<A, C> makeInnerIterator) {
    return nestedIterator(iterator(c), makeInnerIterator);
  }

  static public <A, B, C extends Iterator<B>> IterableIterator<B> nestedIterator(IterableIterator<A> c, IF1<A, C> makeInnerIterator) {
    return nestedIterator((Iterator<A>) c, makeInnerIterator);
  }

  static public <A, B, C extends Iterator<B>> IterableIterator<B> nestedIterator(Iterator<A> it1, IF1<A, C> makeInnerIterator) {
    if (it1 == null || !it1.hasNext())
      return emptyItIt();
    return iff(new F0() {

      public A a;

      public Iterator<B> innerIterator;

      {
        nextOuter();
      }

      public void nextOuter() {
        a = it1.next();
        innerIterator = makeInnerIterator.get(a);
      }

      public Object get() {
        while (true) {
          ping();
          if (innerIterator != null && innerIterator.hasNext())
            return innerIterator.next();
          if (!it1.hasNext())
            return endMarker();
          nextOuter();
        }
      }
    });
  }

  static public <A, B, C extends Iterator<B>> IterableIterator<B> nestedIterator(final Iterator<A> it1, F1<A, C> makeInnerIterator) {
    if (it1 == null || !it1.hasNext())
      return emptyItIt();
    return iff(new F0() {

      public A a;

      public Iterator<B> innerIterator;

      {
        nextOuter();
      }

      public void nextOuter() {
        a = it1.next();
        innerIterator = makeInnerIterator.get(a);
      }

      public Object get() {
        while (true) {
          ping();
          if (innerIterator != null && innerIterator.hasNext())
            return innerIterator.next();
          if (!it1.hasNext())
            return endMarker();
          nextOuter();
        }
      }
    });
  }

  static public <A, B, C extends Iterator<B>> IterableIterator<B> nestedIterator(IF1<A, C> makeInnerIterator, Iterator<A> it1) {
    return nestedIterator(it1, makeInnerIterator);
  }

  static public <A, B, C extends Iterator<B>> IterableIterator<B> nestedIterator(IF1<A, C> makeInnerIterator, Collection<A> l) {
    return nestedIterator(l, makeInnerIterator);
  }

  static public String struct(Object o) {
    return structure(o);
  }

  static public String struct(Object o, structure_Data data) {
    return structure(o, data);
  }

  static public List<String> structTok(String s) {
    return javaTok_noMLS(s);
  }

  static public String shortName(Object o) {
    return shortClassName(o);
  }

  static public String replacePrefix(String prefix, String replacement, String s) {
    if (!startsWith(s, prefix))
      return s;
    return replacement + substring(s, l(prefix));
  }

  static public String indentStructureString(String s) {
    return indentStructureString(100, s);
  }

  static public String indentStructureString(int levels, String s) {
    if (s == null)
      return null;
    return new StructureStringIndenter().levels(levels).get(s);
  }

  static public int getWidth(Component c) {
    return c == null ? 0 : (int) swingCall(c, "getWidth");
  }

  static public int getHeight(Component c) {
    return c == null ? 0 : (int) swingCall(c, "getHeight");
  }

  static public Rect rect(int x, int y, int w, int h) {
    return new Rect(x, y, w, h);
  }

  static public Rect rect(Pt p, int w, int h) {
    return new Rect(p.x, p.y, w, h);
  }

  static public Rect rect(int w, int h) {
    return new Rect(0, 0, w, h);
  }

  static public long longMul(long a, long b) {
    return a * b;
  }

  static public <A> ListIterator<A> listIterator(List<A> l) {
    return l == null ? emptyListIterator() : l.listIterator();
  }

  static public <A> List<A> subList(List<A> l, int startIndex) {
    return subList(l, startIndex, l(l));
  }

  static public <A> List<A> subList(int startIndex, List<A> l) {
    return subList(l, startIndex);
  }

  static public <A> List<A> subList(int startIndex, int endIndex, List<A> l) {
    return subList(l, startIndex, endIndex);
  }

  static public <A> List<A> subList(List<A> l, int startIndex, int endIndex) {
    if (l == null)
      return null;
    int n = l(l);
    startIndex = Math.max(0, startIndex);
    endIndex = Math.min(n, endIndex);
    if (startIndex > endIndex)
      return ll();
    if (startIndex == 0 && endIndex == n)
      return l;
    return l.subList(startIndex, endIndex);
  }

  static public <A> List<A> subList(List<A> l, IntRange r) {
    return subList(l, r.start, r.end);
  }

  static public <A, B> boolean containsKey(Map<A, B> map, A key) {
    return map != null && map.containsKey(key);
  }

  static public <A, B> Map<A, B> putOrCreateSyncMap(Map<A, B> map, A key, B value) {
    if (map == null)
      map = syncHashMap();
    map.put(key, value);
    return map;
  }

  static public AutoCloseable tempSet(Object o, final String field, Object value) {
    return tempSetField(o, field, value);
  }

  static public <A, B> AutoCloseable tempPut(Map<A, B> map, A key, B value) {
    if (map != null) {
      boolean wasContained = map.containsKey(key);
      B old = map.put(key, value);
      return () -> {
        if (wasContained)
          map.put(key, old);
        else
          map.remove(key);
      };
    }
    return null;
  }

  static public void assertSame(Object a, Object b) {
    assertSame("", a, b);
  }

  static public void assertSame(String msg, Object a, Object b) {
    if (a != b)
      throw fail(joinNemptiesWithColon(msg, a + " != " + b + " (" + identityHash(a) + "/" + identityHash(b) + ")"));
  }

  static public void assertSame(IF0<String> msg, Object a, Object b) {
    if (a != b)
      throw fail(joinNemptiesWithColon(msg.get(), a + " != " + b + " (" + identityHash(a) + "/" + identityHash(b) + ")"));
  }

  static public LineAndColumn tokenToLineAndColumn(ListAndIndex<String> ptr) {
    return ptr == null ? null : tokenToLineAndColumn(ptr.list(), ptr.idx());
  }

  static public LineAndColumn tokenToLineAndColumn(List<String> tok, int tokenIndex) {
    int line = 1, col = 1;
    tokenIndex = min(tokenIndex, l(tok));
    for (int i = 0; i < tokenIndex; i++) {
      String t = tok.get(i);
      int n = l(t);
      for (int j = 0; j < n; j++) if (t.charAt(j) == '\n') {
        ++line;
        col = 1;
      } else
        ++col;
    }
    return new LineAndColumn(line, col);
  }

  static public String renderLineAndColumnRange(LineAndColumn start, LineAndColumn end) {
    if (eq(start, end))
      return str(start);
    return start + " to " + (end.line == start.line ? end.col : firstToLower(str(end)));
  }

  static public File byteCodePathForClass(Class c) {
    if (c == null)
      return null;
    ClassLoader cl = getClassLoader(c);
    Collection<File> files = (Collection<File>) (getOpt(cl, "files"));
    if (files != null) {
      String name = c.getName().replace('.', '/') + ".class";
      for (File location : files) if (dirOrZipContainsPath(location, name))
        return location;
      throw fail(name + " not found in: " + files);
    }
    return null;
  }

  static public File byteCodePathForClass(Object o) {
    return byteCodePathForClass(_getClass(o));
  }

  static public <A> List<A> itemPlusList(A a, Collection<A> l) {
    return concatLists(ll(a), l);
  }

  static public List<String> endingWith_dropSuffix(Collection<String> l, String suffix) {
    List<String> out = new ArrayList();
    for (String s : unnullForIteration(l)) if (endsWith(s, suffix))
      out.add(dropLast(l(suffix), s));
    return out;
  }

  static public List<String> endingWith_dropSuffix(String suffix, Collection<String> l) {
    return endingWith_dropSuffix(l, suffix);
  }

  static public List<String> standardImports_cache;

  static public List<String> standardImports() {
    if (standardImports_cache == null)
      standardImports_cache = standardImports_load();
    return standardImports_cache;
  }

  static public List<String> standardImports_load() {
    return ll("java.util.*", "java.util.zip.*", "java.util.List", "java.util.regex.*", "java.util.concurrent.*", "java.util.concurrent.atomic.*", "java.util.concurrent.locks.*", "java.util.function.*", "javax.swing.*", "javax.swing.event.*", "javax.swing.text.*", "javax.swing.table.*", "java.io.*", "java.net.*", "java.lang.reflect.*", "java.lang.ref.*", "java.lang.management.*", "java.security.*", "java.security.spec.*", "java.awt.*", "java.awt.event.*", "java.awt.image.*", "java.awt.geom.*", "javax.imageio.*", "java.math.*", "java.time.Duration", "java.lang.invoke.VarHandle", "java.lang.invoke.MethodHandles");
  }

  static public List<String> classNamesInJarOrDir(File dir) {
    return classNamesInJarOrDir(dir, "");
  }

  static public List<String> classNamesInJarOrDir(File dir, String prefixInJar) {
    List<String> classes = new ArrayList();
    if (dir == null) {
    } else if (dir.isDirectory()) {
      for (File f : listFiles(dir)) {
        String s = f.getName();
        if (s.endsWith(".class"))
          classes.add(dropSuffix(".class", s));
      }
    } else if (dir.isFile()) {
      try {
        JarFile jarFile = new JarFile(dir);
        try {
          Enumeration<JarEntry> e = jarFile.entries();
          while (e.hasMoreElements()) {
            JarEntry je = e.nextElement();
            if (je.isDirectory() || je.getName().startsWith("META-INF/") || !je.getName().endsWith(".class"))
              continue;
            String className = dropSuffix(".class", je.getName());
            className = dropPrefixOrNull(prefixInJar, className);
            if (className == null)
              continue;
            if (className.contains("-"))
              continue;
            className = className.replace('/', '.');
            classes.add(className);
          }
        } finally {
          jarFile.close();
        }
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }
    return classes;
  }

  static public List<String> classNamesInLoadedJigsawModules() {
    return concatMap(loadedJigsawModuleNames(), moduleName -> classNamesInJigsawModule(moduleName));
  }

  static volatile public int numberOfCores_value;

  static public int numberOfCores() {
    if (numberOfCores_value == 0)
      numberOfCores_value = Runtime.getRuntime().availableProcessors();
    return numberOfCores_value;
  }

  static public Thread newThread(Object runnable) {
    return new BetterThread(_topLevelErrorHandling(toRunnable(runnable)));
  }

  static public Thread newThread(Object runnable, String name) {
    if (name == null)
      name = defaultThreadName();
    return new BetterThread(_topLevelErrorHandling(toRunnable(runnable)), name);
  }

  static public Thread newThread(String name, Object runnable) {
    return newThread(runnable, name);
  }

  static public <A> A popFirst(List<A> l) {
    if (empty(l))
      return null;
    A a = first(l);
    l.remove(0);
    return a;
  }

  static public <A> A popFirst(Collection<A> l) {
    if (empty(l))
      return null;
    A a = first(l);
    l.remove(a);
    return a;
  }

  static public <A, B> Pair<A, B> popFirst(Map<A, B> map) {
    if (map == null)
      return null;
    var it = map.entrySet().iterator();
    if (!it.hasNext())
      return null;
    var p = mapEntryToPair(it.next());
    it.remove();
    return p;
  }

  static public <A> List<A> popFirst(int n, List<A> l) {
    List<A> part = cloneSubList(l, 0, n);
    removeSubList(l, 0, n);
    return part;
  }

  static public <A> AppendableChain<A> popFirst(AppendableChain<A> a) {
    return a == null ? null : a.popFirst();
  }

  static public <A> Chain<A> chainPlus(Chain<A> chain, A a) {
    return new Chain<A>(a, chain);
  }

  static public <A> Chain<A> chainPlus(Chain<A> chain, A... l) {
    for (A a : unnullForIteration(l)) chain = chainPlus(chain, a);
    return chain;
  }

  static public <A> ReverseChain<A> chainPlus(ReverseChain<A> chain, A a) {
    return new ReverseChain<A>(chain, a);
  }

  static public <A> ReverseChain<A> chainPlus(ReverseChain<A> chain, A... l) {
    for (A a : unnullForIteration(l)) chain = chainPlus(chain, a);
    return chain;
  }

  static public <A> AppendableChain<A> chainPlus(AppendableChain<A> chain, A a) {
    if (chain == null)
      return new AppendableChain<A>(a);
    chain.add(a);
    return chain;
  }

  static public <A> AppendableChain<A> chainPlus(AppendableChain<A> chain, A... l) {
    for (A a : unnullForIteration(l)) chain = chainPlus(chain, a);
    return chain;
  }

  static public void syncNotifyAll(Object o) {
    if (o != null)
      synchronized (o) {
        o.notifyAll();
      }
  }

  static public Concepts concepts(Concept c) {
    return c == null ? null : c._concepts;
  }

  static public List syncMap(Object f, Map map) {
    return syncMap(map, f);
  }

  static public List syncMap(Map map, Object f) {
    return map(cloneLinkedHashMap(map), f);
  }

  static public <A, B> Map<A, B> syncMap() {
    return synchroHashMap();
  }

  static public <A, B> Map<A, B> syncMap(Map map) {
    return synchronizedMap(map);
  }

  static public ImageSurface imageSurface(BufferedImage img) {
    return swingNu(ImageSurface.class, img);
  }

  static public ImageSurface imageSurface(MakesBufferedImage img) {
    return swingNu(ImageSurface.class, img);
  }

  static public ImageSurface imageSurface() {
    return swingNu(ImageSurface.class);
  }

  static public void imageSurface_pixelated(ImageSurface imageSurface) {
    if (imageSurface == null)
      return;
    imageSurface.setDoubleBuffered(true);
    imageSurface.noAlpha = true;
    imageSurface.interpolationMode = RenderingHints.VALUE_INTERPOLATION_NEAREST_NEIGHBOR;
    repaint(imageSurface);
  }

  static public void imageSurface_pixelated(ImageSurface imageSurface, boolean pixelated) {
    if (pixelated)
      imageSurface_pixelated(imageSurface);
    else
      imageSurface_unpixelated(imageSurface);
  }

  static public File dbDir() {
    return programDir(dbProgramID());
  }

  static public List<BufferedImage> toBufferedImages(Iterable l) {
    return allToBufferedImage(l);
  }

  static public BufferedImage toBufferedImage(Object o) {
    return toBufferedImageOpt(o);
  }

  static public GazelleV_LeftArrowScript.Script leftArrowParse(String script) {
    GazelleV_LeftArrowScriptParser parser = new GazelleV_LeftArrowScriptParser();
    parser.allowTheWorld();
    return parser.parse(script);
  }

  static public <A extends IntSize> A assertNempty(A a) {
    return assertNempty("", a);
  }

  static public <A extends IntSize> A assertNempty(String msg, A a) {
    if (empty(a))
      throw fail(joinNemptiesWithColon(msg, str(a)));
    return a;
  }

  static public <A extends Collection> A assertNempty(A a) {
    return assertNempty("", a);
  }

  static public <A extends Collection> A assertNempty(String msg, A a) {
    if (empty(a))
      throw fail(joinNemptiesWithColon(msg, str(a)));
    return a;
  }

  static public <A extends String> A assertNempty(A a) {
    return assertNempty("", a);
  }

  static public <A extends String> A assertNempty(String msg, A a) {
    if (empty(a))
      throw fail(joinNemptiesWithColon(msg, str(a)));
    return a;
  }

  static public void createOrRemoveFile(File f, boolean create) {
    if (create) {
      if (!fileExists(f))
        touchFile(f);
    } else if (fileExists(f))
      removeFile(f);
  }

  static public <A> boolean removeAll(Collection<A> a, Collection<A> b) {
    return a != null && b != null && a.removeAll(b);
  }

  static public <A, B> void removeAll(Map<A, B> a, Collection<A> b) {
    if (a != null && b != null)
      for (A x : b) a.remove(x);
  }

  static public <A, B extends A> boolean removeAll(Collection<A> c, B... b) {
    return c != null && b != null && c.removeAll(Arrays.asList(b));
  }

  static public <A, B> void removeAll(Map<A, B> a, A... b) {
    if (a != null && b != null)
      for (A x : b) a.remove(x);
  }

  static public void truncateList(List l, int n) {
    if (l(l) <= n)
      return;
    removeSubList(l, n, l(l));
  }

  static public File saveTextFile(String fileName, String contents) throws IOException {
    File file = new File(fileName);
    mkdirsForFile(file);
    String tempFileName = fileName + "_temp";
    File tempFile = new File(tempFileName);
    if (contents != null) {
      if (tempFile.exists())
        try {
          String saveName = tempFileName + ".saved." + now();
          copyFile(tempFile, new File(saveName));
        } catch (Throwable e) {
          printStackTrace(e);
        }
      FileOutputStream fileOutputStream = newFileOutputStream(tempFile.getPath());
      try {
        OutputStreamWriter outputStreamWriter = new OutputStreamWriter(fileOutputStream, "UTF-8");
        PrintWriter printWriter = new PrintWriter(outputStreamWriter);
        printWriter.print(contents);
        printWriter.close();
      } finally {
        _close(fileOutputStream);
      }
    }
    if (file.exists() && !file.delete())
      throw new IOException("Can't delete " + fileName);
    if (contents != null)
      if (!tempFile.renameTo(file))
        throw new IOException("Can't rename " + tempFile + " to " + file);
    vmBus_send("wroteFile", file);
    return file;
  }

  static public File saveTextFile(File fileName, String contents) {
    try {
      saveTextFile(fileName.getPath(), contents);
      return fileName;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public List<String> tlft(String s) {
    return toLinesFullTrim(s);
  }

  static public List<String> tlft(File f) {
    return toLinesFullTrim(f);
  }

  static public String loadTextFile(String fileName) {
    return loadTextFile(fileName, null);
  }

  static public String loadTextFile(File f, String defaultContents) {
    return loadTextFile(f, defaultContents, "UTF-8");
  }

  static public String loadTextFile(File f, String defaultContents, String encoding) {
    try {
      checkFileNotTooBigToRead(f);
      if (f == null || !f.exists())
        return defaultContents;
      FileInputStream fileInputStream = new FileInputStream(f);
      InputStreamReader inputStreamReader = new InputStreamReader(fileInputStream, encoding);
      return loadTextFile(inputStreamReader);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  public static String loadTextFile(File fileName) {
    return loadTextFile(fileName, null);
  }

  static public String loadTextFile(String fileName, String defaultContents) {
    return fileName == null ? defaultContents : loadTextFile(newFile(fileName), defaultContents);
  }

  static public String loadTextFile(Reader reader) throws IOException {
    StringBuilder builder = new StringBuilder();
    try {
      char[] buffer = new char[1024];
      int n;
      while (-1 != (n = reader.read(buffer))) builder.append(buffer, 0, n);
    } finally {
      reader.close();
    }
    return str(builder);
  }

  static public File conceptsDir() {
    return conceptsDir(db_mainConcepts());
  }

  static public File conceptsDir(Concepts cc) {
    return cc.conceptsDir();
  }

  static public File conceptsDir(String subName) {
    return conceptsDir(db_mainConcepts(), subName);
  }

  static public File conceptsDir(Concepts cc, String subName) {
    return newFile(conceptsDir(cc), subName);
  }

  static public boolean sameFile(File a, File b) {
    try {
      return a == null ? b == null : b != null && eq(a.getCanonicalPath(), b.getCanonicalPath());
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public File dirOfFile(File f) {
    return f == null ? null : f.getParentFile();
  }

  static public String fileName(File f) {
    return f == null ? null : f.getName();
  }

  static public <A> List<A> llNonNulls(A... a) {
    List<A> l = new ArrayList();
    if (a != null)
      for (A x : a) if (x != null)
        l.add(x);
    return l;
  }

  static public Component jMinHeight(Swingable c, int h) {
    return jMinHeight(wrap(c), h);
  }

  static public Component jMinHeight(int h, Swingable c) {
    return jMinHeight(wrap(c), h);
  }

  static public <A extends Component> A jMinHeight(A c, int h) {
    return jMinHeight(h, c);
  }

  static public <A extends Component> A jMinHeight(int h, A c) {
    Dimension size = c.getMinimumSize();
    c.setMinimumSize(new Dimension(size.width, max(h, size.height)));
    return jPreferHeight(h, c);
  }

  static public LinkedHashMap litorderedmap(Object... x) {
    LinkedHashMap map = new LinkedHashMap();
    litmap_impl(map, x);
    return map;
  }

  static public String or2_rev(String b, String a) {
    return or2(a, b);
  }

  static public String joinNemptiesWithSpacedPlus(Object... strings) {
    return joinNempties(" + ", strings);
  }

  static public String joinNemptiesWithSpacedPlus(Iterable strings) {
    return joinNempties(" + ", strings);
  }

  static public int intMax(Collection c, String field) {
    int max = Integer.MIN_VALUE;
    for (Object o : c) max = Math.max(max, toInt(getOpt(o, field)));
    return max;
  }

  static public int intMax(Iterable<Integer> l) {
    int max = Integer.MIN_VALUE;
    for (int i : unnullForIteration(l)) max = Math.max(max, i);
    return max;
  }

  static public int intMax(int... l) {
    int max = Integer.MIN_VALUE;
    if (l != null)
      for (int i : l) max = Math.max(max, i);
    return max;
  }

  static public List mapLL(Object f, Object... data) {
    return map(f, ll(data));
  }

  static public <A, B> List<B> mapLL(IF1<A, B> f, A... data) {
    return map(f, ll(data));
  }

  static public int linesOfCode_javaTok(String text) {
    List<String> tok = javaTok(text);
    int lines = 0;
    boolean codeInCurrentLine = false;
    for (int i = 0; i < l(tok); i++) {
      String t = tok.get(i);
      if (odd(i)) {
        int lTok = l(t);
        for (int j = 0; j < lTok; j++) {
          char c = t.charAt(j);
          if (c == '\n')
            codeInCurrentLine = false;
          else if (!isSpaceEtc(c) && !codeInCurrentLine) {
            codeInCurrentLine = true;
            ++lines;
          }
        }
      } else {
        if (codeInCurrentLine && containsNewLine(t))
          codeInCurrentLine = false;
      }
    }
    return lines;
  }

  static public File appendToFileName(File f, String suffix) {
    return fileAppendToName(f, suffix);
  }

  static public File appendToFileName(String suffix, File f) {
    return appendToFileName(f, suffix);
  }

  static public String nLabels(long n) {
    return n2(n, "label");
  }

  static public String nLabels(Collection l) {
    return nLabels(l(l));
  }

  static public String nLabels(Map map) {
    return nLabels(l(map));
  }

  static public <A extends Concept> A uniqCI(Class<A> c, Object... params) {
    return uniqueConcept(db_mainConcepts(), c, params);
  }

  static public <A extends Concept> A uniqCI(Concepts cc, Class<A> c, Object... params) {
    AutoCloseable __1 = tempDBLock(cc);
    try {
      params = expandParams(c, params);
      A x = findConceptWhereCI(cc, c, params);
      if (x == null) {
        x = unlisted(c);
        csetAll(x, params);
        cc.register(x);
      }
      return x;
    } finally {
      _close(__1);
    }
  }

  static public File conceptsFile(String progID) {
    return getProgramFile(progID, conceptsFileName());
  }

  static public File conceptsFile() {
    return conceptsFile(dbProgramID());
  }

  static public File conceptsFile(Concepts concepts) {
    return concepts.conceptsFile();
  }

  static public File conceptsFileIn(File dir) {
    return newFile(dir, conceptsFileName());
  }

  static public List<File> listDirsContainingFileNamed(File dir, String fileName) {
    return filter(listDirs(dir), d -> isFile(newFile(d, fileName)));
  }

  static public IterableIterator mapI_pcall(final Object f, final Iterator i) {
    return new IterableIterator() {

      public boolean hasNext() {
        return i.hasNext();
      }

      public Object next() {
        return pcallF(f, i.next());
      }
    };
  }

  static public IterableIterator mapI_pcall(IterableIterator i, Object f) {
    return mapI_pcall((Iterator) i, f);
  }

  static public IterableIterator mapI_pcall(Object f, IterableIterator i) {
    return mapI_pcall((Iterator) i, f);
  }

  static public IterableIterator mapI_pcall(Iterator i, Object f) {
    return mapI_pcall(f, i);
  }

  static public <A, B> IterableIterator<B> mapI_pcall(Iterable<A> i, IF1<A, B> f) {
    return mapI_pcall(i, (Object) f);
  }

  static public IterableIterator mapI_pcall(Iterable i, Object f) {
    return mapI_pcall(f, i.iterator());
  }

  static public IterableIterator mapI_pcall(Object f, Iterable i) {
    return mapI_pcall(i, f);
  }

  static public Concepts newConceptsWithClassFinder(String progID) {
    Concepts cc = new Concepts(progID);
    cc.classFinder = _defaultClassFinder();
    return cc;
  }

  static public Concepts newConceptsWithClassFinder(File conceptsFile) {
    Concepts cc = new Concepts(assertNotNull(conceptsFile));
    cc.classFinder = _defaultClassFinder();
    return cc;
  }

  static public Concepts newConceptsWithClassFinder(File conceptsFile, IF1<String, Class> classFinder) {
    Concepts cc = new Concepts(assertNotNull(conceptsFile));
    cc.classFinder = classFinder;
    return cc;
  }

  static public void closeAndClear(Collection<? extends AutoCloseable> l) {
    closeAllAndClear(l);
  }

  static public boolean cleanUp_interruptThreads = false;

  static public void cleanUp(Object c) {
    if (c == null)
      return;
    if (c instanceof AutoCloseable) {
      close_pcall((AutoCloseable) c);
      return;
    }
    if (c instanceof java.util.Timer) {
      ((java.util.Timer) c).cancel();
      return;
    }
    if (c instanceof Collection) {
      cleanUp((Collection) c);
      return;
    }
    if (c instanceof Map) {
      for (Object o : keysList((Map) c)) cleanUp(o);
      for (Object o : valuesList((Map) c)) cleanUp(o);
      syncClear((Map) c);
      return;
    }
    try {
      preCleanUp(c);
      setOpt_raw(c, "ping_pauseAll", false);
      innerCleanUp(c);
      List androids = (List) getOpt(c, "record_list");
      for (Object android : unnull(androids)) pcallOpt(android, "dispose");
      List<WeakReference> classes = (List<WeakReference>) (getOpt(c, "hotwire_classes"));
      if (classes != null)
        for (WeakReference cc : classes) {
          try {
            cleanUp(cc.get());
          } catch (Throwable __e) {
            pcallFail(__e);
          }
        }
      if (cleanUp_interruptThreads) {
        List<Thread> threads = registeredThreads(c);
        if (nempty(threads)) {
          print("cleanUp: Interrupting " + n2(threads, "thread") + ": " + joinWithComma(allToString(threads)));
          interruptThreads(threads);
        }
      }
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    setOpt_raw(c, "cleaningUp_flag", false);
    if (c instanceof Class && ((Class) c).getName().equals("main"))
      retireClassLoader(((Class) c).getClassLoader());
  }

  static public void cleanUp(Collection l) {
    if (l == null)
      return;
    for (Object c : l) cleanUp(c);
    l.clear();
  }

  static public void close(AutoCloseable c) {
    _close(c);
  }

  static public <A extends Concept> A conceptWhereCI(Class<A> c, Object... params) {
    return findConceptWhereCI(c, params);
  }

  static public Concept conceptWhereCI(String c, Object... params) {
    return findConceptWhereCI(db_mainConcepts(), c, params);
  }

  static public <A extends Concept> A conceptWhereCI(Concepts concepts, Class<A> c, Object... params) {
    return findConceptWhereCI(concepts, c, params);
  }

  static public Concept conceptWhereCI(Concepts concepts, String c, Object... params) {
    return findConceptWhereCI(concepts, c, params);
  }

  static public List collect(Iterable c, String field) {
    return collectField(c, field);
  }

  static public List collect(String field, Iterable c) {
    return collectField(c, field);
  }

  static public <A extends Concept> List<A> list(Class<A> type) {
    return list(type, db_mainConcepts());
  }

  static public <A extends Concept> List<A> list(Class<A> type, Concepts cc) {
    return cc.list(type);
  }

  static public <A extends Concept> List<A> list(Concepts concepts, Class<A> type) {
    return concepts.list(type);
  }

  static public List<Concept> list(String type) {
    return db_mainConcepts().list(type);
  }

  static public List<Concept> list(Concepts concepts, String type) {
    return concepts.list(type);
  }

  static public List<Concept> list(Concepts concepts) {
    return asList(concepts.allConcepts());
  }

  static public <A extends Concept> A optimizedUniqCI(Class<A> c, Object... params) {
    return optimizedUniqCI(db_mainConcepts(), c, params);
  }

  static public <A extends Concept> A optimizedUniqCI(Concepts cc, Class<A> c, Object... params) {
    {
      var __1 = conceptWhereCI(cc, c, params);
      if (__1 != null)
        return __1;
    }
    return uniqCI(cc, c, params);
  }

  static public double infinity() {
    return positiveInfinity();
  }

  static public <A> A waitForCalculatedValueUsingChangeListener(IF0<A> f, IHasChangeListeners sender) {
    return waitForCalculatedValueUsingChangeListener(infinity(), f, sender);
  }

  static public <A> A waitForCalculatedValueUsingChangeListener(double timeout, IF0<A> f, IHasChangeListeners sender) {
    BoolVar trigger = new BoolVar();
    AutoCloseable __2 = tempOnChange(sender, () -> trigger.set(true));
    try {
      while (true) {
        ping();
        {
          var __1 = f.get();
          if (__1 != null)
            return __1;
        }
        trigger.waitUntilTrueAndClear(timeout);
      }
    } finally {
      _close(__2);
    }
  }

  static public void deleteConcept(long id) {
    db_mainConcepts().deleteConcept(id);
  }

  static public void deleteConcept(Concepts concepts, long id) {
    concepts.deleteConcept(id);
  }

  static public void deleteConcept(Concept c) {
    if (c != null)
      c.delete();
  }

  static public void deleteConcept(Concept.Ref ref) {
    if (ref != null)
      deleteConcept(ref.get());
  }

  static public <A extends Concept> Collection<A> conceptsWhere(Class<A> c, Object... params) {
    return findConceptsWhere(c, params);
  }

  static public Collection<Concept> conceptsWhere(String c, Object... params) {
    return findConceptsWhere(c, params);
  }

  static public <A extends Concept> Collection<A> conceptsWhere(Concepts concepts, Class<A> c, Object... params) {
    return findConceptsWhere(concepts, c, params);
  }

  static public Double toDoubleOrNull(Object o) {
    if (o == null)
      return null;
    if (o instanceof Number)
      return ((Number) o).doubleValue();
    if (o instanceof BigInteger)
      return ((BigInteger) o).doubleValue();
    if (o instanceof String)
      return parseDouble((String) o);
    return null;
  }

  static public Concept getConcept(long id) {
    return db_mainConcepts().getConcept(id);
  }

  static public Concept getConcept(Concepts concepts, long id) {
    return concepts.getConcept(id);
  }

  static public <A extends Concept> A getConcept(Class<A> cc, long id) {
    return getConcept(db_mainConcepts(), cc, id);
  }

  static public <A extends Concept> A getConcept(Concepts concepts, Class<A> cc, long id) {
    Concept c = concepts.getConcept(id);
    if (c == null)
      return null;
    if (!isInstance(cc, c))
      throw fail("Can't convert concept: " + getClassName(c) + " -> " + getClassName(cc) + " (" + id + ")");
    return (A) c;
  }

  static public <A> A evalWithTimeoutOrTypedException(int timeoutMS, IF0<A> f) {
    return evalWithTimeoutOrTypedException(toSeconds(timeoutMS), f);
  }

  static public <A> A evalWithTimeoutOrTypedException(double timeoutSeconds, IF0<A> f) {
    Either<A, Thread> e = evalWithTimeout(timeoutSeconds, f);
    if (e.isA())
      return (A) e.a();
    throw new TimeoutException_Inner(timeoutSeconds, f, e.b());
  }

  static public Thread startThread(Object runnable) {
    return startThread(defaultThreadName(), runnable);
  }

  static public Thread startThread(String name, Runnable runnable) {
    runnable = wrapAsActivity(runnable);
    return startThread(newThread(runnable, name));
  }

  static public Thread startThread(String name, Object runnable) {
    runnable = wrapAsActivity(runnable);
    return startThread(newThread(toRunnable(runnable), name));
  }

  static public Thread startThread(Thread t) {
    _registerThread(t);
    t.start();
    return t;
  }

  static public IF0 toIF0(final Object f) {
    if (f == null)
      return null;
    if (f instanceof IF0)
      return ((IF0) f);
    if (f instanceof Runnable)
      return () -> {
        ((Runnable) f).run();
        return null;
      };
    if (isString(f))
      return mainFunctionToIF0((String) f);
    return (IF0) () -> callF(f);
  }

  static public void cancelThread(Thread t) {
    if (t == null)
      return;
    ping();
    synchronized (ping_actions) {
      ping_actions.put(t, "cancelled");
      ping_anyActions = true;
    }
  }

  static public Object dm_os() {
    {
      var __1 = vm_generalMap_get("stefansOS");
      if (__1 != null)
        return __1;
    }
    return creator();
  }

  static public boolean isSameFile(File a, File b) {
    return sameFile(a, b);
  }

  static public <A extends Concept> A optimizedUniq(Class<A> c, Object... params) {
    return optimizedUniq(db_mainConcepts(), c, params);
  }

  static public <A extends Concept> A optimizedUniq(Concepts cc, Class<A> c, Object... params) {
    {
      var __1 = conceptWhere(cc, c, params);
      if (__1 != null)
        return __1;
    }
    return uniq(cc, c, params);
  }

  static public IVF1<String> openPlatformBrowser;

  static public void openPlatformBrowser(String url) {
    if (openPlatformBrowser != null)
      openPlatformBrowser.get(url);
    else
      openPlatformBrowser_base(url);
  }

  final static public void openPlatformBrowser_fallback(IVF1<String> _f, String url) {
    if (_f != null)
      _f.get(url);
    else
      openPlatformBrowser_base(url);
  }

  static public void openPlatformBrowser_base(String url) {
    try {
      if (isHeadless())
        return;
      print("Opening platform-specific browser on: " + url);
      Desktop.getDesktop().browse(uri(url));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void openPlatformBrowser(URL url) {
    if (url == null)
      return;
    openPlatformBrowser(str(url));
  }

  static public String or2(String a, String b) {
    return nempty(a) ? a : b;
  }

  static public String or2(String a, String b, String c) {
    return or2(or2(a, b), c);
  }

  static public String compilationDateFromClassPath(Object referenceObject) {
    return loadTextFileResource(classLoader(referenceObject), "compilation-date.txt");
  }

  static public Object unstructure(String text) {
    return unstructure(text, false);
  }

  static public Object unstructure(String text, boolean allDynamic) {
    return unstructure(text, allDynamic, null);
  }

  static public Object unstructure(String text, IF1<String, Class> classFinder) {
    return unstructure(text, false, classFinder);
  }

  static public int structure_internStringsLongerThan = 50;

  static public int unstructure_unquoteBufSize = 100;

  static public int unstructure_tokrefs;

  abstract static public class unstructure_Receiver {

    abstract public void set(Object o);
  }

  static public Object unstructure(String text, boolean allDynamic, Object classFinder) {
    if (text == null)
      return null;
    return unstructure_tok(javaTokC_noMLS_iterator(text), allDynamic, classFinder);
  }

  static public Object unstructure_reader(BufferedReader reader) {
    return unstructure_tok(javaTokC_noMLS_onReader(reader), false, null);
  }

  public interface unstructure_Handler {

    public void parse(int refID, int tokIndex, unstructure_Receiver out);
  }

  static public class Unstructurer {

    final public Unstructurer setTok(Producer<String> tok) {
      return tok(tok);
    }

    public Unstructurer tok(Producer<String> tok) {
      this.tok = tok;
      return this;
    }

    final public Producer<String> getTok() {
      return tok();
    }

    public Producer<String> tok() {
      return tok;
    }

    public Producer<String> tok;

    final public Unstructurer setAllDynamic(boolean allDynamic) {
      return allDynamic(allDynamic);
    }

    public Unstructurer allDynamic(boolean allDynamic) {
      this.allDynamic = allDynamic;
      return this;
    }

    final public boolean getAllDynamic() {
      return allDynamic();
    }

    public boolean allDynamic() {
      return allDynamic;
    }

    public boolean allDynamic = false;

    public int i = -1;

    public Object classFinder;

    public String mcDollar = actualMCDollar();

    public Unstructurer classFinder(Object _classFinder) {
      classFinder = _classFinder != null ? _classFinder : _defaultClassFinder();
      return this;
    }

    public HashMap<Integer, Object> refs = new HashMap();

    public HashMap<Integer, Object> tokrefs = new HashMap();

    public HashSet<String> concepts = new HashSet();

    public List<Runnable> stack = new ArrayList();

    public Map<String, String> baseClassMap = new HashMap();

    public HashMap<Class, Constructor> innerClassConstructors = new HashMap();

    public String curT;

    public char[] unquoteBuf = new char[unstructure_unquoteBufSize];

    final public HashMap<String, Object> handlers = new HashMap();

    public Unstructurer() {
      try {
        Class mc = (Class) (callF(classFinder, "<main>"));
        if (mc != null)
          mcDollar = mc.getName() + "$";
      } catch (Throwable __e) {
        pcallFail(__e);
      }
      makeHandlers();
    }

    public void makeHandlers() {
      unstructure_Handler h;
      handlers.put("bigint", (unstructure_Handler) (refID, tokIndex, out) -> out.set(parseBigInt()));
      handlers.put("d", (unstructure_Handler) (refID, tokIndex, out) -> out.set(parseDouble()));
      handlers.put("fl", (unstructure_Handler) (refID, tokIndex, out) -> out.set(parseFloat()));
      handlers.put("sh", (unstructure_Handler) (refID, tokIndex, out) -> {
        consume();
        String t = tpp();
        if (t.equals("-")) {
          t = tpp();
          out.set((short) (-parseInt(t)));
          return;
        }
        out.set((short) parseInt(t));
      });
      handlers.put("enum", (unstructure_Handler) (refID, tokIndex, out) -> {
        consume();
        String t = tpp();
        assertTrue(isJavaIdentifier(t));
        String fullClassName = mcDollar + t;
        Class _c = findAClass(fullClassName);
        if (_c == null)
          throw fail("Enum class not found: " + fullClassName);
        int ordinal = parseInt(tpp());
        out.set(_c.getEnumConstants()[ordinal]);
      });
      handlers.put("false", h = (unstructure_Handler) (refID, tokIndex, out) -> {
        consume();
        out.set(false);
      });
      handlers.put("f", h);
      handlers.put("true", h = (unstructure_Handler) (refID, tokIndex, out) -> {
        consume();
        out.set(true);
      });
      handlers.put("t", h);
      handlers.put("{", (unstructure_Handler) (refID, tokIndex, out) -> parseMap(out));
      handlers.put("[", (unstructure_Handler) (refID, tokIndex, out) -> {
        ArrayList l = new ArrayList();
        if (refID >= 0)
          refs.put(refID, l);
        this.parseList(l, out);
      });
      handlers.put("bitset", (unstructure_Handler) (refID, tokIndex, out) -> parseBitSet(out));
      handlers.put("array", h = (unstructure_Handler) (refID, tokIndex, out) -> parseArray(out));
      handlers.put("intarray", h);
      handlers.put("dblarray", h);
      handlers.put("shortarray", (unstructure_Handler) (refID, tokIndex, out) -> {
        consume();
        String hex = trivialUnquote(tpp());
        out.set(shortArrayFromBytes(hexToBytes(hex)));
      });
      handlers.put("longarray", (unstructure_Handler) (refID, tokIndex, out) -> {
        consume();
        String hex = trivialUnquote(tpp());
        out.set(longArrayFromBytes(hexToBytes(hex)));
      });
    }

    public Class findAClass(String fullClassName) {
      try {
        return classFinder != null ? (Class) callF(classFinder, fullClassName) : findClass_fullName(fullClassName);
      } catch (Throwable __e) {
        return null;
      }
    }

    public String unquote(String s) {
      return unquoteUsingCharArray(s, unquoteBuf);
    }

    public String t() {
      return curT;
    }

    public String tpp() {
      String t = curT;
      consume();
      return t;
    }

    public void parse(final unstructure_Receiver out) {
      String t = t();
      int refID;
      if (structure_isMarker(t, 0, l(t))) {
        refID = parseInt(t.substring(1));
        consume();
      } else
        refID = -1;
      final int tokIndex = i;
      parse_inner(refID, tokIndex, new unstructure_Receiver() {

        public void set(Object o) {
          if (refID >= 0)
            refs.put(refID, o);
          if (o != null)
            tokrefs.put(tokIndex, o);
          out.set(o);
        }
      });
    }

    public void parse_inner(int refID, int tokIndex, unstructure_Receiver out) {
      String t = t();
      Object handler = handlers.get(t);
      if (handler instanceof unstructure_Handler) {
        ((unstructure_Handler) handler).parse(refID, tokIndex, out);
        return;
      }
      Class c = (Class) handler;
      if (c == null) {
        if (t.startsWith("\"")) {
          String s = internIfLongerThan(unquote(tpp()), structure_internStringsLongerThan);
          out.set(s);
          return;
        }
        if (t.startsWith("'")) {
          out.set(unquoteCharacter(tpp()));
          return;
        }
        if (t.equals("-")) {
          consume();
          t = tpp();
          out.set(isLongConstant(t) ? (Object) (-parseLong(t)) : (Object) (-parseInt(t)));
          return;
        }
        if (isInteger(t) || isLongConstant(t)) {
          consume();
          if (isLongConstant(t)) {
            out.set(parseLong(t));
            return;
          }
          long l = parseLong(t);
          boolean isInt = l == (int) l;
          out.set(isInt ? (Object) Integer.valueOf((int) l) : (Object) Long.valueOf(l));
          return;
        }
        if (t.equals("-")) {
          consume();
          t = tpp();
          out.set(isLongConstant(t) ? (Object) (-parseLong(t)) : (Object) (-parseInt(t)));
          return;
        }
        if (isInteger(t) || isLongConstant(t)) {
          consume();
          if (isLongConstant(t)) {
            out.set(parseLong(t));
            return;
          }
          long l = parseLong(t);
          boolean isInt = l == (int) l;
          out.set(isInt ? (Object) Integer.valueOf((int) l) : (Object) Long.valueOf(l));
          return;
        }
        if (t.equals("File")) {
          consume();
          File f = new File(unquote(tpp()));
          out.set(f);
          return;
        }
        if (t.startsWith("r") && isInteger(t.substring(1))) {
          consume();
          int ref = Integer.parseInt(t.substring(1));
          Object o = refs.get(ref);
          if (o == null)
            warn("unsatisfied back reference " + ref);
          out.set(o);
          return;
        }
        if (t.startsWith("t") && isInteger(t.substring(1))) {
          consume();
          int ref = Integer.parseInt(t.substring(1));
          Object o = tokrefs.get(ref);
          if (o == null)
            warn("unsatisfied token reference " + ref + " at " + tokIndex);
          out.set(o);
          return;
        }
        if (t.equals("hashset")) {
          parseHashSet(out);
          return;
        }
        if (t.equals("lhs")) {
          parseLinkedHashSet(out);
          return;
        }
        if (t.equals("treeset")) {
          parseTreeSet(out);
          return;
        }
        if (t.equals("ciset")) {
          parseCISet(out);
          return;
        }
        if (eqOneOf(t, "hashmap", "hm")) {
          consume();
          parseMap(new HashMap(), out);
          return;
        }
        if (t.equals("lhm")) {
          consume();
          parseMap(new LinkedHashMap(), out);
          return;
        }
        if (t.equals("tm")) {
          consume();
          parseMap(new TreeMap(), out);
          return;
        }
        if (t.equals("cimap")) {
          consume();
          parseMap(ciMap(), out);
          return;
        }
        if (t.equals("ll")) {
          consume();
          LinkedList l = new LinkedList();
          if (refID >= 0)
            refs.put(refID, l);
          {
            parseList(l, out);
            return;
          }
        }
        if (t.equals("syncLL")) {
          consume();
          {
            parseList(synchroLinkedList(), out);
            return;
          }
        }
        if (t.equals("sync")) {
          consume();
          {
            parse(new unstructure_Receiver() {

              public void set(Object value) {
                if (value instanceof Map) {
                  if (value instanceof NavigableMap) {
                    out.set(synchroNavigableMap((NavigableMap) value));
                    return;
                  }
                  if (value instanceof SortedMap) {
                    out.set(synchroSortedMap((SortedMap) value));
                    return;
                  }
                  {
                    out.set(synchroMap((Map) value));
                    return;
                  }
                } else {
                  out.set(synchroList((List) value));
                  return;
                }
              }
            });
            return;
          }
        }
        if (t.equals("ba")) {
          consume();
          String hex = trivialUnquote(tpp());
          out.set(hexToBytes(hex));
          return;
        }
        if (t.equals("boolarray")) {
          consume();
          int n = parseInt(tpp());
          String hex = trivialUnquote(tpp());
          out.set(boolArrayFromBytes(hexToBytes(hex), n));
          return;
        }
        if (t.equals("class")) {
          out.set(parseClass());
          return;
        }
        if (t.equals("l")) {
          parseLisp(out);
          return;
        }
        if (t.equals("null")) {
          consume();
          out.set(null);
          return;
        }
        if (eq(t, "c")) {
          consume();
          t = t();
          assertTrue(isJavaIdentifier(t));
          concepts.add(t);
        }
        if (eq(t, "cu")) {
          consume();
          t = tpp();
          assertTrue(isJavaIdentifier(t));
          String fullClassName = mcDollar + t;
          Class _c = findAClass(fullClassName);
          if (_c == null)
            throw fail("Class not found: " + fullClassName);
          parse(new unstructure_Receiver() {

            public void set(Object value) {
              out.set(call(_c, "_deserialize", value));
            }
          });
          return;
        }
      }
      if (eq(t, "j")) {
        consume();
        out.set(parseJava());
        return;
      }
      if (eq(t, "bc")) {
        consume();
        String c1 = tpp();
        String c2 = tpp();
        baseClassMap.put(c1, c2);
        {
          parse_inner(refID, i, out);
          return;
        }
      }
      if (c == null && !isJavaIdentifier(t))
        throw new RuntimeException("Unknown token " + (i + 1) + ": " + quote(t));
      consume();
      String className, fullClassName;
      if (eq(t(), ".")) {
        className = t;
        do {
          consume();
          className += "." + assertIdentifier(tpp());
        } while (eq(t(), "."));
        fullClassName = className;
      } else {
        className = t;
        fullClassName = mcDollar + t;
      }
      if (c == null && !allDynamic) {
        c = findAClass(fullClassName);
        handlers.put(className, c);
      }
      if (c == null && !allDynamic) {
        Set<String> seen = new HashSet();
        String parent = className;
        while (true) {
          String baseName = baseClassMap.get(parent);
          if (baseName == null)
            break;
          if (!seen.add(baseName))
            throw fail("Cyclic superclass info: " + baseName);
          c = findAClass(mcDollar + baseName);
          if (c == null)
            print("Base class " + baseName + " of " + parent + " doesn't exist either");
          else if (isAbstract(c))
            print("Can't instantiate abstract base class: " + c);
          else {
            printVars_str("Reverting to base class", "className", className, "baseName", baseName, "c", c);
            handlers.put(className, c);
            break;
          }
          parent = baseName;
        }
      }
      boolean hasBracket = eq(t(), "(");
      if (hasBracket)
        consume();
      boolean hasOuter = hasBracket && startsWith(t(), "this$");
      DynamicObject dO = null;
      Object o = null;
      final String thingName = t;
      try {
        if (c != null) {
          if (hasOuter)
            try {
              Constructor ctor = innerClassConstructors.get(c);
              if (ctor == null)
                innerClassConstructors.put(c, ctor = nuStubInnerObject_findConstructor(c, classFinder));
              o = ctor.newInstance(new Object[] { null });
            } catch (Exception e) {
              print("Error deserializing " + c + ": " + e);
              o = nuEmptyObject(c);
            }
          else
            o = nuEmptyObject(c);
          if (o instanceof DynamicObject)
            dO = (DynamicObject) o;
        } else {
          if (concepts.contains(t) && (c = findAClass(mcDollar + "Concept")) != null)
            o = dO = (DynamicObject) nuEmptyObject(c);
          else
            dO = new DynamicObject();
          dO.className = className;
        }
      } catch (Throwable __e) {
        pcallFail(__e);
      }
      if (o == null && dO == null)
        dO = new DynamicObject();
      if (refID >= 0)
        refs.put(refID, o != null ? o : dO);
      tokrefs.put(tokIndex, o != null ? o : dO);
      HashMap<String, Object> fields = new HashMap();
      Object _o = o;
      DynamicObject _dO = dO;
      if (hasBracket) {
        stack.add(new Runnable() {

          public void run() {
            try {
              if (eq(t(), ","))
                consume();
              if (eq(t(), ")")) {
                consume(")");
                objRead(_o, _dO, fields, hasOuter);
                out.set(_o != null ? _o : _dO);
              } else {
                final String key = unquote(tpp());
                String t = tpp();
                if (!eq(t, "="))
                  throw fail("= expected, got " + t + " after " + quote(key) + " in object " + thingName);
                stack.add(this);
                parse(new unstructure_Receiver() {

                  public void set(Object value) {
                    fields.put(key, value);
                  }
                });
              }
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "ifdef unstructure_debug\r\n          print(\"in object values, token: \" + t());\r...";
          }
        });
      } else {
        objRead(o, dO, fields, hasOuter);
        out.set(o != null ? o : dO);
      }
    }

    public void objRead(Object o, DynamicObject dO, Map<String, Object> fields, boolean hasOuter) {
      Object outer = fields.get("this$0");
      if (outer != null)
        fields.put("this$1", outer);
      else {
        outer = fields.get("this$1");
        if (outer != null)
          fields.put("this$0", outer);
      }
      if (o != null) {
        if (dO != null) {
          setOptAllDyn_pcall(dO, fields);
        } else {
          setOptAll_pcall(o, fields);
        }
        if (hasOuter)
          fixOuterRefs(o);
      } else
        for (Map.Entry<String, Object> e : fields.entrySet()) setDynObjectValue(dO, intern(e.getKey()), e.getValue());
      if (o != null)
        pcallOpt_noArgs(o, "_doneLoading");
    }

    public void parseSet(final Set set, final unstructure_Receiver out) {
      this.parseList(new ArrayList(), new unstructure_Receiver() {

        public void set(Object o) {
          set.addAll((List) o);
          out.set(set);
        }
      });
    }

    public void parseLisp(final unstructure_Receiver out) {
      throw fail("class Lisp not included");
    }

    public void parseBitSet(final unstructure_Receiver out) {
      consume("bitset");
      consume("{");
      final BitSet bs = new BitSet();
      stack.add(new Runnable() {

        public void run() {
          try {
            if (eq(t(), "}")) {
              consume("}");
              out.set(bs);
            } else {
              stack.add(this);
              parse(new unstructure_Receiver() {

                public void set(Object o) {
                  bs.set((Integer) o);
                  if (eq(t(), ","))
                    consume();
                }
              });
            }
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "if (eq(t(), \"}\")) {\r\n        consume(\"}\");\r\n        out.set(bs);\r\n      } els...";
        }
      });
    }

    public void parseList(final List list, final unstructure_Receiver out) {
      tokrefs.put(i, list);
      consume("[");
      stack.add(new Runnable() {

        public void run() {
          try {
            if (eq(t(), "]")) {
              consume();
              out.set(list);
            } else {
              stack.add(this);
              parse(new unstructure_Receiver() {

                public void set(Object o) {
                  list.add(o);
                  if (eq(t(), ","))
                    consume();
                }
              });
            }
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "if (eq(t(), \"]\")) {\r\n        consume();\r\n        ifdef unstructure_debug\r\n   ...";
        }
      });
    }

    public void parseArray(unstructure_Receiver out) {
      String _type = tpp();
      int dims;
      if (eq(t(), "S")) {
        _type = "S";
        consume();
      }
      if (eq(t(), "/")) {
        consume();
        dims = parseInt(tpp());
      } else
        dims = 1;
      consume("{");
      List list = new ArrayList();
      String type = _type;
      stack.add(new Runnable() {

        public void run() {
          try {
            if (eq(t(), "}")) {
              consume("}");
              if (dims > 1) {
                Class atype;
                if (type.equals("intarray"))
                  atype = int.class;
                else if (type.equals("S"))
                  atype = String.class;
                else
                  throw todo("multi-dimensional arrays of other types");
                out.set(list.toArray((Object[]) newMultiDimensionalOuterArray(atype, dims, l(list))));
              } else
                out.set(type.equals("intarray") ? toIntArray(list) : type.equals("dblarray") ? toDoubleArray(list) : type.equals("S") ? toStringArray(list) : list.toArray());
            } else {
              stack.add(this);
              parse(new unstructure_Receiver() {

                public void set(Object o) {
                  list.add(o);
                  if (eq(t(), ","))
                    consume();
                }
              });
            }
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "if (eq(t(), \"}\")) {\r\n        consume(\"}\");\r\n        if (dims > 1) {\r\n        ...";
        }
      });
    }

    public Object parseClass() {
      consume("class");
      consume("(");
      String name = unquote(tpp());
      consume(")");
      Class c = allDynamic ? null : findAClass(name);
      if (c != null)
        return c;
      DynamicObject dO = new DynamicObject();
      dO.className = "java.lang.Class";
      name = dropPrefix(mcDollar, name);
      dynamicObject_setRawFieldValue(dO, "name", name);
      return dO;
    }

    public Object parseBigInt() {
      consume("bigint");
      consume("(");
      String val = tpp();
      if (eq(val, "-"))
        val = "-" + tpp();
      consume(")");
      return new BigInteger(val);
    }

    public Object parseDouble() {
      consume("d");
      consume("(");
      String val = unquote(tpp());
      consume(")");
      return Double.parseDouble(val);
    }

    public Object parseFloat() {
      consume("fl");
      String val;
      if (eq(t(), "(")) {
        consume("(");
        val = unquote(tpp());
        consume(")");
      } else {
        val = unquote(tpp());
      }
      return Float.parseFloat(val);
    }

    public void parseHashSet(unstructure_Receiver out) {
      consume("hashset");
      parseSet(new HashSet(), out);
    }

    public void parseLinkedHashSet(unstructure_Receiver out) {
      consume("lhs");
      parseSet(new LinkedHashSet(), out);
    }

    public void parseTreeSet(unstructure_Receiver out) {
      consume("treeset");
      parseSet(new TreeSet(), out);
    }

    public void parseCISet(unstructure_Receiver out) {
      consume("ciset");
      parseSet(ciSet(), out);
    }

    public void parseMap(unstructure_Receiver out) {
      parseMap(new TreeMap(), out);
    }

    public Object parseJava() {
      String j = unquote(tpp());
      Matches m = new Matches();
      if (jmatch("java.awt.Color[r=*,g=*,b=*]", j, m))
        return nuObject("java.awt.Color", parseInt(m.unq(0)), parseInt(m.unq(1)), parseInt(m.unq(2)));
      else {
        warn("Unknown Java object: " + j);
        return null;
      }
    }

    public void parseMap(final Map map, final unstructure_Receiver out) {
      consume("{");
      stack.add(new Runnable() {

        public boolean v = false;

        public Object key;

        public void run() {
          if (v) {
            v = false;
            stack.add(this);
            if (!eq(tpp(), "="))
              throw fail("= expected, got " + t() + " in map of size " + l(map));
            parse(new unstructure_Receiver() {

              public void set(Object value) {
                map.put(key, value);
                if (eq(t(), ","))
                  consume();
              }
            });
          } else {
            if (eq(t(), "}")) {
              consume("}");
              out.set(map);
            } else {
              v = true;
              stack.add(this);
              parse(new unstructure_Receiver() {

                public void set(Object o) {
                  key = o;
                }
              });
            }
          }
        }
      });
    }

    public void consume() {
      curT = tok.next();
      ++i;
    }

    public void consume(String s) {
      if (!eq(t(), s)) {
        throw fail(quote(s) + " expected, got " + quote(t()));
      }
      consume();
    }

    public void parse_initial(unstructure_Receiver out) {
      consume();
      parse(out);
      while (nempty(stack)) popLast(stack).run();
    }
  }

  static public Object unstructure_tok(Producer<String> tok, boolean allDynamic, Object classFinder) {
    boolean debug = unstructure_debug;
    AutoCloseable __1 = tempSetTL(dynamicObjectIsLoading_threadLocal(), true);
    try {
      Var v = new Var();
      var unstructurer = new Unstructurer().tok(tok).allDynamic(allDynamic).classFinder(classFinder);
      unstructurer.parse_initial(new unstructure_Receiver() {

        public void set(Object o) {
          v.set(o);
        }
      });
      unstructure_tokrefs = unstructurer.tokrefs.size();
      return v.get();
    } finally {
      _close(__1);
    }
  }

  static public boolean unstructure_debug = false;

  static public boolean structure_showTiming, structure_checkTokenCount;

  static public String structure(Object o) {
    return structure(o, new structure_Data());
  }

  static public String structure(Object o, structure_Data d) {
    StringWriter sw = new StringWriter();
    d.out = new PrintWriter(sw);
    structure_go(o, d);
    String s = str(sw);
    if (structure_checkTokenCount) {
      print("token count=" + d.n);
      assertEquals("token count", l(javaTokC(s)), d.n);
    }
    return s;
  }

  static public void structure_go(Object o, structure_Data d) {
    structure_1(o, d);
    while (nempty(d.stack)) popLast(d.stack).run();
  }

  static public void structureToPrintWriter(Object o, PrintWriter out) {
    structureToPrintWriter(o, out, new structure_Data());
  }

  static public void structureToPrintWriter(Object o, PrintWriter out, structure_Data d) {
    d.out = out;
    structure_go(o, d);
  }

  static public boolean structure_allowShortening = false;

  static public class structure_ClassInfo<A> {

    public Class c;

    public String shortName;

    public List<Field> fields;

    public Method customSerializer;

    public IVF1<Object> serializeObject;

    public boolean special = false;

    public boolean nullInstances = false;

    public boolean javafy = false;

    public Object emptyInstance;

    public String toString() {
      return commaCombine("Class " + className(c), stringIf("special", special), stringIf("customSerializer", customSerializer != null), stringIf("javafy", javafy), stringIf("nullInstances", nullInstances));
    }

    public void nullInstances(boolean b) {
      this.nullInstances = b;
      if (b)
        special = true;
    }

    public void javafy(boolean b) {
      this.javafy = b;
      if (b)
        special = true;
    }

    public boolean handle(A o) {
      return false;
    }
  }

  static public class structure_Data {

    public PrintWriter out;

    public int stringSizeLimit;

    public int shareStringsLongerThan = 20;

    public boolean noStringSharing = false;

    public boolean storeBaseClasses = false;

    public boolean honorFieldOrder = true;

    public String mcDollar = actualMCDollar();

    final public structure_Data setWarnIfUnpersistable(boolean warnIfUnpersistable) {
      return warnIfUnpersistable(warnIfUnpersistable);
    }

    public structure_Data warnIfUnpersistable(boolean warnIfUnpersistable) {
      this.warnIfUnpersistable = warnIfUnpersistable;
      return this;
    }

    final public boolean getWarnIfUnpersistable() {
      return warnIfUnpersistable();
    }

    public boolean warnIfUnpersistable() {
      return warnIfUnpersistable;
    }

    public boolean warnIfUnpersistable = true;

    final public structure_Data setStackTraceIfUnpersistable(boolean stackTraceIfUnpersistable) {
      return stackTraceIfUnpersistable(stackTraceIfUnpersistable);
    }

    public structure_Data stackTraceIfUnpersistable(boolean stackTraceIfUnpersistable) {
      this.stackTraceIfUnpersistable = stackTraceIfUnpersistable;
      return this;
    }

    final public boolean getStackTraceIfUnpersistable() {
      return stackTraceIfUnpersistable();
    }

    public boolean stackTraceIfUnpersistable() {
      return stackTraceIfUnpersistable;
    }

    public boolean stackTraceIfUnpersistable = true;

    final public structure_Data setSkipDefaultValues(boolean skipDefaultValues) {
      return skipDefaultValues(skipDefaultValues);
    }

    public structure_Data skipDefaultValues(boolean skipDefaultValues) {
      this.skipDefaultValues = skipDefaultValues;
      return this;
    }

    final public boolean getSkipDefaultValues() {
      return skipDefaultValues();
    }

    public boolean skipDefaultValues() {
      return skipDefaultValues;
    }

    public boolean skipDefaultValues = false;

    public structure_Data d() {
      return this;
    }

    transient public IF1<Field, Boolean> shouldIncludeField;

    public boolean shouldIncludeField(Field f) {
      return shouldIncludeField != null ? shouldIncludeField.get(f) : shouldIncludeField_base(f);
    }

    final public boolean shouldIncludeField_fallback(IF1<Field, Boolean> _f, Field f) {
      return _f != null ? _f.get(f) : shouldIncludeField_base(f);
    }

    public boolean shouldIncludeField_base(Field f) {
      return true;
    }

    public IdentityHashMap<Object, Integer> seen = new IdentityHashMap();

    public HashMap<String, Integer> strings = new HashMap();

    public HashSet<String> concepts = new HashSet();

    public HashMap<Class, structure_ClassInfo> infoByClass = new HashMap();

    public HashMap<Class, IF1<Object, Map>> persistenceInfo = new HashMap();

    public int n;

    public List<Runnable> stack = new ArrayList();

    public structure_Data append(String token) {
      out.print(token);
      ++n;
      return this;
    }

    public structure_Data append(int i) {
      out.print(i);
      ++n;
      return this;
    }

    public structure_Data append(String token, int tokCount) {
      out.print(token);
      n += tokCount;
      return this;
    }

    public structure_Data app(String token) {
      out.print(token);
      return this;
    }

    public structure_Data app(int i) {
      out.print(i);
      return this;
    }

    public structure_Data app(char c) {
      out.print(c);
      return this;
    }

    public structure_ClassInfo infoForClass(Class c) {
      structure_ClassInfo info = infoByClass.get(c);
      if (info == null)
        info = newClass(c);
      return info;
    }

    transient public IF1<String, String> realShortName;

    public String realShortName(String name) {
      return realShortName != null ? realShortName.get(name) : realShortName_base(name);
    }

    final public String realShortName_fallback(IF1<String, String> _f, String name) {
      return _f != null ? _f.get(name) : realShortName_base(name);
    }

    public String realShortName_base(String name) {
      return dropPrefix("main$", dropPrefix("loadableUtils.utils$", dropPrefix(mcDollar, name)));
    }

    public structure_ClassInfo newClass(Class c) {
      var d = d();
      boolean isJavaXClass = isJavaXClassName(c.getName(), mcDollar);
      if (c == String.class)
        return new structure_ClassInfo<String>() {

          @Override
          public boolean handle(String o) {
            String s = d.stringSizeLimit != 0 ? shorten((String) o, d.stringSizeLimit) : (String) o;
            if (!d.noStringSharing) {
              if (d.shareStringsLongerThan == Integer.MAX_VALUE)
                d.seen.put(o, d.n);
              if (l(s) >= d.shareStringsLongerThan)
                d.strings.put(s, d.n);
            }
            quoteToPrintWriter(s, d.out);
            d.n++;
            return true;
          }
        };
      if (c == File.class)
        return new structure_ClassInfo<File>() {

          @Override
          public boolean handle(File o) {
            append("File ").append(quote(o.getPath()));
            return true;
          }
        };
      if (!isJavaXClass) {
        if (isSubClassOf(c, Set.class))
          return new structure_ClassInfo<Set>() {

            @Override
            public boolean handle(Set o) {
              writeSet(o);
              return true;
            }
          };
        if (isSubClassOf(c, Collection.class))
          return new structure_ClassInfo<Collection>() {

            @Override
            public boolean handle(Collection o) {
              writeCollection(o);
              return true;
            }
          };
        if (isSubClassOf(c, Map.class))
          return new structure_ClassInfo<Map>() {

            @Override
            public boolean handle(Map o) {
              writeMap(o);
              return true;
            }
          };
      }
      structure_ClassInfo info = new structure_ClassInfo();
      info.c = c;
      infoByClass.put(c, info);
      String name = c.getName();
      String shortName = realShortName(name);
      if (startsWithDigit(shortName))
        shortName = name;
      info.shortName = shortName;
      try {
        if (isSyntheticOrAnonymous(c)) {
          info.nullInstances(true);
          return info;
        }
        if (c.isEnum()) {
          info.special = true;
          return info;
        }
        if (isSubClassOf(c, SynchronizedMap.class))
          return new structure_ClassInfo<SynchronizedMap>() {

            @Override
            public boolean handle(SynchronizedMap o) {
              append("sync ");
              structure_1(o.m, d);
              return true;
            }
          };
        if (isSubClassOf(c, SynchronizedList.class))
          return new structure_ClassInfo<SynchronizedList>() {

            @Override
            public boolean handle(SynchronizedList o) {
              append("sync ");
              structure_1(unwrapSynchronizedList(o), d);
              return true;
            }
          };
        if (c.isArray()) {
          return info;
        }
        if ((info.customSerializer = findMethodNamed(c, "_serialize")) != null)
          info.special = true;
        if (storeBaseClasses) {
          Class sup = c.getSuperclass();
          if (sup != Object.class) {
            append("bc ");
            append(shortDynClassNameForStructure(c));
            out.print(" ");
            append(shortDynClassNameForStructure(sup));
            out.print(" ");
            infoForClass(sup);
          }
        }
        if (eqOneOf(name, "java.awt.Color", "java.lang.ThreadLocal"))
          info.javafy(true);
        else if (name.startsWith("sun") || !isPersistableClass(c)) {
          info.javafy(true);
          if (warnIfUnpersistable) {
            String msg = "Class not persistable: " + c + " (anonymous or no default constructor), referenced from " + last(stack);
            if (stackTraceIfUnpersistable)
              printStackTrace(new Throwable(msg));
            else
              print(msg);
          }
        } else if (skipDefaultValues) {
          var ctor = getDefaultConstructor(c);
          if (ctor != null)
            info.emptyInstance = invokeConstructor(ctor);
        }
      } catch (Throwable e) {
        printStackTrace(e);
        info.nullInstances(true);
      }
      return info;
    }

    public void setFields(structure_ClassInfo info, List<Field> fields) {
      info.fields = fields;
    }

    public void writeObject(Object o, String shortName, Map<String, Object> fv) {
      String singleField = fv.size() == 1 ? first(fv.keySet()) : null;
      append(shortName);
      n += countDots(shortName) * 2;
      int l = n;
      Iterator it = fv.entrySet().iterator();
      class WritingObject implements Runnable {

        public String lastFieldWritten;

        public void run() {
          try {
            if (!it.hasNext()) {
              if (n != l)
                append(")");
            } else {
              Map.Entry e = (Map.Entry) (it.next());
              append(n == l ? "(" : ", ");
              append(lastFieldWritten = (String) e.getKey()).append("=");
              stack.add(this);
              structure_1(e.getValue(), structure_Data.this);
            }
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return shortName + "." + lastFieldWritten;
        }
      }
      stack.add(new WritingObject());
    }

    public void writeMap(Map o) {
      var d = this;
      String name = o.getClass().getName();
      if (o instanceof LinkedHashMap)
        d.append("lhm");
      else if (o instanceof HashMap)
        d.append("hm");
      else if (o instanceof TreeMap)
        d.append(isCIMap_gen((TreeMap) o) ? "cimap" : "tm");
      else if (name.equals("java.util.Collections$SynchronizedMap") || name.equals("java.util.Collections$SynchronizedSortedMap") || name.equals("java.util.Collections$SynchronizedNavigableMap")) {
        d.append("sync ");
        {
          structure_1(unwrapSynchronizedMap(((Map) o)), d);
          return;
        }
      }
      d.append("{");
      final int l = d.n;
      final Iterator it = cloneMap((Map) o).entrySet().iterator();
      class WritingMap implements Runnable {

        public boolean v = false;

        public Map.Entry e;

        public String toString() {
          return renderVars("WritingMap", "e", mapEntryToPair(e), "v", !v);
        }

        public void run() {
          try {
            if (v) {
              d.append("=");
              v = false;
              d.stack.add(this);
              structure_1(e.getValue(), d);
            } else {
              if (!it.hasNext())
                d.append("}");
              else {
                e = (Map.Entry) it.next();
                v = true;
                d.stack.add(this);
                if (d.n != l)
                  d.append(", ");
                structure_1(e.getKey(), d);
              }
            }
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }
      }
      d.stack.add(new WritingMap());
    }

    public void writeSet(Set o) {
      var d = this;
      String name = o.getClass().getName();
      if (o instanceof TreeSet) {
        d.append(isCISet_gen(o) ? "ciset" : "treeset");
        structure_1(new ArrayList(o), d);
        return;
      }
      d.append(o instanceof LinkedHashSet ? "lhs" : "hashset");
      structure_1(new ArrayList(o), d);
    }

    public void writeCollection(Collection o) {
      var d = this;
      String name = o.getClass().getName();
      if (name.equals("java.util.Collections$SynchronizedList") || name.equals("java.util.Collections$SynchronizedRandomAccessList")) {
        d.append("sync ");
        {
          structure_1(unwrapSynchronizedList(((List) o)), d);
          return;
        }
      } else if (name.equals("java.util.LinkedList"))
        d.append("ll");
      d.append("[");
      int l = d.n;
      Iterator it = cloneList(o).iterator();
      d.stack.add(new Runnable() {

        public void run() {
          try {
            if (!it.hasNext())
              d.append("]");
            else {
              d.stack.add(this);
              if (d.n != l)
                d.append(", ");
              structure_1(it.next(), d);
            }
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "if (!it.hasNext())\r\n        d.append(\"]\");\r\n      else {\r\n        d.stack.add...";
        }
      });
    }
  }

  static public void structure_1(Object o, structure_Data d) {
    try {
      if (o == null) {
        d.append("null");
        return;
      }
      Class c = o.getClass();
      boolean concept = false;
      concept = o instanceof Concept;
      structure_ClassInfo info = d.infoForClass(c);
      boolean isJavaXName = isJavaXClassName(c.getName(), d.mcDollar);
      boolean referencable = isJavaXName && !(o instanceof Number || o instanceof Character || o instanceof Boolean) || o instanceof Collection || o instanceof Map;
      if (referencable) {
        Integer ref = d.seen.get(o);
        if (ref != null) {
          d.append("t").app(ref);
          return;
        }
        d.seen.put(o, d.n);
      }
      if (info.handle(o)) {
        return;
      }
      if (info.special) {
        if (info.javafy) {
          d.append("j ").append(quote(str(o)));
          return;
        }
        if (c.isEnum()) {
          d.append("enum ");
          d.append(info.shortName);
          d.out.append(' ');
          d.append(((Enum) o).ordinal());
          return;
        }
        if (info.customSerializer != null) {
          Object o2 = invokeMethod(info.customSerializer, o);
          if (o2 == o) {
          } else {
            d.append("cu ");
            String name = c.getName();
            String shortName = d.realShortName(name);
            d.append(shortName);
            d.out.append(' ');
            structure_1(o2, d);
            return;
          }
        } else if (info.nullInstances) {
          d.append("null");
          return;
        } else if (info.serializeObject != null) {
          info.serializeObject.get(o);
          return;
        } else
          throw fail("unknown special type");
      }
      List<Field> lFields = info.fields;
      if (lFields == null) {
        if (o instanceof Number) {
          PrintWriter out = d.out;
          if (o instanceof Integer) {
            int i = ((Integer) o).intValue();
            out.print(i);
            d.n += i < 0 ? 2 : 1;
            return;
          }
          if (o instanceof Long) {
            long l = ((Long) o).longValue();
            out.print(l);
            out.print("L");
            d.n += l < 0 ? 2 : 1;
            return;
          }
          if (o instanceof Short) {
            short s = ((Short) o).shortValue();
            d.append("sh ");
            out.print(s);
            d.n += s < 0 ? 2 : 1;
            return;
          }
          if (o instanceof Float) {
            d.append("fl ", 2);
            quoteToPrintWriter(str(o), out);
            return;
          }
          if (o instanceof Double) {
            d.append("d(", 3);
            quoteToPrintWriter(str(o), out);
            d.append(")");
            return;
          }
          if (o instanceof BigInteger) {
            out.print("bigint(");
            out.print(o);
            out.print(")");
            d.n += ((BigInteger) o).signum() < 0 ? 5 : 4;
            return;
          }
        }
        if (o instanceof Boolean) {
          d.append(((Boolean) o).booleanValue() ? "t" : "f");
          return;
        }
        if (o instanceof Character) {
          d.append(quoteCharacter((Character) o));
          return;
        }
        String name = c.getName();
        if (!isJavaXName) {
          if (o instanceof Set) {
            d.writeSet((Set) o);
            return;
          }
          if (o instanceof Collection) {
            {
              d.writeCollection((Collection) o);
              return;
            }
          }
          if (o instanceof Map) {
            d.writeMap((Map) o);
            return;
          }
        }
        if (c.isArray()) {
          if (o instanceof byte[]) {
            d.append("ba ").append(quote(bytesToHex((byte[]) o)));
            return;
          }
          final int n = Array.getLength(o);
          if (o instanceof boolean[]) {
            String hex = boolArrayToHex((boolean[]) o);
            int i = l(hex);
            while (i > 0 && hex.charAt(i - 1) == '0' && hex.charAt(i - 2) == '0') i -= 2;
            d.append("boolarray ").append(n).app(" ").append(quote(substring(hex, 0, i)));
            return;
          }
          if (o instanceof short[]) {
            String hex = shortArrayToHex_bigEndian((short[]) o);
            d.append("shortarray \"").append(hex).app('\"');
            return;
          }
          if (o instanceof long[]) {
            String hex = longArrayToHex_bigEndian((long[]) o);
            d.append("longarray \"").append(hex).app('\"');
            return;
          }
          String atype = "array";
          if (o instanceof int[]) {
            atype = "intarray";
          } else if (o instanceof double[]) {
            atype = "dblarray";
          } else {
            Pair<Class, Integer> p = arrayTypeAndDimensions(c);
            if (p.a == int.class)
              atype = "intarray";
            else if (p.a == byte.class)
              atype = "bytearray";
            else if (p.a == boolean.class)
              atype = "boolarray";
            else if (p.a == double.class)
              atype = "dblarray";
            else if (p.a == String.class) {
              atype = "array S";
              d.n++;
            } else
              atype = "array";
            if (p.b > 1) {
              atype += "/" + p.b;
              d.n += 2;
            }
          }
          d.append(atype).append("{");
          d.stack.add(new Runnable() {

            public int i;

            public void run() {
              if (i >= n)
                d.append("}");
              else {
                d.stack.add(this);
                if (i > 0)
                  d.append(", ");
                structure_1(Array.get(o, i++), d);
              }
            }
          });
          return;
        }
        if (o instanceof Class) {
          d.append("class(", 2).append(quote(((Class) o).getName())).append(")");
          return;
        }
        if (o instanceof Throwable) {
          d.append("exception(", 2).append(quote(((Throwable) o).getMessage())).append(")");
          return;
        }
        if (o instanceof BitSet) {
          BitSet bs = (BitSet) o;
          d.append("bitset{", 2);
          int l = d.n;
          for (int i = bs.nextSetBit(0); i >= 0; i = bs.nextSetBit(i + 1)) {
            if (d.n != l)
              d.append(", ");
            d.append(i);
          }
          d.append("}");
          return;
        }
        String dynName = shortDynClassNameForStructure(o);
        if (concept && !d.concepts.contains(dynName)) {
          d.concepts.add(dynName);
          d.append("c ");
        }
        TreeSet<Field> fields = new TreeSet<Field>(new Comparator<Field>() {

          public int compare(Field a, Field b) {
            return stdcompare(a.getName(), b.getName());
          }
        });
        Class cc = c;
        while (cc != Object.class) {
          for (Field field : getDeclaredFields_cached(cc)) {
            if (!d.shouldIncludeField(field))
              continue;
            String fieldName = field.getName();
            if (fieldName.equals("_persistenceInfo"))
              d.persistenceInfo.put(c, obj -> (Map) fieldGet(field, obj));
            if ((field.getModifiers() & (java.lang.reflect.Modifier.STATIC | java.lang.reflect.Modifier.TRANSIENT)) != 0)
              continue;
            fields.add(field);
          }
          cc = cc.getSuperclass();
        }
        Method persistenceInfoMethod = findInstanceMethod(c, "_persistenceInfo");
        if (persistenceInfoMethod != null)
          d.persistenceInfo.put(c, obj -> (Map) invokeMethod(persistenceInfoMethod, obj));
        lFields = asList(d.honorFieldOrder ? fieldObjectsInFieldOrder(c, fields) : fields);
        int n = l(lFields);
        for (int i = 0; i < n; i++) {
          Field f = lFields.get(i);
          if (f.getName().startsWith("this$")) {
            lFields.remove(i);
            lFields.add(0, f);
            break;
          }
        }
        d.setFields(info, lFields);
      }
      IF1<Object, Map> piGetter = d.persistenceInfo.get(c);
      Map persistenceInfo = piGetter == null ? null : piGetter.get(o);
      if (piGetter == null && o instanceof DynamicObject)
        persistenceInfo = (Map) getOptDynOnly(((DynamicObject) o), "_persistenceInfo");
      LinkedHashMap<String, Object> fv = new LinkedHashMap();
      Object defaultInstance = info.emptyInstance;
      for (Field f : lFields) {
        Object value, defaultValue = null;
        try {
          value = f.get(o);
          defaultValue = defaultInstance == null ? null : f.get(defaultInstance);
        } catch (Exception e) {
          value = "?";
        }
        if (!eq(defaultValue, value) && (persistenceInfo == null || !Boolean.FALSE.equals(persistenceInfo.get(f.getName()))))
          fv.put(f.getName(), value);
      }
      String shortName = info.shortName;
      Object classNameFromFV = fv.get("className");
      if (concept && eq(classNameFromFV, shortName))
        fv.remove("className");
      if (o instanceof DynamicObject) {
        putAll(fv, (Map) fv.get("fieldValues"));
        fv.remove("fieldValues");
        if (((DynamicObject) o).className != null) {
          shortName = shortDynClassNameForStructure((DynamicObject) o);
          fv.remove("className");
          if (eq(shortName, "java.lang.Class")) {
            d.append("class(");
            d.append(quoted(fv.get("name")));
            d.append(")");
            return;
          }
        }
      }
      d.writeObject(o, shortName, fv);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public BufferedImage loadImage2(String snippetIDOrURL) {
    return loadBufferedImage(snippetIDOrURL);
  }

  static public BufferedImage loadImage2(File file) {
    return loadBufferedImage(file);
  }

  static public JComponent jGazelleLogo() {
    return setOpaqueBackground(Color.white, jimage(gazelleLogoImageID()));
  }

  static public boolean cic(Collection<String> l, String s) {
    return containsIgnoreCase(l, s);
  }

  static public boolean cic(Collection<Symbol> l, Symbol s) {
    return contains(l, s);
  }

  static public boolean cic(String[] l, String s) {
    return containsIgnoreCase(l, s);
  }

  static public boolean cic(String s, char c) {
    return containsIgnoreCase(s, c);
  }

  static public boolean cic(String a, String b) {
    return containsIgnoreCase(a, b);
  }

  static public JScrollPane jscroll_centered_borderless(Component c) {
    return borderlessScrollPane(jscroll_centered(c));
  }

  static public JComponent wrap(Object swingable) {
    return _recordNewSwingComponent(wrap_2(swingable));
  }

  static public JComponent wrap_2(Object swingable) {
    if (swingable == null)
      return null;
    JComponent c;
    if (swingable instanceof Component)
      c = componentToJComponent((Component) swingable);
    else if (swingable instanceof Swingable)
      c = componentToJComponent(((Swingable) swingable).visualize());
    else
      c = componentToJComponent((Component) callOpt(swingable, "swing"));
    if (c instanceof JTable || c instanceof JList || c instanceof JTextArea || c instanceof JEditorPane || c instanceof JTextPane || c instanceof JTree)
      return jscroll(c);
    return c == null ? jlabel(str(swingable)) : c;
  }

  static public List concatMap(Object f, Iterable l) {
    return concatLists(map(f, l));
  }

  static public List concatMap(Iterable l, Object f) {
    return concatMap(f, l);
  }

  static public List concatMap(Object f, Object[] l) {
    return concatLists(map(f, l));
  }

  static public List concatMap(Object[] l, Object f) {
    return concatMap(f, l);
  }

  static public <A, B, C extends Iterable<B>> List<B> concatMap(Iterable<A> l, IF1<A, C> f) {
    return concatMap(l, (Object) f);
  }

  static public <A, B, C extends Iterable<B>> List<B> concatMap(IF1<A, C> f, Iterable<A> l) {
    return concatMap(l, f);
  }

  static public <A, B, C extends Iterable<B>> List<B> concatMap(IF1<A, C> f, A[] l) {
    return concatMap((Object) f, l);
  }

  static public JButton jimageButton(String imageID, Object action) {
    JButton btn = jbutton("", action);
    btn.setIcon(imageIcon(imageID));
    return btn;
  }

  static public JButton jimageButton(String imageID) {
    return jimageButton(imageID, null);
  }

  static public JButton jimageButton(Image img) {
    return jimageButton(img, null, null);
  }

  static public JButton jimageButton(String imageID, String toolTip, Runnable action) {
    return jimageButton(imageIcon(imageID), toolTip, action);
  }

  static public JButton jimageButton(Image img, String toolTip, Runnable action) {
    var btn = jbutton("", action);
    setButtonImage(btn, img);
    return setToolTip(toolTip, btn);
  }

  static public JButton jimageButton(ImageIcon img, String toolTip, Runnable action) {
    var btn = jbutton("", action);
    setButtonImage(btn, img);
    return setToolTip(toolTip, btn);
  }

  static public <A extends Concept> A registerConcept(A c) {
    return registerConcept(db_mainConcepts(), c);
  }

  static public <A extends Concept> A registerConcept(Concepts cc, A c) {
    {
      if (cc != null)
        cc.register(c);
    }
    return c;
  }

  static public boolean addLibrary(String libID) {
    return addLibraryToCurrentProgram(libID);
  }

  static public boolean addLibrary(File f) {
    return addLibraryToCurrentProgram(f);
  }

  static public JLabel jcenteredlabel(String text) {
    return jcenteredLabel(text);
  }

  static public JLabel jcenteredlabel() {
    return jcenteredLabel();
  }

  static public JComponent jErrorView(Throwable e) {
    return jSmallErrorView(e);
  }

  static public boolean infoMessage_alwaysOnTop = true;

  static public double infoMessage_defaultTime = 5.0;

  static public JWindow infoMessage(String text) {
    return infoMessage(text, infoMessage_defaultTime);
  }

  static public JWindow infoMessage(final String text, final double seconds) {
    printHidingCredentials(text);
    return infoMessage_noprint(text, seconds);
  }

  static public JWindow infoMessage_noprint(String text) {
    return infoMessage_noprint(text, infoMessage_defaultTime);
  }

  static public JWindow infoMessage_noprint(final String _text, final double seconds) {
    final String text = hideCredentials(_text);
    if (empty(text))
      return null;
    logQuotedWithDate(infoBoxesLogFile(), text);
    if (isHeadless())
      return null;
    return (JWindow) swingAndWait(new F0<Object>() {

      public Object get() {
        try {
          JWindow window = makeWindow(infoMessage_makePanel(text));
          window.setSize(300, 150);
          moveToTopRightCorner(window);
          if (infoMessage_alwaysOnTop)
            window.setAlwaysOnTop(true);
          if (vmBus_noObjections("shouldShowInfoBox", window, text))
            window.setVisible(true);
          if (seconds != 0)
            disposeWindowAfter(iround(seconds * 1000), window);
          return window;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JWindow window = makeWindow(infoMessage_makePanel(text));\r\n    window.setSize...";
      }
    });
  }

  static public JWindow infoMessage(Throwable e) {
    printStackTrace(e);
    return infoMessage(exceptionToStringShort(e));
  }

  static public boolean directoryIsEmpty(File f) {
    return !fileExists(f) || isDirectory(f) && empty(listFiles(f));
  }

  static public boolean swingConfirm(Component owner, String msg) {
    return confirmOKCancel(owner, msg);
  }

  static public boolean swingConfirm(String msg) {
    return confirmOKCancel(msg);
  }

  static public File javaxBackupDir_dir;

  static public File javaxBackupDir() {
    return javaxBackupDir_dir != null ? javaxBackupDir_dir : new File(userHome(), "JavaX-Backup");
  }

  static public File javaxBackupDir(String sub) {
    return newFile(javaxBackupDir(), sub);
  }

  static public String _computerID;

  static public Lock computerID_lock = lock();

  public static String computerID() {
    if (_computerID == null) {
      Lock __0 = computerID_lock;
      lock(__0);
      try {
        if (_computerID != null)
          return _computerID;
        File file = computerIDFile();
        _computerID = loadTextFile(file.getPath());
        if (_computerID == null) {
          _computerID = loadTextFile(userDir(".tinybrain/computer-id"));
          if (_computerID == null)
            _computerID = makeRandomID(12, new SecureRandom());
          saveTextFile(file, _computerID);
        }
      } finally {
        unlock(__0);
      }
    }
    return _computerID;
  }

  static public String ymdMinusHMS() {
    return ymdMinusHMS(now());
  }

  static public String ymdMinusHMS(long now) {
    return ymd_minus_hms(now);
  }

  static public void moveFile(File a, File b) {
    if (!renameFile(a, b))
      throw fail("File move failed: " + a + " to " + b);
  }

  static public void zip2dir(File inZip, String outDir) {
    zip2dir(inZip, newFile(outDir));
  }

  static public void zip2dir(File inZip, File outDir) {
    zip2dir(inZip, outDir, "");
  }

  static public void zip2dir(File inZip, String outDir, String prefix) {
    zip2dir(inZip, newFile(outDir), prefix);
  }

  static public void zip2dir(File inZip, File outDir, String prefix) {
    try {
      if (prefix.length() != 0 && !prefix.endsWith("/"))
        prefix += "/";
      ZipFile zipFile = new ZipFile(inZip);
      try {
        Enumeration entries = zipFile.entries();
        while (entries.hasMoreElements()) {
          ZipEntry entry = (ZipEntry) entries.nextElement();
          if (entry.isDirectory())
            continue;
          if (!entry.getName().startsWith(prefix))
            continue;
          File outFile = new File(outDir, entry.getName());
          print("Unzipping " + entry.getName() + " to " + outFile.getAbsolutePath());
          stream2file(zipFile.getInputStream(entry), outFile);
        }
      } finally {
        _close(zipFile);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public JWindow infoBox(Object text) {
    return infoMessage(strOrNull(text));
  }

  static public JWindow infoBox(String text) {
    return infoMessage(text);
  }

  static public JWindow infoBox(String text, double seconds) {
    return infoMessage(text, seconds);
  }

  static public JWindow infoBox(Throwable e) {
    return infoMessage(e);
  }

  static public String baseDirInZip(File zip) {
    String prefix = commonPrefix(listZip(zip));
    return takeFirst(prefix, indexOf(prefix, '/'));
  }

  static public void inputText(String msg, String defaultText, IVF1<String> action) {
    inputText(msg, defaultText, (Object) action);
  }

  static public void inputText(String msg, IVF1<String> action) {
    inputText(msg, (Object) action);
  }

  static public void inputText(String msg, Object action) {
    inputText(msg, "", action);
  }

  static public void inputText(String msg, String defaultText, Object action) {
    final Object threadInfo = _threadInfo();
    swingLater(new Runnable() {

      public void run() {
        try {
          final JTextField tf = jtextfield(defaultText);
          String title = joinNemptiesWithVBar(msg, programNameOrNull());
          JComponent form = showFormTitled(title, unnull(msg), tf, new Runnable() {

            public void run() {
              try {
                vmBus_send("inputtingText_OK", threadInfo, msg, tf);
                callF_thread(action, getTextTrim(tf));
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "vmBus_send(\"inputtingText_OK\", threadInfo, msg, tf);\r\n        callF_thread(ac...";
            }
          });
          renameSubmitButton(form, "OK");
          vmBus_send("inputtingText", threadInfo, msg, tf);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "final JTextField tf = jtextfield(defaultText);\r\n    String title = joinNempti...";
      }
    });
  }

  static public boolean validFileName(String s) {
    return isValidFileName(s);
  }

  static public String assertValidFileName(String s) {
    if (!isValidFileName(s))
      throw fail("Not a valid file name: " + quote(s));
    return s;
  }

  static public String dropHashFromClassName(String className) {
    return regexpReplace(className, "_[0-9a-f]{32}$", "");
  }

  static public Timestamp tsNow() {
    return new Timestamp();
  }

  static public JButton jimageButtonScaledToWidth(int w, String imageID, Runnable action) {
    return jimageButtonScaledToWidth(w, imageID, "", action);
  }

  static public JButton jimageButtonScaledToWidth(int w, String imageID, String toolTip, Runnable action) {
    return jimageButton(scaleImageToWidth(w, imageID), toolTip, action);
  }

  static public <A> List<A> instancesOf(Iterable i, Class<A> c) {
    return collectInstances(i, c);
  }

  static public <A> List<A> instancesOf(Class<A> c, Iterable i) {
    return collectInstances(c, i);
  }

  static public List<Throwable> allCausesIncludingSelf(Throwable t) {
    List<Throwable> out = new ArrayList();
    while (t != null) {
      out.add(t);
      t = t.getCause();
    }
    return out;
  }

  static public List mapNotNulls(Iterable l, Object f) {
    return mapNonNulls(l, f);
  }

  static public List mapNotNulls(Object f, Object[] l) {
    return mapNonNulls(f, l);
  }

  static public List mapNotNulls(Object f, Iterable l) {
    return mapNonNulls(f, l);
  }

  static public <A, B> List<B> mapNotNulls(Iterable<A> l, F1<A, B> f) {
    return mapNonNulls(l, f);
  }

  static public <A, B> List<B> mapNotNulls(IF1<A, B> f, Iterable<A> l) {
    return mapNonNulls(f, l);
  }

  static public <A, B> List<B> mapNotNulls(Iterable<A> l, IF1<A, B> f) {
    return mapNonNulls(l, f);
  }

  static public <A, B> List<B> mapNotNulls(F1<A, B> f, Iterable<A> l) {
    return mapNonNulls(f, l);
  }

  static public JPanel centerAndEastWithMargin(Swingable c, Swingable e) {
    return centerAndEastWithMargin(c, toComponent(e));
  }

  static public JPanel centerAndEastWithMargin(Swingable c, Component e) {
    return centerAndEastWithMargin(toComponent(c), e);
  }

  static public JPanel centerAndEastWithMargin(Component c, Swingable e) {
    return centerAndEastWithMargin(c, toComponent(e));
  }

  static public JPanel centerAndEastWithMargin(Component c, Component e) {
    return centerAndEastWithMarginInbetween(c, e);
  }

  static public JPanel jline(final Component... components) {
    return swing(() -> {
      return new LeftAlignedLine(components);
    });
  }

  static public <A extends Component> JPanel jline(List<A> components) {
    return jline(asArray(Component.class, components));
  }

  static public JButton jThreadedButton(String text, Object action) {
    return swing(new F0<JButton>() {

      public JButton get() {
        try {
          String text2 = dropPrefix("[disabled] ", text);
          JButton btn = basicJButton(text2);
          if (l(text2) < l(text))
            btn.setEnabled(false);
          btn.setToolTipText(btn.getText());
          if (action != null)
            btn.addActionListener(actionListenerInNewThread(action, btn));
          return btn;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "S text2 = dropPrefix(\"[disabled] \", text);\r\n    JButton btn = basicJButton(te...";
      }
    });
  }

  static public JButton jThreadedButton(String text, Runnable action) {
    return jThreadedButton(text, (Object) action);
  }

  static public <A, B> List<A> uniquifyWith(IF1<A, B> f, Collection<A> l) {
    return uniquifyBy(f, l);
  }

  static public <A, B> List<A> uniquifyWith(Collection<A> l, IF1<A, B> f) {
    return uniquifyBy(l, f);
  }

  static public Object dm_stem() {
    return dm_stem(dm_current_generic());
  }

  static public Object dm_stem(Object moduleOrID) {
    return dm_getStem(moduleOrID);
  }

  static public String spaceToPercent20(String s) {
    return replace(s, " ", "%20");
  }

  static public URLConnection urlConnection(String url) {
    return openConnection(url);
  }

  static public URLConnection urlConnection(URL url) {
    return openConnection(url);
  }

  static public void doPostBinaryToFile(Map urlParameters, String url, File file) {
    doPostBinaryToFile(makePostData(urlParameters), url, file);
  }

  static public void doPostBinaryToFile(String urlParameters, String url, File file) {
    try {
      URL _url = new URL(url);
      ping();
      doPostBinaryToFile(urlParameters, _url.openConnection(), file);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void doPostBinaryToFile(String urlParameters, URLConnection conn, File file) throws IOException {
    setHeaders(conn);
    conn.setDoOutput(true);
    OutputStreamWriter writer = new OutputStreamWriter(conn.getOutputStream());
    writer.write(urlParameters);
    writer.flush();
    try {
      loadBinaryPageToFile_noHeaders(conn, file);
    } finally {
      writer.close();
    }
  }

  static public String makePostData(Map map) {
    StringBuilder buf = new StringBuilder();
    for (Map.Entry<Object, Object> e : castMapToMapO(map).entrySet()) {
      String key = (String) (e.getKey());
      Object val = e.getValue();
      if (val != null) {
        String value = str(val);
        if (nempty(buf))
          buf.append("&");
        buf.append(urlencode(key)).append("=").append(urlencode((value)));
      }
    }
    return str(buf);
  }

  static public String makePostData(Object... params) {
    StringBuilder buf = new StringBuilder();
    int n = l(params);
    for (int i = 0; i + 1 < n; i += 2) {
      String key = (String) (params[i]);
      Object val = params[i + 1];
      if (val != null) {
        String value = str(val);
        if (nempty(buf))
          buf.append("&");
        buf.append(urlencode(key)).append("=").append(urlencode((value)));
      }
    }
    return str(buf);
  }

  static public boolean isZip(byte[] data) {
    return isJAR(data);
  }

  static public boolean isZip(File f) {
    return isJAR(f);
  }

  static public void fileSavedInfoBox(File f) {
    infoBox("Saved " + fileInfo(f));
  }

  static public Type getRawType(Type t) {
    if (t instanceof ParameterizedType)
      return ((ParameterizedType) t).getRawType();
    return t;
  }

  static public <A> Set<A> createOrAddToSet(Set<A> set, A a) {
    if (set == null)
      set = new HashSet();
    set.add(a);
    return set;
  }

  static public <A> Set<A> createOrAddToSet(Set<A> set, A... l) {
    for (A a : unnullForIteration(l)) set = createOrAddToSet(set, a);
    return set;
  }

  static public String md5(String text) {
    try {
      if (text == null)
        return "-";
      return bytesToHex(md5AsByteArray(toUtf8(text)));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String md5(byte[] data) {
    if (data == null)
      return "-";
    return bytesToHex(md5AsByteArray(data));
  }

  static public String md5(File file) {
    return md5OfFile(file);
  }

  static public String[] mapToStringArray(Map map) {
    List l = new ArrayList();
    for (Object o : keys(map)) {
      l.add(o);
      l.add(map.get(o));
    }
    return toStringArray(l);
  }

  static public <A> String[] mapToStringArray(IF1<A, String> f, Iterable<A> l) {
    return toStringArray(map(f, l));
  }

  static public <A> String[] mapToStringArray(Iterable<A> l, IF1<A, String> f) {
    return mapToStringArray(f, l);
  }

  static public org.apache.bcel.generic.Type typeToBCELType(Type t) {
    return classToBCELType(getRawTypeClass(t));
  }

  static public String typeToVMSignature(Type t) {
    Class c = getRawTypeClass(t);
    if (t instanceof ParameterizedType) {
      List<Class> args = map(__84 -> getRawTypeClass(__84), ((ParameterizedType) t).getActualTypeArguments());
      if (nempty(args))
        return classNameToByteCodeFormat(c) + "<" + joinMap(args, arg -> classNameToByteCodeFormat(arg) + ";") + ">;";
    }
    return classNameToByteCodeFormat(c) + ";";
  }

  static public org.apache.bcel.generic.Type classToBCELType(Class c) {
    if (c == null)
      return null;
    if (isPrimitiveType(c)) {
      if (c == byte.class)
        return org.apache.bcel.generic.Type.BYTE;
      if (c == char.class)
        return org.apache.bcel.generic.Type.CHAR;
      if (c == short.class)
        return org.apache.bcel.generic.Type.SHORT;
      if (c == int.class)
        return org.apache.bcel.generic.Type.INT;
      if (c == long.class)
        return org.apache.bcel.generic.Type.LONG;
      if (c == double.class)
        return org.apache.bcel.generic.Type.DOUBLE;
      if (c == void.class)
        return org.apache.bcel.generic.Type.VOID;
      if (c == boolean.class)
        return org.apache.bcel.generic.Type.BOOLEAN;
      throw fail("TODO: classToBCELType " + c);
    }
    if (isArrayType(c)) {
      int dimensions = 0;
      while (c.isArray()) {
        ++dimensions;
        c = c.componentType();
      }
      return new ArrayType(classToBCELType(c), dimensions);
    }
    return new ObjectType(className(c));
  }

  static public Object[] mapToArray(Map map) {
    return mapToObjectArray(map);
  }

  static public Object[] mapToArray(Object f, Collection l) {
    return mapToObjectArray(f, l);
  }

  static public Object[] mapToArray(Object f, Object[] l) {
    return mapToObjectArray(f, l);
  }

  static public <A> Object[] mapToArray(Collection<A> l, IF1<A, Object> f) {
    return mapToObjectArray(l, f);
  }

  static public <A> Object[] mapToArray(A[] l, IF1<A, Object> f) {
    return mapToObjectArray(f, l);
  }

  static public <A> Object[] mapToArray(IF1<A, Object> f, A[] l) {
    return mapToObjectArray(f, l);
  }

  static public boolean isPrimitiveType(Class c) {
    return c != null && c.isPrimitive();
  }

  static public Class primitiveToBoxedType(Class type) {
    if (type == boolean.class)
      return Boolean.class;
    if (type == int.class)
      return Integer.class;
    if (type == long.class)
      return Long.class;
    if (type == float.class)
      return Float.class;
    if (type == short.class)
      return Short.class;
    if (type == char.class)
      return Character.class;
    if (type == byte.class)
      return Byte.class;
    if (type == double.class)
      return Double.class;
    return null;
  }

  static public Object[] repArray(Object a, int n) {
    return arrayrep(a, n);
  }

  static public <A> A[] repArray(Class<A> type, A a, int n) {
    return arrayrep(type, a, n);
  }

  static public Field setOpt_findField(Class c, String field) {
    HashMap<String, Field> map;
    synchronized (getOpt_cache) {
      map = getOpt_cache.get(c);
      if (map == null)
        map = getOpt_makeCache(c);
    }
    return map.get(field);
  }

  static public void setOpt(Object o, String field, Object value) {
    try {
      if (o == null)
        return;
      Class c = o.getClass();
      HashMap<String, Field> map;
      if (getOpt_cache == null)
        map = getOpt_makeCache(c);
      else
        synchronized (getOpt_cache) {
          map = getOpt_cache.get(c);
          if (map == null)
            map = getOpt_makeCache(c);
        }
      if (map == getOpt_special) {
        if (o instanceof Class) {
          setOpt((Class) o, field, value);
          return;
        }
        setOpt_raw(o, field, value);
        return;
      }
      Field f = map.get(field);
      if (f != null) {
        smartSet(f, o, value);
        return;
      }
      if (o instanceof DynamicObject) {
        setDyn(((DynamicObject) o), field, value);
        return;
      }
      if (o instanceof IMeta)
        setDyn(((IMeta) o), field, value);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void setOpt(Class c, String field, Object value) {
    if (c == null)
      return;
    try {
      Field f = setOpt_findStaticField(c, field);
      if (f != null)
        smartSet(f, null, value);
    } catch (Exception e) {
      throw new RuntimeException(e);
    }
  }

  static public Field setOpt_findStaticField(Class<?> c, String field) {
    Class _c = c;
    do {
      for (Field f : _c.getDeclaredFields()) if (f.getName().equals(field) && (f.getModifiers() & java.lang.reflect.Modifier.STATIC) != 0) {
        makeAccessible(f);
        return f;
      }
      _c = _c.getSuperclass();
    } while (_c != null);
    return null;
  }

  static public String resolvableClassToName(Type type) {
    if (type instanceof IResolvableClass)
      return ((IResolvableClass) type).resolveToClassName();
    return null;
  }

  static public int javaTok_n, javaTok_elements;

  static public boolean javaTok_opt = false;

  static public List<String> javaTok(String s) {
    ++javaTok_n;
    ArrayList<String> tok = new ArrayList();
    int l = s == null ? 0 : s.length();
    int i = 0;
    while (i < l) {
      int j = i;
      char c, d;
      while (j < l) {
        c = s.charAt(j);
        d = j + 1 >= l ? '\0' : s.charAt(j + 1);
        if (c == ' ' || c == '\t' || c == '\r' || c == '\n')
          ++j;
        else if (c == '/' && d == '*') {
          do ++j; while (j < l && !regionMatches(s, j, "*/"));
          j = Math.min(j + 2, l);
        } else if (c == '/' && d == '/') {
          do ++j; while (j < l && "\r\n".indexOf(s.charAt(j)) < 0);
        } else
          break;
      }
      tok.add(javaTok_substringN(s, i, j));
      i = j;
      if (i >= l)
        break;
      c = s.charAt(i);
      d = i + 1 >= l ? '\0' : s.charAt(i + 1);
      if (c == '\'' && Character.isJavaIdentifierStart(d) && i + 2 < l && "'\\".indexOf(s.charAt(i + 2)) < 0) {
        j += 2;
        while (j < l && Character.isJavaIdentifierPart(s.charAt(j))) ++j;
      } else if (c == '\'' || c == '"') {
        char opener = c;
        ++j;
        while (j < l) {
          int c2 = s.charAt(j);
          if (c2 == opener || c2 == '\n' && opener == '\'') {
            ++j;
            break;
          } else if (c2 == '\\' && j + 1 < l)
            j += 2;
          else
            ++j;
        }
      } else if (Character.isJavaIdentifierStart(c))
        do ++j; while (j < l && (Character.isJavaIdentifierPart(s.charAt(j)) || s.charAt(j) == '\''));
      else if (Character.isDigit(c)) {
        do ++j; while (j < l && Character.isDigit(s.charAt(j)));
        if (j < l && s.charAt(j) == 'L')
          ++j;
      } else if (c == '[' && d == '[') {
        do ++j; while (j < l && !regionMatches(s, j, "]]"));
        j = Math.min(j + 2, l);
      } else if (c == '[' && d == '=' && i + 2 < l && s.charAt(i + 2) == '[') {
        do ++j; while (j + 2 < l && !regionMatches(s, j, "]=]"));
        j = Math.min(j + 3, l);
      } else
        ++j;
      tok.add(javaTok_substringC(s, i, j));
      i = j;
    }
    if ((tok.size() % 2) == 0)
      tok.add("");
    javaTok_elements += tok.size();
    return tok;
  }

  static public List<String> javaTok(List<String> tok) {
    return javaTokWithExisting(join(tok), tok);
  }

  static public boolean eqOrEqic(boolean caseInsensitive, String a, String b) {
    return caseInsensitive ? eqic(a, b) : eq(a, b);
  }

  static public String assertInteger(String s) {
    if (!isInteger(s))
      throw fail("Not an integer: " + quote(s));
    return s;
  }

  static public boolean containsLineBreak(String s) {
    return containsNewLine(s);
  }

  static public boolean warn_on = true;

  static public ThreadLocal<List<String>> warn_warnings = new ThreadLocal();

  static public void warn(String s) {
    if (warn_on)
      print("Warning: " + s);
  }

  static public void warn(String s, List<String> warnings) {
    warn(s);
    if (warnings != null)
      warnings.add(s);
    addToCollection(warn_warnings.get(), s);
  }

  static public String renderRecordVars(String recordName, Object... params) {
    List<String> l = new ArrayList();
    int i = 0;
    for (; i + 1 < l(params); i += 2) l.add(params[i] + "=" + params[i + 1]);
    return formatFunctionCall(recordName, l);
  }

  static public String nlLogic_text(Exp e) {
    return e == null ? null : e.text();
  }

  static public String nlLogic_text(IfThen r) {
    return r == null ? null : r.text();
  }

  static public java.util.Timer doLater(long delay, final Object r) {
    ping();
    final java.util.Timer timer = new java.util.Timer();
    timer.schedule(timerTask(r, timer), delay);
    return vmBus_timerStarted(timer);
  }

  static public java.util.Timer doLater(double delaySeconds, final Object r) {
    return doLater(toMS(delaySeconds), r);
  }

  static public Timestamp sysTimeToTimestamp(long now) {
    return now == 0 ? null : new Timestamp(now - clockToSysTimeDiff());
  }

  static public int seconds() {
    return seconds(java.util.Calendar.getInstance());
  }

  static public int seconds(java.util.Calendar c) {
    return c.get(java.util.Calendar.SECOND);
  }

  static public <A extends JSpinner> A onChange(A spinner, Object r) {
    return onChange(spinner, toRunnable(r));
  }

  static public <A extends JSpinner> A onChange(A spinner, Runnable r) {
    if (r != null) {
      swing(() -> {
        spinner.addChangeListener(changeListener(r));
      });
    }
    return spinner;
  }

  static public <A extends AbstractButton> A onChange(A b, Runnable r) {
    {
      swing(() -> {
        b.addItemListener(itemListener(r));
      });
    }
    return b;
  }

  static public void onChange(JTextComponent tc, Runnable r) {
    onUpdate(tc, r);
  }

  static public <A extends JSlider> A onChange(A slider, Runnable r) {
    {
      swing(() -> {
        slider.addChangeListener(changeListener(r));
      });
    }
    return slider;
  }

  static public <A> JComboBox<A> onChange(JComboBox<A> cb, ChangeTriggerable r) {
    return onChange(cb, new ChangeTrigger(r));
  }

  static public <A> JComboBox<A> onChange(JComboBox<A> cb, IVF1<A> f) {
    if (f != null)
      addActionListener(cb, () -> f.get(getSelectedItem_typed(cb)));
    return cb;
  }

  static public JComboBox onChange(JComboBox cb, Runnable r) {
    if (isEditableComboBox(cb))
      onChange(textFieldFromComboBox(cb), r);
    else
      onSelectedItem(cb, runnableToIVF1(r));
    return cb;
  }

  static public <A extends JTabbedPane> A onChange(A tabs, Runnable r) {
    {
      swing(() -> {
        tabs.addChangeListener(changeListener(r));
      });
    }
    return tabs;
  }

  static public <A extends JColorChooser> A onChange(Runnable r, A cc) {
    if (cc != null && r != null) {
      swing(() -> {
        cc.getSelectionModel().addChangeListener(changeListener(r));
      });
    }
    return cc;
  }

  static public <A extends IHasChangeListeners> A onChange(A a, ChangeTriggerable b) {
    if (a != null && b != null)
      a.onChange(new ChangeTrigger(b));
    return a;
  }

  static public <A extends IHasChangeListeners> A onChange(A a, Updateable b) {
    if (a != null && b != null)
      a.onChange(new UpdateTrigger(b));
    return a;
  }

  static public <A extends IHasChangeListeners> A onChange(A a, Runnable r) {
    if (a != null && r != null)
      a.onChange(r);
    return a;
  }

  static public void onChangeAndNow(JComponent c, Object r) {
    onUpdateAndNow(c, r);
  }

  static public void onChangeAndNow(List<? extends JComponent> l, Object r) {
    onUpdateAndNow(l, r);
  }

  static public void onChangeAndNow(JTextComponent c, IVF1<String> r) {
    onUpdateAndNow(c, r);
  }

  static public <A> JComboBox<A> onChangeAndNow(JComboBox<A> cb, IVF1<A> f) {
    onChange(cb, f);
    {
      if (f != null)
        f.get(getSelectedItem_typed(cb));
    }
    return cb;
  }

  static public <A extends JTabbedPane> A onChangeAndNow(A tabs, Runnable r) {
    if (r != null) {
      onChange(tabs, r);
      r.run();
    }
    return tabs;
  }

  static public JSlider onChangeAndNow(JSlider s, Runnable f) {
    if (s != null && f != null) {
      onChange(s, f);
      f.run();
    }
    return s;
  }

  static public ReliableSingleThread rst(Runnable r) {
    return new ReliableSingleThread(r);
  }

  static public <A extends Component> A markVisualizer(Object visualizer, A a) {
    return setMetaSrc(a, visualizer);
  }

  static public String strOrNull(Object o) {
    return o == null ? null : str(o);
  }

  static public String str_toKB(long l) {
    return n2(toK(l)) + " KB";
  }

  static public String str_toKB(File f) {
    return str_toKB(fileSize(f));
  }

  static public JPanel jCenteredSection(Component c) {
    return jCenteredSection("", c);
  }

  static public JPanel jCenteredSection(String title, Swingable c) {
    return jCenteredSection(title, wrap(c));
  }

  static public JPanel jCenteredSection(String title, Component c) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel p = jSection(title, c);
          ((TitledBorder) p.getBorder()).setTitleJustification(TitledBorder.CENTER);
          return p;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel p = jSection(title, c);\r\n    ((TitledBorder) p.getBorder()).setTitleJu...";
      }
    });
  }

  static public JPanel jCenteredSection(String title) {
    return jCenteredSection(title, jpanel());
  }

  static public JCheckBox jCheckBox() {
    return swingNu(JCheckBox.class);
  }

  static public JCheckBox jCheckBox(boolean checked) {
    return swingNu(JCheckBox.class, "", checked);
  }

  static public JCheckBox jCheckBox(String text, boolean checked) {
    return swingNu(JCheckBox.class, text, checked);
  }

  static public JCheckBox jCheckBox(String text) {
    return swingNu(JCheckBox.class, text);
  }

  static public JCheckBox jCheckBox(String text, boolean checked, Object onChange) {
    JCheckBox cb = jCheckBox(text, checked);
    cb.setText(text);
    return cb;
  }

  static public JCheckBox jCheckBox(boolean checked, final Object onChange) {
    final JCheckBox cb = jCheckBox(checked);
    cb.addChangeListener(new ChangeListener() {

      public void stateChanged(ChangeEvent e) {
        pcallF(onChange, cb.isSelected());
      }
    });
    return cb;
  }

  static public JCheckBox jCheckBox(boolean checked, String text, IVF1<Boolean> onChangeAndNow) {
    var cb = jCheckBox(text, checked);
    onChangeAndNow(cb, new Runnable() {

      public void run() {
        try {
          onChangeAndNow.get(isChecked(cb));
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "onChangeAndNow.get(isChecked(cb));";
      }
    });
    return cb;
  }

  static public boolean isChecked(JCheckBox checkBox) {
    return checkBox != null && (boolean) swing(new F0<Boolean>() {

      public Boolean get() {
        try {
          return checkBox.isSelected();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return checkBox.isSelected();";
      }
    });
  }

  static public boolean isChecked(JCheckBoxMenuItem mi) {
    return mi != null && (boolean) swing(new F0<Boolean>() {

      public Boolean get() {
        try {
          return mi.isSelected();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return mi.isSelected();";
      }
    });
  }

  static public boolean isChecked(JRadioButton rb) {
    return rb != null && (boolean) swing(() -> rb.isSelected());
  }

  static public <A extends JComponent> A bindToComponent(A component, Runnable onShow, Runnable onUnShow) {
    {
      swing(() -> {
        final Var<Boolean> flag = new Var<>(false);
        component.addAncestorListener(new AncestorListener() {

          public void ancestorAdded(AncestorEvent event) {
            if (flag.get())
              print("Warning: bindToComponent logic failure");
            flag.set(true);
            pcallF(onShow);
          }

          public void ancestorRemoved(AncestorEvent event) {
            if (!flag.get())
              print("Warning: bindToComponent logic failure");
            flag.set(false);
            pcallF(onUnShow);
          }

          public void ancestorMoved(AncestorEvent event) {
          }
        });
        if (component.isShowing()) {
          flag.set(true);
          pcallF(onShow);
        }
      });
    }
    return component;
  }

  static public <A extends JComponent> A bindToComponent(A component, Runnable onShow) {
    return bindToComponent(component, onShow, null);
  }

  static public <A extends JComponent, B> A bindToComponent(A component, IF0<B> onShow, IVF1<B> onUnShow) {
    Var<B> b = new Var();
    return bindToComponent(component, () -> b.set(onShow.get()), () -> {
      try {
        onUnShow.get(b.get());
      } finally {
        b.set(null);
      }
    });
  }

  static public SingleComponentPanel scp() {
    return singleComponentPanel();
  }

  static public SingleComponentPanel scp(Component c) {
    return singleComponentPanel(c);
  }

  static public JSplitPane jvsplit(Swingable n, Swingable s) {
    return jvsplit(n, toComponent(s));
  }

  static public JSplitPane jvsplit(Swingable n, Component s) {
    return jvsplit(toComponent(n), s);
  }

  static public JSplitPane jvsplit(Component n, Swingable s) {
    return jvsplit(n, toComponent(s));
  }

  static public JSplitPane jvsplit(Component n, Component s) {
    return jvsplit(n, s, 0.5);
  }

  static public JSplitPane jvsplit(Swingable n, Swingable s, double splitPoint) {
    return jvsplit(n, toComponent(s), splitPoint);
  }

  static public JSplitPane jvsplit(Swingable n, Component s, double splitPoint) {
    return jvsplit(toComponent(n), s, splitPoint);
  }

  static public JSplitPane jvsplit(Component n, Swingable s, double splitPoint) {
    return jvsplit(n, toComponent(s), splitPoint);
  }

  static public JSplitPane jvsplit(Component n, Component s, double splitPoint) {
    return jvsplit(n, s, splitPoint, 0);
  }

  static public JSplitPane jvsplit(Swingable n, Swingable s, double splitPoint, int delay) {
    return jvsplit(n, toComponent(s), splitPoint, delay);
  }

  static public JSplitPane jvsplit(Swingable n, Component s, double splitPoint, int delay) {
    return jvsplit(toComponent(n), s, splitPoint, delay);
  }

  static public JSplitPane jvsplit(Component n, Swingable s, double splitPoint, int delay) {
    return jvsplit(n, toComponent(s), splitPoint, delay);
  }

  static public JSplitPane jvsplit(Component n, Component s, double splitPoint, int delay) {
    return setSplitPaneOnFirstShowing(swing(() -> new JSplitPane(JSplitPane.VERTICAL_SPLIT, wrap(n), wrap(s))), splitPoint, delay);
  }

  static public JSplitPane jvsplit(double splitPoint, Swingable n, Swingable s) {
    return jvsplit(splitPoint, n, toComponent(s));
  }

  static public JSplitPane jvsplit(double splitPoint, Swingable n, Component s) {
    return jvsplit(splitPoint, toComponent(n), s);
  }

  static public JSplitPane jvsplit(double splitPoint, Component n, Swingable s) {
    return jvsplit(splitPoint, n, toComponent(s));
  }

  static public JSplitPane jvsplit(double splitPoint, Component n, Component s) {
    return jvsplit(splitPoint, 0, n, s);
  }

  static public JSplitPane jvsplit(double splitPoint, int delay, Swingable n, Swingable s) {
    return jvsplit(splitPoint, delay, n, toComponent(s));
  }

  static public JSplitPane jvsplit(double splitPoint, int delay, Swingable n, Component s) {
    return jvsplit(splitPoint, delay, toComponent(n), s);
  }

  static public JSplitPane jvsplit(double splitPoint, int delay, Component n, Swingable s) {
    return jvsplit(splitPoint, delay, n, toComponent(s));
  }

  static public JSplitPane jvsplit(double splitPoint, int delay, Component n, Component s) {
    return jvsplit(n, s, splitPoint, delay);
  }

  static public <A extends JComponent> A bindChangeListenerToComponent(A component, IHasChangeListeners hcl, Runnable listener) {
    return bindHasChangeListenersToComponent(component, hcl, listener);
  }

  static public <A extends JComponent> A bindChangeListenerToComponent(IHasChangeListeners hcl, A component, Runnable listener) {
    return bindChangeListenerToComponent(component, hcl, listener);
  }

  static public String exceptionToStringShorter_dontDropOuterExceptions(Throwable e) {
    String msg = hideCredentials(unnull(e.getMessage()));
    String className = baseClassName(e);
    if (!eq(className, "RuntimeException") && (msg.indexOf("Error") < 0 && msg.indexOf("Exception") < 0))
      return className + prependIfNempty(": ", msg);
    else
      return msg;
  }

  static public <A> RunResultWithTimestamps<A> runResultWithTimestamps_dontPrintStackTrace(IF0<A> f) {
    return new RunResultWithTimestamps<A>().run(f, false);
  }

  static public LineAndColumn parseLineAndColumn(String s) {
    String re = "\\bLine (" + regexpN2() + "), col (" + regexpN2() + ")";
    List<String> l = regexpLastGroupsIC(re, s);
    return l == null ? null : new LineAndColumn(parseIntN2(first(l)), parseIntN2(second(l)));
  }

  static public void change() {
    callOpt(getOptMC("mainConcepts"), "allChanged");
  }

  static public Object load(String varName) {
    readLocally(varName);
    return get(mc(), varName);
  }

  static public Object load(String progID, String varName) {
    readLocally(progID, varName);
    return get(mc(), varName);
  }

  static public Class _run(String progID, String... args) {
    Class main = hotwire(progID);
    callMain(main, args);
    return main;
  }

  static public boolean interruptThread_verbose = false;

  static public void interruptThread(Thread t) {
    if (t == null)
      return;
    if (interruptThread_verbose)
      print("Interrupting thread " + t);
    vm_threadInterruptionReasonsMap().put(t, getStackTrace());
    t.interrupt();
    URLConnection c = (URLConnection) (vm_generalSubMap("URLConnection per thread").get(t));
    if (c != null) {
      try {
        print("Closing URLConnection of interrupted thread.");
        call(c, "disconnect");
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }
  }

  static public String aGlobalID() {
    return randomID(globalIDLength());
  }

  static public String aGlobalID(Random random) {
    return randomID(random, globalIDLength());
  }

  static public <A> boolean syncSetAdd(Collection<A> c, A a) {
    if (c == null)
      return false;
    synchronized (collectionMutex(c)) {
      if (c.contains(a))
        return false;
      c.add(a);
      return true;
    }
  }

  static public int syncL(Collection l) {
    if (l == null)
      return 0;
    synchronized (collectionMutex(l)) {
      return l.size();
    }
  }

  static public int syncL(Map map) {
    if (map == null)
      return 0;
    synchronized (collectionMutex(map)) {
      return map.size();
    }
  }

  static public <A> List<A> syncL() {
    return syncList();
  }

  static public JLabel setImage(final BufferedImage img, final JLabel lbl) {
    if (lbl != null) {
      swing(() -> {
        lbl.setIcon(imageIcon(img));
      });
    }
    return lbl;
  }

  static public JLabel setImage(JLabel lbl, BufferedImage img) {
    return setImage(img, lbl);
  }

  static public JLabel setImage(final String imageID, final JLabel lbl) {
    if (lbl != null) {
      swing(() -> {
        lbl.setIcon(imageIcon(imageID));
      });
    }
    return lbl;
  }

  static public JLabel setImage(JLabel lbl, String imageID) {
    return setImage(imageID, lbl);
  }

  static public <A extends ImageSurface> A setImage(A is, BufferedImage img) {
    {
      if (is != null)
        is.setImage(img);
    }
    return is;
  }

  static public <A extends Component> A onResize(A c, Runnable r) {
    if (c != null && r != null) {
      swing(() -> {
        c.addComponentListener(new ComponentAdapter() {

          public void componentResized(ComponentEvent e) {
            pcallF(r);
          }
        });
      });
    }
    return c;
  }

  static public <A extends Component> A onResize(Runnable r, A c) {
    return onResize(c, r);
  }

  static public void onEnclosingScrollPaneResize(JComponent c, Runnable r) {
    new OnEnclosingScrollPaneResize(c, r).install();
  }

  static public class OnEnclosingScrollPaneResize implements IFieldsToList {

    public JComponent c;

    public Runnable r;

    public OnEnclosingScrollPaneResize() {
    }

    public OnEnclosingScrollPaneResize(JComponent c, Runnable r) {
      this.r = r;
      this.c = c;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + c + ", " + r + ")";
    }

    public Object[] _fieldsToList() {
      return new Object[] { c, r };
    }

    final public OnEnclosingScrollPaneResize setDebug(boolean debug) {
      return debug(debug);
    }

    public OnEnclosingScrollPaneResize debug(boolean debug) {
      this.debug = debug;
      return this;
    }

    final public boolean getDebug() {
      return debug();
    }

    public boolean debug() {
      return debug;
    }

    public boolean debug = false;

    public ComponentAdapter listener;

    public JViewport viewport;

    public void install() {
      if (r == null)
        return;
      bindToComponent(c, () -> {
        viewport = optCast(JViewport.class, getParent(getParent(c)));
        if (viewport != null) {
          listener = new ComponentAdapter() {

            public void componentResized(ComponentEvent e) {
              if (debug)
                print("Viewport resized");
              pcallF(r);
            }
          };
          viewport.addComponentListener(listener);
          if (debug)
            print("OnEnclosingScrollPaneResize installed");
        }
      }, () -> {
        if (listener != null && viewport != null) {
          viewport.removeComponentListener(listener);
          if (debug)
            print("OnEnclosingScrollPaneResize removed");
        }
      });
    }
  }

  static public <A extends JComponent> void componentPopupMenu2(A component, final VF2<A, JPopupMenu> menuMaker) {
    final WeakReference<A> ref = new WeakReference<>(component);
    componentPopupMenu(component, new VF1<JPopupMenu>() {

      public void get(JPopupMenu menu) {
        try {
          callF(menuMaker, ref.get(), menu);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "callF(menuMaker, ref!, menu);";
      }
    });
  }

  static public <A extends JComponent> A jHandleFileDrop(A c, final Object onDrop) {
    new DropTarget(c, new DropTargetAdapter() {

      public void drop(DropTargetDropEvent e) {
        try {
          Transferable tr = e.getTransferable();
          DataFlavor[] flavors = tr.getTransferDataFlavors();
          for (DataFlavor flavor : flavors) {
            if (flavor.isFlavorJavaFileListType()) {
              e.acceptDrop(e.getDropAction());
              File file = first((List<File>) tr.getTransferData(flavor));
              if (file != null && !isFalse(callF(onDrop, file)))
                e.dropComplete(true);
              return;
            }
          }
        } catch (Throwable __e) {
          pcallFail(__e);
        }
        e.rejectDrop();
      }
    });
    return c;
  }

  static public <A extends JComponent> A jHandleFileDrop(IVF1<File> onDrop, A c) {
    return jHandleFileDrop((Object) onDrop, c);
  }

  static public <A extends JComponent> A jHandleFileDrop(Object onDrop, A c) {
    return jHandleFileDrop(c, onDrop);
  }

  static public boolean loadBufferedImage_useImageCache = true;

  static public BufferedImage loadBufferedImage(String snippetIDOrURLOrFile) {
    try {
      ping();
      if (snippetIDOrURLOrFile == null)
        return null;
      if (isURL(snippetIDOrURLOrFile))
        return imageIO_readURL(snippetIDOrURLOrFile);
      if (isSnippetID(snippetIDOrURLOrFile)) {
        String snippetID = "" + parseSnippetID(snippetIDOrURLOrFile);
        IResourceLoader rl = vm_getResourceLoader();
        if (rl != null)
          return loadBufferedImage(rl.loadLibrary(snippetID));
        File dir = imageSnippetsCacheDir();
        if (loadBufferedImage_useImageCache) {
          dir.mkdirs();
          File file = new File(dir, snippetID + ".png");
          if (file.exists() && file.length() != 0)
            try {
              return ImageIO.read(file);
            } catch (Throwable e) {
              e.printStackTrace();
            }
        }
        String imageURL = snippetImageURL_http(snippetID);
        print("Loading image: " + imageURL);
        BufferedImage image = imageIO_readURL(imageURL);
        if (loadBufferedImage_useImageCache) {
          File tempFile = new File(dir, snippetID + ".tmp." + System.currentTimeMillis());
          ImageIO.write(image, "png", tempFile);
          tempFile.renameTo(new File(dir, snippetID + ".png"));
        }
        return image;
      } else
        return loadBufferedImage(new File(snippetIDOrURLOrFile));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public BufferedImage loadBufferedImage(File file) {
    return loadBufferedImageFile(file);
  }

  static public void imageSurfaceOnHover(ImageSurface is, VF1<Pt> onHover) {
    if (is == null || onHover == null)
      return;
    {
      swing(() -> {
        MouseAdapter ma = new MouseAdapter() {

          public void mouseMoved(MouseEvent e) {
            pick(e);
          }

          public void mouseEntered(MouseEvent e) {
            pick(e);
          }

          public void mouseExited(MouseEvent e) {
            pick(null);
          }

          public void pick(MouseEvent e) {
            try {
              callF(onHover, e == null ? (Pt) null : is.pointFromEvent(e));
            } catch (Throwable __e) {
              pcallFail(__e);
            }
          }
        };
        is.addMouseMotionListener(ma);
        is.addMouseListener(ma);
      });
    }
  }

  static public void imageSurfaceOnHover(ImageSurface is, IVF1<Pt> onHover) {
    imageSurfaceOnHover(is, toVF1(onHover));
  }

  static public JCheckBoxMenuItem jMenuItemStayCheckedOnClick(String text, IF0<Boolean> checked, Runnable action) {
    var mi = swing(() -> new JCheckBoxMenuItem(text, isTrue(checked.get())));
    bindToComponent(mi, new Runnable() {

      public void run() {
        try {
          boolean b = isTrue(checked.get());
          setChecked(mi, b);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "boolean b = isTrue(checked!);\r\n    setChecked(mi, b);";
      }
    });
    addActionListener(mi, () -> {
      if (!isChecked(mi))
        setChecked(mi, true);
      callF(action);
    });
    return mi;
  }

  static public void addMenuItem(JPopupMenu menu, String text, Object action) {
    menu.add(jmenuItem(text, action));
  }

  static public void addMenuItem(JPopupMenu menu, JMenuItem menuItem) {
    if (menu != null && menuItem != null)
      menu.add(menuItem);
  }

  static public void addMenuItem(JMenu menu, String text, Object action) {
    menu.add(jmenuItem(text, action));
  }

  static public void addMenuItem(Menu menu, String text, Object action) {
    menu.add(menuItem(text, action));
  }

  static public void addMenuItem(JMenu menu, JMenuItem menuItem) {
    menu.add(menuItem);
  }

  static public void addMenuItem(JMenuBar menuBar, String text, Runnable action) {
    addMenuItem(menuBar, jmenuItem(text, action));
  }

  static public void addMenuItem(JMenuBar menuBar, JMenuItem menuItem) {
    addDirectMenuItem(menuBar, menuItem);
  }

  static public JFrame showFullScreen(JComponent c) {
    return showFullScreen(defaultFrameTitle(), c);
  }

  static public JFrame showFullScreen(final String title, final JComponent c) {
    return (JFrame) swingAndWait(new F0<Object>() {

      public Object get() {
        try {
          GraphicsDevice gd = GraphicsEnvironment.getLocalGraphicsEnvironment().getDefaultScreenDevice();
          if (!gd.isFullScreenSupported())
            throw fail("No full-screen mode supported!");
          boolean dec = JFrame.isDefaultLookAndFeelDecorated();
          if (dec)
            JFrame.setDefaultLookAndFeelDecorated(false);
          final JFrame window = new JFrame(title);
          window.setUndecorated(true);
          if (dec)
            JFrame.setDefaultLookAndFeelDecorated(true);
          registerEscape(window, new Runnable() {

            public void run() {
              try {
                disposeWindow(window);
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "disposeWindow(window)";
            }
          });
          window.add(wrap(c));
          gd.setFullScreenWindow(window);
          for (int i = 100; i <= 1000; i += 100) awtLater(i, new Runnable() {

            public void run() {
              try {
                window.toFront();
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "window.toFront()";
            }
          });
          return window;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "GraphicsDevice gd = GraphicsEnvironment.getLocalGraphicsEnvironment()\r\n      ...";
      }
    });
  }

  static public void selectFile(final String msg, VF1<File> action) {
    selectFile(msg, userDir(), action);
  }

  static public void selectFile(final String msg, final File defaultFile, VF1<File> action) {
    inputFilePath(msg, defaultFile, action);
  }

  static public void saveImage(File f, BufferedImage img) {
    if (hasJPEGExtension(f))
      saveJPG(f, img);
    else
      savePNG(f, img);
  }

  static public void saveImage(BufferedImage img, File f) {
    saveImage(f, img);
  }

  static public <A extends Image> A copyImageToClipboard(A img) {
    TransferableImage trans = new TransferableImage(img);
    Toolkit.getDefaultToolkit().getSystemClipboard().setContents(trans, null);
    vmBus_send("newClipboardContents", img);
    print("Copied image to clipboard (" + img.getWidth(null) + "*" + img.getHeight(null) + " px)");
    return img;
  }

  static public JComponent selectImageSnippet(VF1<String> onSelect) {
    return selectSnippetID_v1(onSelect);
  }

  static public JComponent selectImageSnippet(String defaultID, VF1<String> onSelect) {
    return selectSnippetID_v1(defaultID, onSelect);
  }

  static public BufferedImage cloneClipBufferedImage(BufferedImage src, Rectangle clip) {
    return cloneBufferedImage(clipBufferedImage(src, clip));
  }

  static public BufferedImage cloneClipBufferedImage(BufferedImage src, Rect r) {
    return cloneBufferedImage(clipBufferedImage(src, r));
  }

  static public BufferedImage cloneClipBufferedImage(BufferedImage src, int x, int y, int w, int h) {
    return cloneBufferedImage(clipBufferedImage(src, x, y, w, h));
  }

  static public List<BufferedImage> cloneClipBufferedImage(BufferedImage src, Iterable<Rect> rects) {
    return map(rects, r -> cloneClipBufferedImage(src, r));
  }

  static public BufferedImage getImageFromClipboard() {
    try {
      Transferable t = rawClipboardContents();
      if (t == null)
        return null;
      List<File> l = (List<File>) (getTransferData(t, DataFlavor.javaFileListFlavor));
      if (nempty(l))
        return loadImage2(first(l));
      if (t.isDataFlavorSupported(DataFlavor.imageFlavor))
        return (BufferedImage) t.getTransferData(DataFlavor.imageFlavor);
      return imageFromDataURL(getTextFromClipboard());
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public File getProgramDir() {
    return programDir();
  }

  static public File getProgramDir(String snippetID) {
    return programDir(snippetID);
  }

  static public void popup(final Throwable throwable) {
    popupError(throwable);
  }

  static public void popup(final String msg) {
    print(msg);
    SwingUtilities.invokeLater(new Runnable() {

      public void run() {
        JOptionPane.showMessageDialog(null, msg);
      }
    });
  }

  static public BufferedImage resizeImage(BufferedImage img, int newW, int newH) {
    return resizeImage(img, newW, newH, Image.SCALE_SMOOTH);
  }

  static public BufferedImage resizeImage(BufferedImage img, int newW, int newH, int scaleType) {
    if (newW == img.getWidth() && newH == img.getHeight())
      return img;
    Image tmp = img.getScaledInstance(newW, newH, scaleType);
    BufferedImage dimg = new BufferedImage(newW, newH, BufferedImage.TYPE_INT_ARGB);
    Graphics2D g2d = dimg.createGraphics();
    g2d.drawImage(tmp, 0, 0, null);
    g2d.dispose();
    return dimg;
  }

  static public BufferedImage resizeImage(BufferedImage img, int newW) {
    int newH = iround(img.getHeight() * (double) newW / img.getWidth());
    return resizeImage(img, newW, newH);
  }

  static public BufferedImage resizeImage(int newW, BufferedImage img) {
    return resizeImage(img, newW);
  }

  static public Color getBackground(final Component c) {
    return c == null ? null : swing(new F0<Color>() {

      public Color get() {
        try {
          return c.getBackground();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.getBackground();";
      }
    });
  }

  static public boolean hasTransparency(BufferedImage img) {
    return img.getColorModel().hasAlpha();
  }

  static public Graphics2D cloneGraphics(Graphics2D g) {
    return (Graphics2D) g.create();
  }

  static public <A extends Component> A repaint(A c) {
    if (c != null)
      c.repaint();
    return c;
  }

  static public Dimension getMinimumSize(final Component c) {
    return c == null ? null : swing(new F0<Dimension>() {

      public Dimension get() {
        try {
          return c.getMinimumSize();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.getMinimumSize();";
      }
    });
  }

  static public <A> A printIfScaffoldingEnabled(Object o, A a) {
    return printIfScaffoldingEnabled(o, "", a);
  }

  static public <A> A printIfScaffoldingEnabled(Object o, String s, A a) {
    return printIf(scaffoldingEnabled(o), s, a);
  }

  static public BoolVar componentShowingVar(JComponent component) {
    return swing(() -> {
      BoolVar flag = new BoolVar(component.isShowing());
      component.addAncestorListener(new AncestorListener() {

        public void ancestorAdded(AncestorEvent event) {
          if (flag.get())
            print("Warning: bindToComponent logic failure");
          flag.set(true);
        }

        public void ancestorRemoved(AncestorEvent event) {
          if (!flag.get())
            print("Warning: bindToComponent logic failure");
          flag.set(false);
        }

        public void ancestorMoved(AncestorEvent event) {
        }
      });
      return flag;
    });
  }

  static public WidthAndHeight imageSize(BufferedImage img) {
    return img == null ? null : widthAndHeight(img.getWidth(), img.getHeight());
  }

  static public WidthAndHeight imageSize(WidthAndHeight img) {
    return img == null ? null : widthAndHeight(img.getWidth(), img.getHeight());
  }

  static public boolean imagesHaveSameSize(BufferedImage a, BufferedImage b) {
    return a != null && b != null && a.getWidth() == b.getWidth() && a.getHeight() == b.getHeight();
  }

  static public Dimension getPreferredSize(final Component c) {
    return c == null ? null : swing(new F0<Dimension>() {

      public Dimension get() {
        try {
          return c.getPreferredSize();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.getPreferredSize();";
      }
    });
  }

  static public Container getParent(final Component c) {
    return c == null ? null : swing(new F0<Container>() {

      public Container get() {
        try {
          return c.getParent();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.getParent();";
      }
    });
  }

  static public Rectangle toRectangle(Rect r) {
    return r == null ? null : r.getRectangle();
  }

  static public JScrollPane enclosingScrollPane(Component c) {
    while (c.getParent() != null && !(c.getParent() instanceof JViewport) && c.getParent().getComponentCount() == 1) c = c.getParent();
    if (!(c.getParent() instanceof JViewport))
      return null;
    c = c.getParent().getParent();
    return c instanceof JScrollPane ? (JScrollPane) c : null;
  }

  static public void awtLater(int delay, final Object r) {
    swingLater(delay, r);
  }

  static public void awtLater(int delay, Runnable r) {
    swingLater(delay, r);
  }

  static public void awtLater(Object r) {
    swingLater(r);
  }

  static public void awtLater(double delaySeconds, Runnable r) {
    swingLater(toMS(delaySeconds), r);
  }

  static public void awtLater(JComponent component, int delay, Object r) {
    installTimer(component, r, delay, delay, false);
  }

  static public void awtLater(JFrame frame, int delay, Object r) {
    awtLater(frame.getRootPane(), delay, r);
  }

  static public ImageSurface showFullScreenImageSurface(BufferedImage img) {
    ImageSurface is = jImageSurface(img);
    showFullScreen(jscroll_centered(disposeFrameOnClick(is)));
    return is;
  }

  static public void closeAllAndClear(Collection<? extends AutoCloseable> l) {
    if (l == null)
      return;
    for (AutoCloseable c : cloneList(l)) {
      try {
        close(c);
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }
    l.clear();
  }

  static public void revalidateIncludingFullCenterContainer(Component c) {
    if (c == null)
      return;
    {
      swing(() -> {
        c.revalidate();
        var parent = c.getParent();
        if (parent != null && parent.getLayout() instanceof GridBagLayout) {
          parent.revalidate();
        }
      });
    }
  }

  static public JScrollPane jscroll_center_borderless(Component c) {
    return jscroll_centered_borderless(c);
  }

  static public void cMigrateField(Concept c, String oldField, String newField) {
    if (c == null)
      return;
    Object oldValue = cget(c, oldField);
    Object newValue = cget(c, newField);
    if (oldValue != null && newValue == null) {
      try {
        String name = shortDynName(c);
        print("Migrating " + name + "." + oldField + " -> " + name + "." + newField + " [id " + c.id + "]");
        cset(c, newField, oldValue);
        cset(c, oldField, null);
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }
  }

  static public String shortDynName(Object o) {
    return shortDynamicClassName(o);
  }

  static public String nLines(long n) {
    return n2(n, "line");
  }

  static public String nLines(Collection l) {
    return nLines(l(l));
  }

  static public String nLines(String s) {
    return nLines(countLines(s));
  }

  static public String nChars(long n) {
    return n2(n, "char");
  }

  static public String nChars(String s) {
    return nChars(l(s));
  }

  static public void appendToTextFile(File file, String s) {
    appendToFile(file, s);
  }

  static public void appendToTextFile(String file, String s) {
    appendToTextFile(programFile(file), s);
  }

  static public String dateWithMSUTC() {
    return dateWithMSUTC(now());
  }

  static public String dateWithMSUTC(long time) {
    var format = simpleDateFormat_UTC("yyyy/MM/dd");
    return format.format(time) + " " + formatUTCWithMS_24(time);
  }

  static public String firstToUpper(String s) {
    if (empty(s))
      return s;
    return Character.toUpperCase(s.charAt(0)) + s.substring(1);
  }

  static public String appendBracketed(Object o) {
    String b = strOrNull(o);
    return empty(b) ? "" : "" + " (" + b + ")";
  }

  static public String appendBracketed(String a, String b) {
    return a + appendBracketed(b);
  }

  static public String appendPrefixIfNempty(String prefix, String s) {
    return prependIfNempty(prefix, s);
  }

  static public <A, B> MultiSetMap<A, B> treeMultiSetMap() {
    return new MultiSetMap(true);
  }

  static public <A, B> MultiSetMap<A, B> treeMultiSetMap(Comparator<A> comparator) {
    return new MultiSetMap(new TreeMap<A, Set<B>>(comparator));
  }

  static public <A, B> B firstValue(Map<A, B> map) {
    return first(values(map));
  }

  static public <A, B> B firstValue(MultiSetMap<A, B> map) {
    return map == null ? null : first(firstValue(map.data));
  }

  static public <A, B> B firstValue(MultiMap<A, B> map) {
    return map == null ? null : first(firstValue(map.data));
  }

  static public <A, B> A firstKey(Map<A, B> map) {
    return first(keys(map));
  }

  static public <A, B> A firstKey(IMultiMap<A, B> map) {
    return map == null ? null : first(map.keySet());
  }

  static public boolean containsInstance(Iterable i, Class c) {
    if (i != null)
      for (Object o : i) if (isInstanceX(c, o))
        return true;
    return false;
  }

  static public void register(Concept c) {
    registerConcept(c);
  }

  static public <A> A lookupDynamicInterface_v2(Class<A> intrface, Object o) {
    Object implementation = metaGet(o, intrface);
    if (isInstance(intrface, implementation))
      return (A) implementation;
    if (isInstance(intrface, o))
      return (A) o;
    return null;
  }

  static public <A> A lookupDynamicInterface_v2(Object o, Class<A> intrface) {
    return lookupDynamicInterface_v2(intrface, o);
  }

  static public String intToHex_fullLength(int i) {
    return intToHex(i);
  }

  static public <A extends JComponent> A setToolTip(A c, Object toolTip) {
    return setToolTipText(c, toolTip);
  }

  static public <A extends JComponent> A setToolTip(Object toolTip, A c) {
    return setToolTipText(c, toolTip);
  }

  static public void setToolTip(TrayIcon trayIcon, String toolTip) {
    setTrayIconToolTip(trayIcon, toolTip);
  }

  static public Object invokeConstructor(Constructor m, Object... args) {
    try {
      makeAccessible(m);
      return m.newInstance(args);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Constructor findConstructor_precise_onTypes(Class c, Class... argTypes) {
    try {
      List<Constructor> ctors = constructorsWithNumberOfArguments(c, l(argTypes));
      Lowest<Constructor> best = new Lowest();
      if (ctors != null)
        for (Constructor ctor : ctors) {
          int score = methodApplicabilityScore_onTypes(ctor, argTypes);
          if (score < Integer.MAX_VALUE)
            best.put(ctor, score);
        }
      return best.get();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Method findNonStaticMethod_precise_onTypes(Object o, String method, Class... argTypes) {
    try {
      Class c = _getClass(o);
      if (c == null)
        return null;
      _MethodCache cache = callOpt_getCache(c);
      List<Method> methods = cache.cache.get(method);
      Lowest<Method> best = new Lowest();
      if (methods != null)
        for (Method m : methods) {
          {
            if (isStaticMethod(m))
              continue;
          }
          int score = methodApplicabilityScore_onTypes(m, argTypes);
          if (score < Integer.MAX_VALUE)
            best.put(m, score);
        }
      return best.get();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Method mostApplicableMethod_onTypes(Iterable<Method> methods, Class... argTypes) {
    Lowest<Method> best = new Lowest();
    if (methods != null)
      for (Method m : methods) {
        int score = methodApplicabilityScore_onTypes(m, argTypes);
        if (score < Integer.MAX_VALUE)
          best.put(m, score);
      }
    return best.get();
  }

  static public <A> List<A> filter(Iterable<A> c, Object pred) {
    if (pred instanceof F1)
      return filter(c, (F1<A, Boolean>) pred);
    List x = new ArrayList();
    if (c != null)
      for (Object o : c) if (isTrue(callF(pred, o)))
        x.add(o);
    return x;
  }

  static public List filter(Object pred, Iterable c) {
    return filter(c, pred);
  }

  static public <A, B extends A> List<B> filter(Iterable<B> c, F1<A, Boolean> pred) {
    List x = new ArrayList();
    if (c != null)
      for (B o : c) if (pred.get(o))
        x.add(o);
    return x;
  }

  static public <A, B extends A> List<B> filter(F1<A, Boolean> pred, Iterable<B> c) {
    return filter(c, pred);
  }

  static public <A, B extends A> List<B> filter(Iterable<B> c, IF1<A, Boolean> pred) {
    List x = new ArrayList();
    if (c != null)
      for (B o : c) if (pred.get(o))
        x.add(o);
    return x;
  }

  static public <A, B extends A> List<B> filter(B[] c, IF1<A, Boolean> pred) {
    List x = new ArrayList();
    if (c != null)
      for (B o : c) if (pred.get(o))
        x.add(o);
    return x;
  }

  static public <A, B extends A> List<B> filter(IF1<A, Boolean> pred, Iterable<B> c) {
    return filter(c, pred);
  }

  static public Map<Class, Method[]> nonDefaultInterfaceMethods_cache = newDangerousWeakHashMap();

  static public Method[] nonDefaultInterfaceMethods(Class c) {
    Method[] methods;
    synchronized (nonDefaultInterfaceMethods_cache) {
      methods = nonDefaultInterfaceMethods_cache.get(c);
      if (methods == null)
        nonDefaultInterfaceMethods_cache.put(c, methods = toTypedArray(Method.class, findNonDefaultInterfaceMethods(c)));
    }
    return methods;
  }

  static public Method findMethod_precise_onTypes(Object o, String method, Class... argTypes) {
    try {
      if (o instanceof Class) {
        _MethodCache cache = callOpt_getCache((Class) o);
        List<Method> methods = cache.cache.get(method);
        Lowest<Method> best = new Lowest();
        if (methods != null)
          for (Method m : methods) {
            {
              if (!(isStaticMethod(m)))
                continue;
            }
            int score = methodApplicabilityScore_onTypes(m, argTypes);
            if (score < Integer.MAX_VALUE)
              best.put(m, score);
          }
        return best.get();
      }
      if (o == null)
        return null;
      _MethodCache cache = callOpt_getCache(o.getClass());
      List<Method> methods = cache.cache.get(method);
      Lowest<Method> best = new Lowest();
      if (methods != null)
        for (Method m : methods) {
          int score = methodApplicabilityScore_onTypes(m, argTypes);
          if (score < Integer.MAX_VALUE)
            best.put(m, score);
        }
      return best.get();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A, B> MultiMap<A, B> descTreeMultiMap() {
    return new MultiMap(descTreeMap());
  }

  static public <A> A optPar(ThreadLocal<A> tl, A defaultValue) {
    A a = tl.get();
    if (a != null) {
      tl.set(null);
      return a;
    }
    return defaultValue;
  }

  static public <A> A optPar(ThreadLocal<A> tl) {
    return optPar(tl, null);
  }

  static public Object optPar(Object[] params, String name) {
    return optParam(params, name);
  }

  static public Object optPar(String name, Object[] params) {
    return optParam(params, name);
  }

  static public Object optPar(String name, Map params) {
    return optParam(name, params);
  }

  static public <A> A optPar(Object[] params, String name, A defaultValue) {
    return optParam(params, name, defaultValue);
  }

  static public <A> A optPar(String name, Object[] params, A defaultValue) {
    return optParam(params, name, defaultValue);
  }

  static public List<String> scoredSearch_prepare(String query) {
    return map(__85 -> replacePlusWithSpace(__85), splitAtSpace(query));
  }

  static public float score(Scored s) {
    return s == null ? 0 : s.score();
  }

  static public double scoredSearch_scoreWeighted2(Collection<Pair<String, Double>> l, List<String> words) {
    double score = 0;
    if (l != null)
      for (Pair<String, Double> __0 : l) {
        String s = pairA(__0);
        double weight = pairB(__0);
        score += scoredSearch_score(s, words) * weight;
      }
    return score;
  }

  static public int scoredSearch_score(Iterable<String> l, List<String> words) {
    int score = 0;
    if (l != null)
      for (String s : l) score += scoredSearch_score(s, words);
    return score;
  }

  static public int scoredSearch_score(String s, List<String> words) {
    int score = 0;
    if (nempty(s))
      for (String word : unnullForIteration(words)) score += scoredSearch_score_single(s, word);
    return score;
  }

  static public int scoredSearch_score(String s, String query) {
    return scoredSearch_score(s, scoredSearch_prepare(query));
  }

  static public <A, B> List<B> pairsB(Collection<Pair<A, B>> l) {
    return secondOfPairs(l);
  }

  static public <A, B> IterableIterator<Pair<A, B>> multiMapPairIterator(MultiMap<A, B> mm) {
    return nestedIterator(iterator(keys(mm.data)), key -> (IterableIterator<Pair<A, B>>) mapI(iterator(mm.data.get(key)), val -> pair(key, val)));
  }

  static public <A, B> IterableIterator<Pair<A, B>> multiMapPairIterator_transformValueList(MultiMap<A, B> mm, IF1<List<B>, List<B>> f) {
    return nestedIterator(iterator(keys(mm.data)), key -> (IterableIterator<Pair<A, B>>) mapI(iterator(f.get(mm.data.get(key))), val -> pair(key, val)));
  }

  static public void lock(Lock lock) {
    try {
      ping();
      if (lock == null)
        return;
      try {
        vmBus_send("locking", lock, "thread", currentThread());
        lock.lockInterruptibly();
        vmBus_send("locked", lock, "thread", currentThread());
      } catch (InterruptedException e) {
        Object reason = vm_threadInterruptionReasonsMap().get(currentThread());
        print("Locking interrupted! Reason: " + strOr(reason, "Unknown"));
        printStackTrace(e);
        rethrow(e);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void lock(Lock lock, String msg) {
    print("Locking: " + msg);
    lock(lock);
  }

  static public void lock(Lock lock, String msg, long timeout) {
    print("Locking: " + msg);
    lockOrFail(lock, timeout);
  }

  static public ReentrantLock lock() {
    return fairLock();
  }

  static public <A> Value<A> value(A a) {
    return new Value<A>(a);
  }

  static public String sanitizeFileName(String s) {
    return nohup_sanitize(s);
  }

  static public void unlock(Lock lock, String msg) {
    if (lock == null)
      return;
    lock.unlock();
    vmBus_send("unlocked", lock, "thread", currentThread());
    print("Unlocked: " + msg);
  }

  static public void unlock(Lock lock) {
    if (lock == null)
      return;
    lock.unlock();
    vmBus_send("unlocked", lock, "thread", currentThread());
  }

  static public Object unstructureGZFile(File f) {
    return unstructureGZFile(f, null);
  }

  static public Object unstructureGZFile(File f, IF1<String, Class> classFinder) {
    try {
      if (!fileExists(f))
        return null;
      BufferedReader reader = utf8BufferedReader(gzInputStream(f));
      try {
        return unstructure_tok(javaTokC_noMLS_onReader(reader), false, classFinder);
      } finally {
        _close(reader);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public long saveGZStructureToFile(String file, Object o) {
    return saveGZStructureToFile(getProgramFile(file), o);
  }

  static public long saveGZStructureToFile(File file, Object o) {
    return saveGZStructureToFile(file, o, new structure_Data());
  }

  static public long saveGZStructureToFile(File file, Object o, structure_Data data) {
    try {
      File parentFile = file.getParentFile();
      if (parentFile != null)
        parentFile.mkdirs();
      File tempFile = tempFileFor(file);
      if (tempFile.exists())
        try {
          String saveName = tempFile.getPath() + ".saved." + now();
          copyFile(tempFile, new File(saveName));
        } catch (Throwable e) {
          printStackTrace(e);
        }
      FileOutputStream fileOutputStream = newFileOutputStream(tempFile.getPath());
      CountingOutputStream cos;
      try {
        GZIPOutputStream gos = new GZIPOutputStream(fileOutputStream);
        cos = new CountingOutputStream(gos);
        OutputStreamWriter outputStreamWriter = new OutputStreamWriter(cos, "UTF-8");
        PrintWriter printWriter = new PrintWriter(outputStreamWriter);
        structureToPrintWriter(o, printWriter, data);
        printWriter.close();
        gos.close();
        fileOutputStream.close();
      } catch (Throwable e) {
        fileOutputStream.close();
        tempFile.delete();
        throw rethrow(e);
      }
      if (file.exists() && !file.delete())
        throw new IOException("Can't delete " + file.getPath());
      if (!tempFile.renameTo(file))
        throw new IOException("Can't rename " + tempFile + " to " + file);
      return cos.getFilePointer();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public boolean deleteFile(File file) {
    return file != null && file.delete();
  }

  static public boolean notNull(Object o) {
    return o != null;
  }

  static public <A, B> WeakIdentityHashMap<A, B> weakIdentityMap() {
    return weakIdentityHashMap();
  }

  static public ThreadLocal<Long> saveTiming_last = new ThreadLocal();

  static public void saveTiming(long ms) {
    print(ms + " ms");
    saveTiming_noPrint(ms);
  }

  static public void saveTiming_noPrint(long ms) {
    saveTiming_last.set(ms);
  }

  static public ThreadLocal<Long> saveTiming_tl() {
    return saveTiming_last;
  }

  static public Object time(Object f) {
    long time = sysNow();
    Object o = callF(f);
    done2_always(str(f), time);
    return o;
  }

  static public <A> A time(F0<A> f) {
    return (A) time((Object) f);
  }

  static public <A> A time(IF0<A> f) {
    return (A) time((Object) f);
  }

  static public <A> A time(String msg, IF0<A> f) {
    long time = sysNow();
    A o = f.get();
    done2_always(msg, time);
    return o;
  }

  static public void time(Runnable f) {
    time(str(f), f);
  }

  static public void time(String msg, Runnable f) {
    time(msg, runnableToIF0(f));
  }

  static public DynamicObject dO(String className, Object... x) {
    return dynamicObject(className, x);
  }

  static public <A, B> B syncMapGetOrCreate(Map<A, B> map, A key, Class<? extends B> c) {
    return syncGetOrCreate(map, key, c);
  }

  static public <A, B> B syncMapGetOrCreate(Map<A, B> map, A key, Object f) {
    return syncGetOrCreate(map, key, f);
  }

  static public <A, B> B syncMapGetOrCreate(Class<? extends B> c, Map<A, B> map, A key) {
    return syncGetOrCreate(c, map, key);
  }

  static public <A, B> B syncMapGetOrCreate(Map<A, B> map, A key, IF0<B> f) {
    return syncGetOrCreate(map, key, f);
  }

  static public BufferedImage render(WidthAndHeight size, G2Drawable drawable) {
    return drawableToImage(size, drawable);
  }

  static public List<String> ciSorted(Collection<String> c) {
    return sortedIgnoreCase(c);
  }

  static public double nsToMicroseconds(double ns) {
    return nanosToMicroseconds(ns);
  }

  static public String microSymbol() {
    return "\u00B5";
  }

  static public <A> OKOrError<A> okOrError(IF0<A> f) {
    return okOrError(f, true);
  }

  static public <A> OKOrError<A> okOrError(IF0<A> f, boolean printStackTrace) {
    try {
      return OKOrError_ok(f.get());
    } catch (Throwable e) {
      if (printStackTrace)
        printStackTrace(e);
      return OKOrError_error(e);
    }
  }

  static public <A> OKOrError<A> okOrError(Runnable r) {
    return okOrError(runnableToIF0(r));
  }

  static public <A> List<A> nullPlus(Collection<A> l) {
    return itemPlusList(null, l);
  }

  static public <A> void setComboBoxItems_notifyListeners(JComboBox<A> cb, Collection<A> items) {
    if (cb != null) {
      swing(() -> {
        if (eq(getComboBoxItems(cb), items))
          return;
        var sel = getSelectedItem_typed(cb);
        setComboBoxItems(cb, items);
        var item = getSelectedItem_typed(cb);
        if (!eq(sel, item)) {
          if (sel != null && contains(items, sel))
            setSelectedItem(cb, sel);
          else {
            setSelectedItem(cb, (A) null);
            setSelectedItem(cb, item);
          }
        }
      });
    }
  }

  static public <A extends Concept> List<A> sortConceptsByID(Collection<A> l) {
    return sortedByCalculatedField(l, c -> c.id);
  }

  static public <A> A getSelectedItem_typed(JList<A> l) {
    return swing(() -> l.getSelectedValue());
  }

  static public <A> A getSelectedItem_typed(JComboBox<A> cb) {
    return swing(() -> (A) cb.getSelectedItem());
  }

  static public <A> JComboBox<A> setSelectedItem(A item, JComboBox<A> cb) {
    return selectItem(item, cb);
  }

  static public <A> JComboBox<A> setSelectedItem(JComboBox<A> cb, A item) {
    return selectItem(cb, item);
  }

  static public <A> JList<A> setSelectedItem(JList<A> list, A item) {
    return selectItem(list, item);
  }

  static public String joinNempties(String sep, Object... strings) {
    return joinStrings(sep, strings);
  }

  static public String joinNempties(String sep, Iterable strings) {
    return joinStrings(sep, strings);
  }

  static public Map<String, String> parseColonPropertyCIMap(String text) {
    return parseColonProperties(text, ciMap());
  }

  static public <A, B> String formatColonProperties(Map<A, B> map) {
    return mapToLines(__86 -> joinPairWithColon(__86), mapToPairs(map));
  }

  static public <A, B> String formatColonProperties(List<Pair<A, B>> l) {
    return mapToLines(__87 -> joinPairWithColon(__87), l);
  }

  static public <A, B> String formatColonProperties(Object... params) {
    return formatColonProperties(paramsToPairs(params));
  }

  static public Class run(String progID, String... args) {
    Class main = hotwire(progID);
    callMain(main, args);
    return main;
  }

  static public <A> List<A> sortByCalculatedFieldAlphaNumIC(Iterable<A> c, IF1<A, String> f) {
    List<A> l = cloneList(c);
    sort(l, (a, b) -> cmpAlphanumIC(f.get(a), f.get(b)));
    return l;
  }

  static public AutoCloseable tempAddGlobalCtrlKeyListener(IVF1<Boolean> onStatusChanged) {
    AWTEventListener l = new AWTEventListener() {

      public Boolean status;

      public void eventDispatched(AWTEvent evt) {
        if (evt instanceof InputEvent) {
          Boolean b = ((InputEvent) evt).isControlDown();
          if (!eq(b, status))
            pcallF_typed(onStatusChanged, status = b);
        }
      }
    };
    Toolkit.getDefaultToolkit().addAWTEventListener(l, AWTEvent.KEY_EVENT_MASK | AWTEvent.MOUSE_EVENT_MASK | AWTEvent.MOUSE_MOTION_EVENT_MASK);
    return () -> Toolkit.getDefaultToolkit().removeAWTEventListener(l);
  }

  static public JProgressBar jProgressBarWithText() {
    return swing(() -> {
      JProgressBar bar = new JProgressBar();
      bar.setStringPainted(true);
      return bar;
    });
  }

  static public JProgressBar jProgressBarWithText(int maxValue) {
    JProgressBar bar = jProgressBarWithText();
    {
      swing(() -> {
        bar.setMaximum(maxValue);
      });
    }
    return bar;
  }

  static public JProgressBar jProgressBarWithText(int maxValue, String text) {
    var bar = jProgressBarWithText(maxValue);
    {
      swing(() -> {
        bar.setString(text);
      });
    }
    return bar;
  }

  static public JProgressBar jProgressBarWithText(String text) {
    var bar = jProgressBarWithText();
    {
      swing(() -> {
        bar.setString(text);
      });
    }
    return bar;
  }

  static public int withTopMargin_defaultWidth = 6;

  static public JPanel withTopMargin(Component c) {
    return withTopMargin(withTopMargin_defaultWidth, c);
  }

  static public JPanel withTopMargin(final int w, final Component c) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel p = new JPanel(new BorderLayout());
          p.setBorder(BorderFactory.createEmptyBorder(w, 0, 0, 0));
          p.add(c);
          return p;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel p = new JPanel(new BorderLayout);\r\n    p.setBorder(BorderFactory.creat...";
      }
    });
  }

  static public JButton disableButton(final JButton b) {
    if (b != null) {
      swing(() -> {
        b.setEnabled(false);
      });
    }
    return b;
  }

  static public void disableButton() {
    disableButton(heldInstance(JButton.class));
  }

  static public JButton heldButton() {
    return heldInstance(JButton.class);
  }

  static public int done_minPrint = 10;

  static public long done(long startTime, String desc) {
    long time = now() - startTime;
    if (time >= done_minPrint)
      print(desc + " [" + time + " ms]");
    return time;
  }

  static public long done(String desc, long startTime) {
    return done(startTime, desc);
  }

  static public long done(long startTime) {
    return done(startTime, "");
  }

  static public void setProgressBarValue(JProgressBar bar, int value) {
    swingCall(bar, "setValue", value);
  }

  static public void setProgressBarValue(JProgressBar bar, int value, int total) {
    setProgressBarTotal(bar, total);
    setProgressBarValue(bar, value);
  }

  static public void setProgressBarText(JProgressBar bar, String text) {
    swingCall(bar, "setString", text);
  }

  static public <A extends JComponent> A setEnabled(A c, boolean enable) {
    if (c != null) {
      swing(() -> {
        c.setEnabled(enable);
      });
    }
    return c;
  }

  static public <A extends JComponent> A setEnabled(boolean enable, A c) {
    return setEnabled(c, enable);
  }

  static public void setEnabled(boolean enable, JComponent... l) {
    for (var c : unnullForIteration(l)) setEnabled(c, enable);
  }

  static public String formatDouble1(double d) {
    return formatDouble(d, 1);
  }

  static public <A> A waitForVarPredicate(Var<A> v, IF0<Boolean> pred) {
    try {
      synchronized (v) {
        while (!pred.get()) v.wait();
        return v.get();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public SimpleLiveValue<String> stringLiveValue() {
    return new SimpleLiveValue(String.class);
  }

  static public SimpleLiveValue<String> stringLiveValue(String value) {
    return new SimpleLiveValue(String.class, value);
  }

  static public String getText(final AbstractButton c) {
    return c == null ? "" : (String) swingAndWait(new F0<Object>() {

      public Object get() {
        try {
          return c.getText();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.getText();";
      }
    });
  }

  static public String getText(final JTextComponent c) {
    return c == null ? "" : (String) swingAndWait(new F0<Object>() {

      public Object get() {
        try {
          return c.getText();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.getText();";
      }
    });
  }

  static public String getText(final JLabel l) {
    return l == null ? "" : (String) swingAndWait(new F0<Object>() {

      public Object get() {
        try {
          return l.getText();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return l.getText();";
      }
    });
  }

  static public String getText(final JComboBox cb) {
    if (cb == null)
      return null;
    if (isEditableComboBox(cb))
      return unnull((String) cb.getEditor().getItem());
    else
      return strOrNull(cb.getSelectedItem());
  }

  static public int getCaretPosition(final JTextComponent c) {
    return c == null ? 0 : swing(new F0<Integer>() {

      public Integer get() {
        try {
          return c.getCaretPosition();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.getCaretPosition();";
      }
    });
  }

  static public void moveCaretAndScroll(JTextArea ta, LineAndColumn lac) {
    swing(() -> {
      moveCaretToLineAndCol(ta, lac);
      scrollTextAreaToLineAndCol(ta, lac);
    });
  }

  static public <A extends JComponent> A focus(final A a) {
    if (a != null)
      swingLater(new Runnable() {

        public void run() {
          try {
            a.requestFocus();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "a.requestFocus();";
        }
      });
    return a;
  }

  static public <A extends JComponent> A onLeftClick(final A c, final Object runnable) {
    {
      swing(() -> {
        c.addMouseListener(leftClickMouseAdapter(runnable));
      });
    }
    return c;
  }

  static public TrayIcon onLeftClick(final TrayIcon c, final Object runnable) {
    {
      swing(() -> {
        c.addMouseListener(leftClickMouseAdapter_noPt(runnable));
      });
    }
    return c;
  }

  static public <A extends JComponent> A onLeftClick(final Object runnable, A c) {
    return onLeftClick(c, runnable);
  }

  static public <A extends JComponent> A onLeftClick(Runnable runnable, A c) {
    return onLeftClick((Object) runnable, c);
  }

  static public <A extends JComponent> A onLeftClick(A c, Runnable r) {
    return onLeftClick(r, c);
  }

  static public <A extends JComponent> A onLeftClick(A c, IVF1<Pt> r) {
    return onLeftClick(c, (Object) r);
  }

  static public void addMenuItems(JMenu m, Object... x) {
    fillJMenu(m, x);
  }

  static public void addMenuItems(JPopupMenu m, Object... x) {
    fillJPopupMenu(m, x);
  }

  static public Runnable runnableThread(final Runnable r) {
    return new Runnable() {

      public void run() {
        try {
          startThread(r);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "startThread(r)";
      }
    };
  }

  static public JTextArea showTextWordWrapped(final String title, final String text) {
    return showWrappedText(title, text);
  }

  static public JTextArea showTextWordWrapped(Object text) {
    return showWrappedText(text);
  }

  static public JScrollPane jBorderlessHigherScrollPane(JComponent c) {
    return borderlessScrollPane(jHigherScrollPane(c));
  }

  static public JPanel jfullcenter(Component c) {
    return jFullCenter(c);
  }

  static public <A extends JTextComponent> A bindTextComponentToVarWithNotify_noInitialUndo(A tc, IVarWithNotify<String> lv) {
    onFirstShow(tc, () -> clearTextComponentUndoList(tc));
    return bindTextComponentToVarWithNotify(tc, lv);
  }

  static public void addKeyListener(final Component c, final KeyListener l) {
    if (c != null) {
      swing(() -> {
        c.addKeyListener(l);
      });
    }
  }

  static public KeyListener functionKeyListener(int functionKeyNr, Runnable action) {
    return new KeyAdapter() {

      public void keyReleased(KeyEvent ke) {
        if (ke.getKeyCode() == KeyEvent.VK_F1 + functionKeyNr - 1 && ke.getModifiers() == 0) {
          pcallF(action);
        }
      }
    };
  }

  static public KeyListener ctrlLetterKeyListener(char letter, Runnable action) {
    return new KeyAdapter() {

      public void keyReleased(KeyEvent ke) {
        if (ke.getKeyCode() == charToKeyCode(letter) && ke.getModifiers() == KeyEvent.CTRL_MASK) {
          pcallF(action);
        }
      }
    };
  }

  static public SingleThread awtCalcEvery(JFrame f, int delay, int firstDelay, final Object runnable) {
    return awtCalcRegularly(f, delay, firstDelay, runnable);
  }

  static public SingleThread awtCalcEvery(JComponent c, int delay, int firstDelay, final Object runnable) {
    return awtCalcRegularly(c, delay, firstDelay, runnable);
  }

  static public SingleThread awtCalcEvery(JFrame f, int delay, final Object runnable) {
    return awtCalcRegularly(f, delay, delay, runnable);
  }

  static public SingleThread awtCalcEvery(int delay, JComponent c, Runnable runnable) {
    return awtCalcRegularly(c, delay, delay, runnable);
  }

  static public SingleThread awtCalcEvery(JComponent c, int delay, Runnable runnable) {
    return awtCalcRegularly(c, delay, delay, runnable);
  }

  static public SingleThread awtCalcEvery(JComponent c, int delay, final Object runnable) {
    return awtCalcRegularly(c, delay, delay, runnable);
  }

  static public SingleThread awtCalcEvery(JComponent c, double delay, Runnable runnable) {
    return awtCalcEvery(c, delay, (Object) runnable);
  }

  static public SingleThread awtCalcEvery(JComponent c, double delay, Object runnable) {
    return awtCalcEvery(c, toMS_int(delay), runnable);
  }

  static public SingleThread awtCalcEvery(JComponent c, double firstDelay, double delay, final Object runnable) {
    return awtCalcEvery(c, toMS_int(delay), toMS_int(firstDelay), runnable);
  }

  static public AutoCompletion installCompletionProvider(DefaultCompletionProvider completionProvider, RSyntaxTextArea textArea) {
    return swing(() -> {
      if (completionProvider == null || textArea == null)
        return null;
      var autoComplete = new AutoCompletion(completionProvider);
      autoComplete.setAutoCompleteSingleChoices(false);
      autoComplete.install(textArea);
      return autoComplete;
    });
  }

  static public <A extends JComponent> A toolTip(A c, final Object toolTip) {
    return setToolTipText(c, toolTip);
  }

  static public <A extends JComponent> A toolTip(Object toolTip, A c) {
    return setToolTipText(toolTip, c);
  }

  static public JButton jbutton(String text, Runnable action) {
    return newButton(text, action);
  }

  static public JButton jbutton(String text, Object action) {
    return newButton(text, action);
  }

  static public JButton jbutton(String text) {
    return newButton(text, null);
  }

  static public JButton jbutton(Action action) {
    return swingNu(JButton.class, action);
  }

  static public JPanel withTopAndLeftMargin(Component c) {
    return withTopAndLeftMargin(defaultMargin(), c);
  }

  static public JPanel withTopAndLeftMargin(int w, Component c) {
    return swing(() -> {
      JPanel p = marginPanel();
      p.setBorder(BorderFactory.createEmptyBorder(w, w, 0, 0));
      p.add(c);
      return p;
    });
  }

  static public <A> RunResultWithTimestamps<A> runResultWithTimestamps(IF0<A> f) {
    return new RunResultWithTimestamps<A>().run(f);
  }

  static public String exceptionToStringShorter(Throwable e) {
    e = getInnerException(e);
    return exceptionToStringShorter_dontDropOuterExceptions(e);
  }

  static public JTextArea showText(final String title, Object text) {
    return showText(null, title, text);
  }

  static public JTextArea showText(JTextArea ta, final String title, Object text) {
    final String _text = str(text);
    if (ta != null)
      return activateFrameAndReturnComponent(setFrameTitle(title, setText(ta, _text)));
    return swing(new F0<JTextArea>() {

      public JTextArea get() {
        try {
          JTextArea textArea = newTypeWriterTextArea(_text);
          makeFrame(title, new JScrollPane(textArea));
          return textArea;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JTextArea textArea = newTypeWriterTextArea(_text);\r\n    makeFrame(title, new ...";
      }
    });
  }

  static public JTextArea showText(Object text) {
    return showText(str(text));
  }

  static public JTextArea showText(String text) {
    return showText(autoFrameTitle(), text);
  }

  static public JTextArea showText() {
    return showText("");
  }

  static public <A> String pnlToString(String prefix, Iterable<A> l) {
    return hijackPrint(new Runnable() {

      public void run() {
        try {
          pnl(prefix, l);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "pnl(prefix, l)";
      }
    });
  }

  static public <A> String pnlToString(final Iterable<A> l) {
    return hijackPrint(new Runnable() {

      public void run() {
        try {
          pnl(l);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "pnl(l)";
      }
    });
  }

  static public <A> String pnlToString(final A[] l) {
    return hijackPrint(new Runnable() {

      public void run() {
        try {
          pnl(l);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "pnl(l)";
      }
    });
  }

  static public <A, B> String pnlToString(final Map<A, B> map) {
    return hijackPrint(new Runnable() {

      public void run() {
        try {
          pnl(map);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "pnl(map)";
      }
    });
  }

  static public <A, B> String pnlToString(MultiMap<A, B> map) {
    return pnlToString(multiMapToMap(map));
  }

  static public <B> TreeMap<String, B> toCIMap(Map<String, B> map) {
    return asCIMap(map);
  }

  static public <A extends JTextComponent> A setEditable(A a, boolean b) {
    if (a != null) {
      swing(() -> {
        a.setEditable(b);
      });
    }
    return a;
  }

  static public Pair<String, Integer> textAndCaretPosition(final JTextComponent tc) {
    return swing(new F0<Pair<String, Integer>>() {

      public Pair<String, Integer> get() {
        try {
          return pair(getText(tc), getCaretPosition(tc));
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return pair(getText(tc), getCaretPosition(tc));";
      }
    });
  }

  static public List<String> lasTok(String s) {
    return javaTok(s);
  }

  static public List<String> lasTok(List<String> tok) {
    return javaTok(tok);
  }

  static public int charToTokenIndex_left(List<String> tok, int charIndex) {
    int i = 0, idx = 0;
    while (i < l(tok) && idx + l(tok.get(i)) <= charIndex) {
      idx += l(tok.get(i));
      i++;
    }
    return i;
  }

  static public boolean flatInfoBox_alwaysOnTop = true;

  static public double flatInfoBox_defaultTime = 2.0;

  static public int flatInfoBox_x = 28, flatInfoBox_y = 5;

  static public JWindow flatInfoBox(String text) {
    return flatInfoBox(text, flatInfoBox_defaultTime);
  }

  static public JWindow flatInfoBox(final String text, final double seconds) {
    if (empty(text))
      return null;
    print(text);
    return flatInfoBox_noprint(text, seconds);
  }

  static public JWindow flatInfoBox_noprint(String text) {
    return flatInfoBox_noprint(text, flatInfoBox_defaultTime);
  }

  static public JWindow flatInfoBox_noprint(final String text, final double seconds) {
    if (empty(text))
      return null;
    logQuotedWithDate(infoBoxesLogFile(), text);
    if (isHeadless())
      return null;
    return (JWindow) swingAndWait(new F0<Object>() {

      public Object get() {
        try {
          final JWindow window = makeUnimportantWindow(flatInfoBox_makePanel(text));
          window.pack();
          window.setBounds(flatInfoBox_x, flatInfoBox_y, 300, window.getHeight());
          if (flatInfoBox_alwaysOnTop)
            window.setAlwaysOnTop(true);
          window.setVisible(true);
          disposeWindowAfter(iround(seconds * 1000), window);
          return window;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "final JWindow window = makeUnimportantWindow(flatInfoBox_makePanel(text));\r\n ...";
      }
    });
  }

  static public JWindow flatInfoBox(Throwable e) {
    showConsole();
    printStackTrace(e);
    return flatInfoBox(exceptionToStringShort(e));
  }

  static public String lastIdentifier(List<String> l) {
    for (int i = l(l) - 1; i >= 0; i--) {
      String t = l.get(i);
      if (isIdentifier(t))
        return t;
    }
    return null;
  }

  static public String lookupStandardFunctionOrClassNameIC(String name) {
    if (isStandardFunction(name) || isStandardClass(name))
      return name;
    {
      var __1 = resolveKeyIC(stdFunctions_cached(), name);
      if (__1 != null)
        return __1;
    }
    return resolveKeyIC(stdClasses_cached(), name);
  }

  static public String sfOrSCSnippet(String name) {
    {
      var __1 = sfSnippet(name);
      if (__1 != null)
        return __1;
    }
    return scSnippet(name);
  }

  static public String snippetURL(String id) {
    return snippetLink(id);
  }

  static public boolean isShowing(Component c) {
    return isComponentShowing(c);
  }

  static public long nanos() {
    return nanoTime();
  }

  static public String shortClassName2(Object o) {
    if (o == null)
      return null;
    Class c = o.getClass();
    String name = c.getName();
    return shortenClassName(name);
  }

  static public String n2OrStrOrNull(Object o) {
    if (o == null)
      return null;
    if (o instanceof Number)
      return n2(((Number) o).longValue());
    return str(o);
  }

  static public String formatElapsedTimeWithAppropriateUnit(double seconds) {
    if (seconds >= 1)
      return formatDouble(seconds, 3) + " s";
    double ms = seconds * 1000;
    if (ms >= 1)
      return formatDouble(ms, 3) + " ms";
    double us = ms * 1000;
    if (us >= 1)
      return formatDouble(us, 3) + " µs";
    double ns = us * 1000;
    return formatDouble(ns, 3) + " ns";
  }

  static public double nanosToSeconds(double nanos) {
    return nanoSecondsToSeconds(nanos);
  }

  static public String joinNemptiesWithComma(Object... strings) {
    return joinNempties(", ", strings);
  }

  static public String joinNemptiesWithComma(Iterable strings) {
    return joinNempties(", ", strings);
  }

  static public JComponent withLabel(String label, JComponent component) {
    return westAndCenter(jlabel(label + " "), component);
  }

  static public JComponent withLabel(JComponent label, JComponent component) {
    return westAndCenterWithMargin(label, component);
  }

  static public JLabel jlabel(final String text) {
    return swingConstruct(BetterLabel.class, text);
  }

  static public JLabel jlabel() {
    return jlabel(" ");
  }

  static public JPanel jpanel(LayoutManager layout, Object... components) {
    return jpanel(layout, asList(components));
  }

  static public JPanel jpanel(LayoutManager layout, List components) {
    return smartAdd(jpanel(layout), components);
  }

  static public JPanel jpanel(LayoutManager layout) {
    return swing(() -> new JPanel(layout));
  }

  static public JPanel jpanel() {
    return swing(() -> new JPanel());
  }

  static public JPanel westAndCenterWithMargin(Component w, Component c) {
    return westAndCenter(withRightMargin(w), c);
  }

  static public JPanel westAndCenterWithMargin(int margin, Component w, Component c) {
    return westAndCenter(withRightMargin(margin, w), c);
  }

  static public JPanel northAndCenterWithMargins(Swingable n, Swingable c) {
    return northAndCenterWithMargins(n, toComponent(c));
  }

  static public JPanel northAndCenterWithMargins(Swingable n, Component c) {
    return northAndCenterWithMargins(toComponent(n), c);
  }

  static public JPanel northAndCenterWithMargins(Component n, Swingable c) {
    return northAndCenterWithMargins(n, toComponent(c));
  }

  static public JPanel northAndCenterWithMargins(Component n, Component c) {
    return applyDefaultMargin(northAndCenter(withBottomMargin(n), c));
  }

  static public JPanel northAndCenterWithMargins(int margin, Swingable n, Swingable c) {
    return northAndCenterWithMargins(margin, n, toComponent(c));
  }

  static public JPanel northAndCenterWithMargins(int margin, Swingable n, Component c) {
    return northAndCenterWithMargins(margin, toComponent(n), c);
  }

  static public JPanel northAndCenterWithMargins(int margin, Component n, Swingable c) {
    return northAndCenterWithMargins(margin, n, toComponent(c));
  }

  static public JPanel northAndCenterWithMargins(int margin, Component n, Component c) {
    return applyMargin(margin, northAndCenter(withBottomMargin(margin, n), c));
  }

  static public <A extends JComponent> A fontSizePlus(final int delta, final A c) {
    if (c != null) {
      swing(() -> {
        Font font = c.getFont();
        c.setFont(font.deriveFont(font.getSize2D() + delta));
      });
    }
    return c;
  }

  static public long toLong(Object o) {
    if (o instanceof Number)
      return ((Number) o).longValue();
    if (o instanceof String)
      return parseLong((String) o);
    return 0;
  }

  static public long toLong(Timestamp ts) {
    return ts == null ? 0 : ts.unixDate();
  }

  static public long toLong(Date d) {
    return d == null ? 0 : d.getTime();
  }

  static public <A> List<A> pairToList(Pair<A, A> p) {
    return p == null ? null : ll(p.a, p.b);
  }

  static public <A> List<A> tripleToList(T3<A, A, A> t) {
    return t == null ? null : ll(t.a, t.b, t.c);
  }

  static public JComponent jverticalCenter(Component c) {
    return jVerticalCenter(c);
  }

  static public <A, B> List<Pair<A, List<B>>> multiMapToMapPairs(MultiMap<A, B> mm) {
    List<Pair<A, List<B>>> out = new ArrayList();
    for (A key : keys(mm)) out.add(pair(key, mm.get(key)));
    return out;
  }

  static public <A, B> List<Pair<A, Collection<B>>> multiMapToMapPairs(IMultiMap<A, B> mm) {
    List<Pair<A, Collection<B>>> out = new ArrayList();
    for (A key : keys(mm)) out.add(pair(key, mm.get(key)));
    return out;
  }

  static public <A, B> List<Pair<A, Set<B>>> multiSetMapToMapPairs(MultiSetMap<A, B> mm) {
    List<Pair<A, Set<B>>> out = new ArrayList();
    for (A key : keys(mm)) out.add(pair(key, mm.get(key)));
    return out;
  }

  static public <A, B> List<Pair<A, B>> mapToPairs(Map<A, B> map) {
    List<Pair<A, B>> l = emptyList(l(map));
    if (map != null)
      for (Map.Entry<A, B> e : map.entrySet()) l.add(pair(e.getKey(), e.getValue()));
    return l;
  }

  static public <A> List<A> cloneTakeFirst(Collection<A> l, int n) {
    n = min(n, l(l));
    List<A> out = emptyList(n);
    if (n != 0)
      for (A a : l) {
        out.add(a);
        if (l(out) >= n)
          break;
      }
    return out;
  }

  static public <A> List<A> cloneTakeFirst(int n, Collection<A> l) {
    return cloneTakeFirst(l, n);
  }

  static public <A> List<A> cloneTakeFirst(List<A> l, int n) {
    return l(l) <= n ? l : cloneSubList(l, 0, n);
  }

  static public <A> List<A> cloneTakeFirst(int n, List<A> l) {
    return cloneTakeFirst(l, n);
  }

  static public JPanel jcenteredline(final Component... components) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          return jFullCenter(hstackWithSpacing(components));
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return jFullCenter(hstackWithSpacing(components));";
      }
    });
  }

  static public JPanel jcenteredline(List<? extends Component> components) {
    return jcenteredline(asArray(Component.class, components));
  }

  static public List listCombine(Object... l) {
    return flattenToList(l);
  }

  static public <A> List<A> intersperseF(IF0<A> a, Iterable<A> l) {
    List<A> out = new ArrayList();
    for (A x : unnullForIteration(l)) {
      if (!empty(out))
        out.add(a.get());
      out.add(x);
    }
    return out;
  }

  static public JScrollPane jscroll_borderless(Component c) {
    return borderlessScrollPane(jscroll(c));
  }

  static public JTextArea wordWrapTypeWriterTextArea() {
    return wrappedTextArea(newTypeWriterTextArea());
  }

  static public JTextArea wordWrapTypeWriterTextArea(String text) {
    return wrappedTextArea(newTypeWriterTextArea(text));
  }

  static public JComponent jText(Object o) {
    return wrap(uneditableWordWrappedTextArea(strOrEmpty(o)));
  }

  static public JLabel jcenterNarrowLabel() {
    return jcenterNarrowLabel(50);
  }

  static public JLabel jcenterNarrowLabel(int width) {
    return jcenterNarrowLabel(width, "");
  }

  static public JLabel jcenterNarrowLabel(String text) {
    return jcenterNarrowLabel(50, text);
  }

  static public JLabel jcenterNarrowLabel(int width, String text) {
    return centerLabel(jnarrowLabel(width, text));
  }

  static public JLabel jcenteredLabel(String text) {
    return setHorizontalAlignment(JLabel.CENTER, jLabel(text));
  }

  static public JLabel jcenteredLabel() {
    return jcenteredLabel(" ");
  }

  static public boolean isArray(Object o) {
    return o != null && o.getClass().isArray();
  }

  static public List wrapArrayAsImmutableList(Object array) {
    if (array == null)
      return null;
    if (array instanceof Object[])
      return wrapObjectArrayAsImmutableList((Object[]) array);
    else
      return wrapPrimitiveArrayAsImmutableList(array);
  }

  static public int hstackWithSpacing_spacing = 10;

  static public JPanel hstackWithSpacing(Object... parts) {
    parts = flattenArray2(parts);
    int spacing = hstackWithSpacing_spacing;
    int i = 0;
    if (first(parts) instanceof Integer) {
      spacing = toInt(first(parts));
      ++i;
    }
    JPanel panel = new JPanel(new GridBagLayout());
    GridBagConstraints gbc = new GridBagConstraints();
    gbc.weighty = 1;
    gbc.fill = GridBagConstraints.VERTICAL;
    gbc.gridheight = GridBagConstraints.REMAINDER;
    for (; i < l(parts); i++) {
      if (i != 0)
        panel.add(javax.swing.Box.createRigidArea(new Dimension(spacing, 0)), gbc);
      panel.add(wrapForSmartAdd(parts[i]), gbc);
    }
    gbc.weightx = 1;
    panel.add(jrigid(), gbc);
    return panel;
  }

  static public int vstackWithSpacing_default = 10;

  static public JPanel vstackWithSpacing(final List parts) {
    return vstackWithSpacing(parts, vstackWithSpacing_default);
  }

  static public JPanel vstackWithSpacing(final List parts, final int spacing) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel panel = new JPanel(new GridBagLayout());
          GridBagConstraints gbc = new GridBagConstraints();
          gbc.weightx = 1;
          gbc.fill = GridBagConstraints.HORIZONTAL;
          gbc.gridwidth = GridBagConstraints.REMAINDER;
          gbc.insets = new Insets(spacing / 2, 0, (spacing + 1) / 2, 0);
          smartAddWithLayout(panel, gbc, toObjectArray(nonNulls(parts)));
          gbc.weighty = 1;
          gbc.insets = new Insets(0, 0, 0, 0);
          panel.add(jrigid(), gbc);
          return panel;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel panel = new JPanel(new GridBagLayout);\r\n    new GridBagConstraints gbc...";
      }
    });
  }

  static public JPanel vstackWithSpacing(Component... parts) {
    return vstackWithSpacing(asList(parts), vstackWithSpacing_default);
  }

  static public JPanel vstackWithSpacing(int spacing, Component... parts) {
    return vstackWithSpacing(asList(parts), spacing);
  }

  static public <A> A evalWithTimeoutOrFail(int timeoutMS, F0<A> f) {
    return evalWithTimeoutOrException(timeoutMS, f);
  }

  static public <A> A evalWithTimeoutOrFail(double timeoutSeconds, F0<A> f) {
    return evalWithTimeoutOrException(timeoutSeconds, f);
  }

  static public <A> A evalWithTimeoutOrFail(int timeoutMS, IF0<A> f) {
    return evalWithTimeoutOrException(timeoutMS, f);
  }

  static public <A> A evalWithTimeoutOrFail(double timeoutSeconds, IF0<A> f) {
    return evalWithTimeoutOrException(timeoutSeconds, f);
  }

  static public void evalWithTimeoutOrFail(int timeoutMS, Runnable r) {
    evalWithTimeoutOrException(timeoutMS, runnableToF0(r));
  }

  static public void evalWithTimeoutOrFail(double timeoutSeconds, Runnable r) {
    evalWithTimeoutOrException(timeoutSeconds, runnableToF0(r));
  }

  static public <A, B> List<B> getAll(Map<A, B> map, Collection<A> l) {
    return lookupAllOpt(map, l);
  }

  static public <A, B> List<B> getAll(Collection<A> l, Map<A, B> map) {
    return lookupAllOpt(map, l);
  }

  static public <A, B extends IF0<A>> List<A> getAll(Iterable<B> l) {
    return getVars(l);
  }

  static public NavigableMap synchroTreeMap() {
    return synchroNavigableMap(new TreeMap());
  }

  static public Object _defaultClassFinder_value = defaultDefaultClassFinder();

  static public Object _defaultClassFinder() {
    return _defaultClassFinder_value;
  }

  static public boolean hasConcept(Class<? extends Concept> c, Object... params) {
    return hasConcept(db_mainConcepts(), c, params);
  }

  static public boolean hasConcept(Concepts cc, Class<? extends Concept> c, Object... params) {
    return findConceptWhere(cc, c, params) != null;
  }

  static public String getDBProgramID_id;

  static public String getDBProgramID() {
    return nempty(getDBProgramID_id) ? getDBProgramID_id : programIDWithCase();
  }

  static public void clearConcepts() {
    db_mainConcepts().clearConcepts();
  }

  static public void clearConcepts(Concepts concepts) {
    concepts.clearConcepts();
  }

  static public Map unstructureMap(String s) {
    return (Map) unstructure(s);
  }

  static public Map unstructureMap(String text, boolean allDynamic, Object classFinder) {
    return (Map) unstructure(text, allDynamic, classFinder);
  }

  static public boolean exceptionMessageContains(Throwable e, String s) {
    return cic(getInnerMessage(e), s);
  }

  static public void printShortException(Throwable e) {
    print(exceptionToStringShort(e));
  }

  static public void printShortException(String s, Throwable e) {
    print(s, exceptionToStringShort(e));
  }

  static public IF1 toIF1(final Object f) {
    if (f == null)
      return null;
    if (f instanceof IF1)
      return (IF1) f;
    if (isString(f)) {
      throw fail("callF_legacy");
    }
    return new IF1() {

      public Object get(Object a) {
        return callF(f, a);
      }
    };
  }

  static public boolean sameSnippetID(String a, String b) {
    if (!isSnippetID(a) || !isSnippetID(b))
      return false;
    return parseSnippetID(a) == parseSnippetID(b);
  }

  static public RemoteDB connectToDBOpt(String dbNameOrID) {
    try {
      return new RemoteDB(dbNameOrID);
    } catch (Throwable __e) {
      return null;
    }
  }

  static public String dynShortName(Object o) {
    return shortDynamicClassName(o);
  }

  static public <A, B> A lastKey(SortedMap<A, B> map) {
    return empty(map) ? null : map.lastKey();
  }

  static public File getProgramFile(String progID, String fileName) {
    if (new File(fileName).isAbsolute())
      return new File(fileName);
    return new File(getProgramDir(progID), fileName);
  }

  static public File getProgramFile(String fileName) {
    return getProgramFile(getProgramID(), fileName);
  }

  static public void callRunnableWithWrapper(Object wrapper, Runnable r) {
    if (wrapper == null)
      callF(r);
    else
      callF(wrapper, r);
  }

  static public List callFAll(Collection l, Object... args) {
    return callF_all(l, args);
  }

  static public long toM(long l) {
    return (l + 1024 * 1024 - 1) / (1024 * 1024);
  }

  static public String toM(long l, int digits) {
    return formatDouble(toM_double(l), digits);
  }

  static public String javaTokWordWrap(String s) {
    return javaTokWordWrap(120, s);
  }

  static public String javaTokWordWrap(int cols, String s) {
    int col = 0;
    List<String> tok = javaTok(s);
    for (int i = 0; i < l(tok); i++) {
      String t = tok.get(i);
      if (odd(i) && col >= cols && !containsNewLine(t))
        tok.set(i, t = rtrimSpaces(t) + "\n");
      int idx = t.lastIndexOf('\n');
      if (idx >= 0)
        col = l(t) - (idx + 1);
      else
        col += l(t);
    }
    return join(tok);
  }

  static public String ymd() {
    return ymd(now());
  }

  static public String ymd(long now) {
    return year(now) + formatInt(month(now), 2) + formatInt(dayOfMonth(now), 2);
  }

  static public String ymd(long now, TimeZone tz) {
    return year(now, tz) + formatInt(month(now, tz), 2) + formatInt(dayOfMonth(now, tz), 2);
  }

  static public String formatInt(int i, int digits) {
    return padLeft(str(i), '0', digits);
  }

  static public String formatInt(long l, int digits) {
    return padLeft(str(l), '0', digits);
  }

  static public int hours() {
    return hours(java.util.Calendar.getInstance());
  }

  static public int hours(java.util.Calendar c) {
    return c.get(java.util.Calendar.HOUR_OF_DAY);
  }

  static public int hours(long time) {
    return hours(calendarFromTime(time));
  }

  static public int hours(long time, TimeZone tz) {
    return hours(calendarFromTime(time, tz));
  }

  static public int roundDownTo_rev(int x, int n) {
    return roundDownTo(n, x);
  }

  static public long roundDownTo_rev(long x, long n) {
    return roundDownTo(n, x);
  }

  static public int minutes() {
    return minutes(java.util.Calendar.getInstance());
  }

  static public int minutes(java.util.Calendar c) {
    return c.get(java.util.Calendar.MINUTE);
  }

  static public File copyFile(File src, File dest) {
    try {
      FileInputStream inputStream = new FileInputStream(src.getPath());
      FileOutputStream outputStream = newFileOutputStream(dest.getPath());
      try {
        copyStream(inputStream, outputStream);
        inputStream.close();
      } finally {
        outputStream.close();
      }
      return dest;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public long toK(long l) {
    return (l + 1023) / 1024;
  }

  static public String n(long l, String name) {
    return l + " " + trim(l == 1 ? singular(name) : getPlural(name));
  }

  static public String n(Collection l, String name) {
    return n(l(l), name);
  }

  static public String n(Map m, String name) {
    return n(l(m), name);
  }

  static public String n(Object[] a, String name) {
    return n(l(a), name);
  }

  static public String n(MultiSet ms, String name) {
    return n(l(ms), name);
  }

  static public Collection<Concept> allConcepts() {
    return db_mainConcepts().allConcepts();
  }

  static public Collection<Concept> allConcepts(Concepts concepts) {
    return concepts.allConcepts();
  }

  static public long sysNow() {
    ping();
    return System.nanoTime() / 1000000;
  }

  static public boolean isTransient(Field f) {
    return (f.getModifiers() & java.lang.reflect.Modifier.TRANSIENT) != 0;
  }

  static public FixedRateTimer doEvery_daemon(long delay, final Object r) {
    return doEvery_daemon(defaultTimerName(), delay, r);
  }

  static public FixedRateTimer doEvery_daemon(String timerName, long delay, final Object r) {
    return doEvery_daemon(timerName, delay, delay, r);
  }

  static public FixedRateTimer doEvery_daemon(long delay, long firstDelay, final Object r) {
    return doEvery_daemon(defaultTimerName(), delay, firstDelay, r);
  }

  static public FixedRateTimer doEvery_daemon(String timerName, long delay, long firstDelay, final Object r) {
    FixedRateTimer timer = new FixedRateTimer(true);
    timer.scheduleAtFixedRate(smartTimerTask(r, timer, delay), firstDelay, delay);
    return timer;
  }

  static public FixedRateTimer doEvery_daemon(double delaySeconds, final Object r) {
    return doEvery_daemon(toMS(delaySeconds), r);
  }

  static public int abs(int i) {
    return Math.abs(i);
  }

  static public long abs(long i) {
    return Math.abs(i);
  }

  static public float abs(float i) {
    return Math.abs(i);
  }

  static public double abs(double i) {
    return Math.abs(i);
  }

  static public double abs(Complex c) {
    return c.abs();
  }

  static public void closeAllOpt(Iterable l) {
    if (l == null)
      return;
    for (Object c : l) {
      try {
        if (c instanceof AutoCloseable)
          close((AutoCloseable) c);
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }
  }

  static public void closeAllOpt(Object... l) {
    if (l == null)
      return;
    for (Object c : l) {
      try {
        if (c instanceof AutoCloseable)
          close((AutoCloseable) c);
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }
  }

  static public void sleepInCleanUp(long ms) {
    try {
      if (ms < 0)
        return;
      Thread.sleep(ms);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A> A firstOfType(Collection c, Class<A> type) {
    for (Object x : c) if (isInstanceX(type, x))
      return (A) x;
    return null;
  }

  static public List<Concept> conceptsOfType(String type) {
    return db_mainConcepts().conceptsOfType(type);
  }

  static public <A> List<A> concatLists_conservative(List<A> a, List<A> b) {
    if (empty(a))
      return b;
    if (empty(b))
      return a;
    return concatLists(a, b);
  }

  static public <A> List<A> concatLists_conservative(Collection<A> a, Collection<A> b) {
    if (empty(a) && b instanceof List)
      return ((List) b);
    if (empty(b) && a instanceof List)
      return ((List) a);
    return concatLists(a, b);
  }

  static public <A> List<A> filterByType(Iterable c, Class<A> type) {
    List<A> l = new ArrayList();
    if (c != null)
      for (Object x : c) if (isInstanceX(type, x))
        l.add((A) x);
    return l;
  }

  static public <A> List<A> filterByType(Object[] c, Class<A> type) {
    return filterByType(asList(c), type);
  }

  static public <A> List<A> filterByType(Class<A> type, Iterable c) {
    return filterByType(c, type);
  }

  static public <A> List<A> filterByDynamicType(Collection<A> c, String type) {
    List<A> l = new ArrayList();
    for (A x : c) if (eq(dynamicClassName(x), type))
      l.add(x);
    return l;
  }

  static public boolean hasType(Collection c, Class type) {
    for (Object x : c) if (isInstanceX(type, x))
      return true;
    return false;
  }

  static public <A extends Concept> A findBackRef(Concept c, Class<A> type) {
    for (Concept.Ref r : c.backRefs) if (instanceOf(r.concept(), type))
      return (A) r.concept();
    return null;
  }

  static public <A extends Concept> A findBackRef(Class<A> type, Concept c) {
    return findBackRef(c, type);
  }

  static public boolean checkConceptFields(Concept x, Object... data) {
    for (int i = 0; i < l(data); i += 2) if (neq(cget(x, (String) data[i]), deref(data[i + 1])))
      return false;
    return true;
  }

  static public <A, B> void mapRemove(Map<A, B> map, A key) {
    if (map != null && key != null)
      map.remove(key);
  }

  static public Concept cnew(String name, Object... values) {
    return cnew(db_mainConcepts(), name, values);
  }

  static public Concept cnew(Concepts concepts, String name, Object... values) {
    Class<? extends Concept> cc = findClass(name);
    concepts_unlisted.set(true);
    Concept c;
    try {
      c = cc != null ? nuObject(cc) : new Concept(name);
    } finally {
      concepts_unlisted.set(null);
    }
    csetAll(c, values);
    concepts.register(c);
    return c;
  }

  static public <A extends Concept> A cnew(Class<A> cc, Object... values) {
    return cnew(db_mainConcepts(), cc, values);
  }

  static public <A extends Concept> A cnew(Concepts concepts, Class<A> cc, Object... values) {
    concepts_unlisted.set(true);
    A c;
    try {
      c = nuObject(cc);
    } finally {
      concepts_unlisted.set(null);
    }
    csetAll(c, values);
    concepts.register(c);
    return c;
  }

  static public int cset(Concept c, Object... values) {
    try {
      if (c == null)
        return 0;
      warnIfOddCount(values = expandParams(c.getClass(), values));
      int changes = 0;
      for (int i = 0; i + 1 < l(values); i += 2) if (_csetField(c, (String) values[i], values[i + 1]))
        ++changes;
      return changes;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public int cset(Iterable<? extends Concept> l, Object... values) {
    int changes = 0;
    for (Concept c : unnullForIteration(l)) changes += cset(c, values);
    return changes;
  }

  static public <A extends Concept> int cset(Concept.Ref<A> c, Object... values) {
    return cset(getVar(c), values);
  }

  static public Object cget(Object c, String field) {
    c = derefRef(c);
    Object o = getOpt(c, field);
    return derefRef(o);
  }

  static public Object cget(String field, Object c) {
    return cget(c, field);
  }

  static public Object deref(Object o) {
    if (o instanceof IRef)
      return ((IRef) o).get();
    return o;
  }

  static public String loadConceptsStructure(String progID) {
    return loadTextFilePossiblyGZipped(getProgramFile(progID, "concepts.structure"));
  }

  static public String loadConceptsStructure() {
    return loadConceptsStructure(dbProgramID());
  }

  static public void cleanKillVM() {
    try {
      ping();
      assertNotOnAWTThread();
      cleanKillVM_noSleep();
      Object o = new Object();
      synchronized (o) {
        o.wait();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void cleanKillVM_noSleep() {
    call(getJavaX(), "cleanKill");
  }

  static public <A extends Concept> int countConcepts(Concepts concepts, Class<A> c, Object... params) {
    return concepts.countConcepts(c, params);
  }

  static public <A extends Concept> int countConcepts(Class<A> c, Object... params) {
    return db_mainConcepts().countConcepts(c, params);
  }

  static public int countConcepts() {
    return db_mainConcepts().countConcepts();
  }

  static public int countConcepts(String className) {
    return db_mainConcepts().countConcepts(className);
  }

  static public <A extends Concept> int countConcepts(Concepts concepts, String className) {
    return concepts.countConcepts(className);
  }

  static public int countConcepts(Concepts concepts) {
    return concepts.countConcepts();
  }

  static public <A> boolean syncAdd(Collection<A> c, A b) {
    if (c == null)
      return false;
    synchronized (collectionMutex(c)) {
      return c.add(b);
    }
  }

  static public <A> void syncAdd(List<A> l, int idx, A b) {
    if (l != null)
      synchronized (collectionMutex(l)) {
        l.add(idx, b);
      }
  }

  static public <A> boolean syncRemove(Collection<A> c, A b) {
    if (c == null)
      return false;
    synchronized (collectionMutex(c)) {
      return c.remove(b);
    }
  }

  static public <A> A syncRemove(List<A> l, int idx) {
    if (l == null)
      return null;
    synchronized (collectionMutex(l)) {
      return l.remove(idx);
    }
  }

  static public <A, B> B syncRemove(Map<A, B> map, A key) {
    return map == null ? null : map.remove(key);
  }

  static public <A> List<A> syncAddOrCreate(List<A> l, A a) {
    if (l == null)
      l = syncList();
    l.add(a);
    return l;
  }

  static public String nConcepts(long n) {
    return n2(n, "concept");
  }

  static public String nConcepts(Collection l) {
    return nConcepts(l(l));
  }

  static public String nConcepts(Map map) {
    return nConcepts(l(map));
  }

  static public int identityHashCode(Object o) {
    return System.identityHashCode(o);
  }

  static public String shortDynamicClassName(Object o) {
    if (o instanceof DynamicObject && ((DynamicObject) o).className != null)
      return ((DynamicObject) o).className;
    return shortClassName(o);
  }

  static public boolean dynamicObjectIsLoading() {
    return isUnstructuring();
  }

  static volatile public Concepts mainConcepts;

  static public Concepts db_mainConcepts() {
    if (mainConcepts == null)
      mainConcepts = newConceptsWithClassFinder(getDBProgramID());
    return mainConcepts;
  }

  static public void cleanMeUp_concepts() {
    if (db_mainConcepts() != null)
      db_mainConcepts().cleanMeUp();
  }

  static public void assertIsInstance(Class type, Object o) {
    if (!isInstance(type, o))
      throw fail(_getClass(o) + " is not a subclass of " + type);
  }

  static public void assertIsInstance(Object o, Class type) {
    assertIsInstance(type, o);
  }

  static public boolean has(String a, String b, String c) {
    return false;
  }

  static public boolean has(T3<String, String, String> t) {
    return false;
  }

  static public void removeLast(List l) {
    if (!l.isEmpty())
      l.remove(l(l) - 1);
  }

  static public void removeLast(List l, int n) {
    removeSubList(l, l(l) - n);
  }

  static public void removeLast(int n, List l) {
    removeLast(l, n);
  }

  static public void removeLast(StringBuilder buf) {
    if (buf == null)
      return;
    int n = buf.length();
    if (n > 0)
      buf.setLength(n - 1);
  }

  static public <A> A syncGet(List<A> l, int idx) {
    if (l == null || idx < 0)
      return null;
    synchronized (l) {
      return idx < l(l) ? l.get(idx) : null;
    }
  }

  static public <A, B> B syncGet(Map<A, B> map, A a) {
    if (map == null)
      return null;
    synchronized (map) {
      return map.get(a);
    }
  }

  static public <A> List<A> addDyn_quickSync(List<A> l, A a) {
    if (l == null)
      l = new ArrayList();
    syncAdd(l, a);
    return l;
  }

  static public <A> List<A> removeDyn_quickSync(List<A> l, A a) {
    if (l == null)
      return null;
    synchronized (collectionMutex(l)) {
      l.remove(a);
      return empty(l) ? null : l;
    }
  }

  static public void crenameField_noOverwrite(Concept c, String oldField, String newField) {
    if (c == null || eq(oldField, newField))
      return;
    Object value = cget(c, oldField);
    if (newField != null && cget(c, newField) == null)
      cset(c, newField, value);
    cset(c, oldField, null);
  }

  static public Collection<Concept.Ref> scanConceptForRefs(Concept c) {
    Set<Concept.Ref> refs = new HashSet();
    if (c != null)
      for (Object o : values(objectToMap(c))) {
        if (o instanceof Concept.Ref)
          refs.add((Concept.Ref) o);
        else if (o instanceof Concept.RefL)
          addAll(refs, ((Concept.RefL) o).l);
      }
    return refs;
  }

  static public AtomicLong randomClassName_counter = new AtomicLong();

  static public String randomClassName() {
    return "UserCode" + inc(randomClassName_counter);
  }

  static public <A> A print_tabToSingleSpace(A o) {
    print(tabToSingleSpace(str(o)));
    return o;
  }

  static public ClassLoader myClassLoader() {
    return _getClass(mc()).getClassLoader();
  }

  static public <A> A newInstance(Class<A> c, Object... args) {
    return nuObject(c, args);
  }

  static public Object newInstance(String className, Object... args) {
    return nuObject(className, args);
  }

  static public String assertMD5(String s) {
    return assertPossibleMD5(s);
  }

  static public boolean isFile(File f) {
    return f != null && f.isFile();
  }

  static public boolean isFile(String path) {
    return isFile(newFile(path));
  }

  static public BufferedImage decodeImage(byte[] data) {
    try {
      if (empty(data))
        return null;
      return ImageIO.read(new ByteArrayInputStream(data));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  public static byte[] saveBinaryFile(String fileName, byte[] contents) {
    try {
      File file = new File(fileName);
      File parentFile = file.getParentFile();
      if (parentFile != null)
        parentFile.mkdirs();
      String tempFileName = fileName + "_temp";
      try (FileOutputStream fileOutputStream = newFileOutputStream(tempFileName)) {
        fileOutputStream.write(contents);
      }
      if (file.exists() && !file.delete())
        throw new IOException("Can't delete " + fileName);
      if (!new File(tempFileName).renameTo(file))
        throw new IOException("Can't rename " + tempFileName + " to " + fileName);
      vmBus_send("wroteFile", file);
      return contents;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public byte[] saveBinaryFile(File fileName, byte[] contents) {
    return saveBinaryFile(fileName.getPath(), contents);
  }

  static public <A> A setAndReturn(A o, String field, Object value) {
    set(o, field, value);
    return o;
  }

  static public <A> A setAndReturn(IVar<A> v, A value) {
    setVar(v, value);
    return value;
  }

  static public List<File> listFilesWithExtension(File dir, String ext) {
    return listFilesWithSuffix(dir, addPrefixOptIfNempty(".", ext));
  }

  static public List<File> listFilesWithExtension(String ext, File dir) {
    return listFilesWithExtension(dir, ext);
  }

  static public WatchEvent.Kind[] jdk_watchService_allEventKinds() {
    return new WatchEvent.Kind[] { ENTRY_CREATE, ENTRY_DELETE, ENTRY_MODIFY, OVERFLOW };
  }

  static public <A> Set<A> synchroSet() {
    return synchroHashSet();
  }

  static public <A> Set<A> synchroSet(Set<A> set) {
    return synchronizedSet(set);
  }

  static public List<File> findAllDirs(File dir) {
    List<File> out = new ArrayList();
    findAllDirs(dir, out);
    return out;
  }

  static public void findAllDirs(File dir, List<File> out) {
    out.add(dir);
    try {
      for (File f : listFiles(dir)) if (f.isDirectory())
        findAllDirs(f, out);
    } catch (Throwable __e) {
      print(exceptionToStringShort(__e));
    }
  }

  static public <A> IterableIterator<A> reversedIterator(final List<A> l) {
    return new IterableIterator<A>() {

      public int i = l(l) - 1;

      public boolean hasNext() {
        return i >= 0;
      }

      public A next() {
        return l.get(i--);
      }
    };
  }

  static public Set emptySet() {
    return new HashSet();
  }

  static public <A, B> Map.Entry<A, B> firstEntry(Map<A, B> map) {
    return empty(map) ? null : first(map.entrySet());
  }

  static public SingleComponentPanel singleComponentPanel() {
    return singleComponentPanel(null);
  }

  static public SingleComponentPanel singleComponentPanel(final Component c) {
    return swing(new F0<SingleComponentPanel>() {

      public SingleComponentPanel get() {
        try {
          return new SingleComponentPanel(c);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return new SingleComponentPanel(c);";
      }
    });
  }

  static public <A extends Component> A jMinWidth0(A c) {
    return jMinWidth_pure(0, c);
  }

  static public JPanel vstack(Object... parts) {
    return vstack2(parts);
  }

  static public JPanel vstack(List parts) {
    return vstack(toObjectArray(parts));
  }

  static public JLabel jClickableImage_instantToolTip(String imageID, String toolTip, Runnable action) {
    return onLeftClick(instaToolTip(toolTip, jImageLabel(imageID)), action);
  }

  static public String collapse(String s) {
    return collapseWord(s);
  }

  static public JPanel northAndCenterWithMargin(int margin, Swingable n, Swingable c) {
    return northAndCenterWithMargin(margin, n, toComponent(c));
  }

  static public JPanel northAndCenterWithMargin(int margin, Swingable n, Component c) {
    return northAndCenterWithMargin(margin, toComponent(n), c);
  }

  static public JPanel northAndCenterWithMargin(int margin, Component n, Swingable c) {
    return northAndCenterWithMargin(margin, n, toComponent(c));
  }

  static public JPanel northAndCenterWithMargin(int margin, Component n, Component c) {
    return northAndCenter(withBottomMargin(margin, n), c);
  }

  static public JPanel northAndCenterWithMargin(Swingable n, Swingable c) {
    return northAndCenterWithMargin(n, toComponent(c));
  }

  static public JPanel northAndCenterWithMargin(Swingable n, Component c) {
    return northAndCenterWithMargin(toComponent(n), c);
  }

  static public JPanel northAndCenterWithMargin(Component n, Swingable c) {
    return northAndCenterWithMargin(n, toComponent(c));
  }

  static public JPanel northAndCenterWithMargin(Component n, Component c) {
    return northAndCenter(withBottomMargin(n), c);
  }

  static public JLabel liveValueLabel(LiveValue lv) {
    return jLiveValueLabel(lv);
  }

  static public JLabel liveValueLabel(IVarWithNotify<?> var) {
    return jVarLabel(var);
  }

  static public JSplitPane jhsplit_minZero(Component l, Component r) {
    return jhsplit_minZero(l, r, 0.5);
  }

  static public JSplitPane jhsplit_minZero(Component l, Component r, double splitPoint) {
    return jhsplit(jMinWidth0(l), jMinWidth0(r), splitPoint);
  }

  static public JSplitPane jhsplit_minZero(double splitPoint, Component l, Component r) {
    return jhsplit_minZero(l, r, splitPoint);
  }

  static public JFrame showFrame() {
    return makeFrame();
  }

  static public JFrame showFrame(Object content) {
    return makeFrame(content);
  }

  static public JFrame showFrame(String title) {
    return makeFrame(title);
  }

  static public JFrame showFrame(String title, Object content) {
    return makeFrame(title, content);
  }

  static public JFrame showFrame(final JFrame f) {
    if (f != null) {
      swing(() -> {
        if (frameTooSmall(f))
          frameStandardSize(f);
        if (!f.isVisible())
          f.setVisible(true);
        if (f.getState() == Frame.ICONIFIED)
          f.setState(Frame.NORMAL);
      });
    }
    return f;
  }

  static public JFrame showFrame(String title, Object content, JFrame frame) {
    if (frame == null)
      return showFrame(title, content);
    else {
      frame.setTitle(title);
      setFrameContents(frame, content);
      return frame;
    }
  }

  static public <A extends Component> A maximizeFrame(A c) {
    JFrame f = swing(new F0<JFrame>() {

      public JFrame get() {
        try {
          JFrame f = getFrame(c);
          if (f != null)
            f.setExtendedState(JFrame.MAXIMIZED_BOTH);
          return f;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JFrame f = getFrame(c);\r\n    if (f != null)\r\n      f.setExtendedState(JFrame....";
      }
    });
    if (f != null && !isAWTThread()) {
      Dimension d = maximumWindowBounds().getSize();
      long start = sysNow();
      while (licensed()) {
        try {
          if (f.getWidth() >= d.getWidth() - 100 && f.getHeight() >= d.getHeight() - 100)
            break;
          if (sysNow() >= start + 100) {
            warn("maximizeFrame timeout");
            break;
          }
        } catch (Throwable __e) {
          pcallFail(__e);
        }
        sleep(1);
      }
    }
    return c;
  }

  static public void db() {
    conceptsAndBot();
  }

  static public void db(Integer autoSaveInterval) {
    conceptsAndBot(autoSaveInterval);
  }

  static volatile public boolean framesBot_has = false;

  static public Android3 framesBot() {
    if (framesBot_has)
      return null;
    framesBot_has = true;
    Android3 android = new Android3();
    android.greeting = programIDPlusHome() + " Frames.";
    android.console = false;
    android.responder = new Responder() {

      public String answer(String s, List<String> history) {
        if (match("activate frames", s)) {
          swingLater(new Runnable() {

            public void run() {
              try {
                activateMyFrames();
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "// prevent blocking when called from same program's AWT thread\r\n          act...";
            }
          });
          return "OK, activating " + programName();
        }
        return null;
      }
    };
    return makeBot(android);
  }

  static public List<Concept> allBackRefs(Concept c) {
    IdentityHashMap<Concept, Boolean> l = new IdentityHashMap();
    if (c != null && c.backRefs != null)
      for (Concept.Ref r : cloneList(c.backRefs)) l.put(r.concept(), true);
    return keysList(l);
  }

  static public <A extends Concept> List<A> sortedByConceptID(Collection<A> c) {
    return sortedByCalculatedField(__88 -> conceptID(__88), c);
  }

  static public JButton tableDependButton(JTable tbl, JButton b) {
    tableDependButtons(tbl, ll(b));
    return b;
  }

  static public JButton tableDependButton(JTable tbl, String text, Object action) {
    return tableDependButton(tbl, jbutton(text, action));
  }

  static public Object withDBLock(Object r) {
    Lock __0 = db_mainConcepts().lock;
    lock(__0);
    try {
      return callF(r);
    } finally {
      unlock(__0);
    }
  }

  static public <A> A withDBLock(F0<A> r) {
    return (A) withDBLock((Object) r);
  }

  static public Object withDBLock(Concepts concepts, Object r) {
    Lock __1 = concepts.lock;
    lock(__1);
    try {
      return callF(r);
    } finally {
      unlock(__1);
    }
  }

  static public <A> A withDBLock(Concepts concepts, F0<A> r) {
    return (A) withDBLock(concepts, (Object) r);
  }

  static public <A> A withDBLock(Concept concept, IF0<A> r) {
    return (A) withDBLock(concept._concepts, r);
  }

  static public JPanel jRightAlignedLine(Component... components) {
    return jrightAlignedLine(components);
  }

  static public JPanel jRightAlignedLine(List<? extends Component> components) {
    return jrightAlignedLine(components);
  }

  static public List flattenToList(Object... l) {
    Flattener f = new Flattener();
    f.add(l);
    return f.toList();
  }

  static public <A extends Concept> A selectedConcept(JTable table, Class<A> cc) {
    return (A) getConcept(toLong(selectedTableCell(table, 0)));
  }

  static public JPanel centerAndSouthWithMargin(Swingable c, Swingable s) {
    return centerAndSouthWithMargin(c, toComponent(s));
  }

  static public JPanel centerAndSouthWithMargin(Swingable c, Component s) {
    return centerAndSouthWithMargin(toComponent(c), s);
  }

  static public JPanel centerAndSouthWithMargin(Component c, Swingable s) {
    return centerAndSouthWithMargin(c, toComponent(s));
  }

  static public JPanel centerAndSouthWithMargin(Component c, Component s) {
    return centerAndSouth(c, withTopMargin(s));
  }

  static public JPanel centerAndSouthWithMargin(int margin, Swingable c, Swingable s) {
    return centerAndSouthWithMargin(margin, c, toComponent(s));
  }

  static public JPanel centerAndSouthWithMargin(int margin, Swingable c, Component s) {
    return centerAndSouthWithMargin(margin, toComponent(c), s);
  }

  static public JPanel centerAndSouthWithMargin(int margin, Component c, Swingable s) {
    return centerAndSouthWithMargin(margin, c, toComponent(s));
  }

  static public JPanel centerAndSouthWithMargin(int margin, Component c, Component s) {
    return centerAndSouth(c, withTopMargin(margin, s));
  }

  static public void tablePopupMenuItem(JTable table, String name, Object action) {
    tablePopupMenu(table, new VF2<JPopupMenu, Integer>() {

      public void get(JPopupMenu menu, final Integer row) {
        try {
          addMenuItem(menu, name, new Runnable() {

            public void run() {
              try {
                pcallF(action, row);
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "pcallF(action, row)";
            }
          });
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "addMenuItem(menu, name, r { pcallF(action, row) });";
      }
    });
  }

  static public void tablePopupMenuItem(JTable table, String name, IVF1<Integer> action) {
    tablePopupMenuItem(table, name, (Object) action);
  }

  static public JList onDoubleClick(final JList list, final Object runnable) {
    {
      swing(() -> {
        list.addMouseListener(new MouseAdapter() {

          public void mouseClicked(MouseEvent evt) {
            if (evt.getClickCount() == 2) {
              int idx = list.locationToIndex(evt.getPoint());
              Object item = list.getModel().getElementAt(idx);
              list.setSelectedIndex(idx);
              callF(runnable, item);
            }
          }
        });
      });
    }
    return list;
  }

  static public JTable onDoubleClick(final JTable table, final Object runnable) {
    {
      swing(() -> {
        table.addMouseListener(new MouseAdapter() {

          public void mouseClicked(MouseEvent evt) {
            if (evt.getClickCount() == 2) {
              int idx = table.rowAtPoint(evt.getPoint());
              table.setRowSelectionInterval(idx, idx);
              callF(runnable, idx);
            }
          }
        });
      });
    }
    return table;
  }

  static public void onDoubleClick(final JComponent c, final Object runnable) {
    {
      swing(() -> {
        c.addMouseListener(new MouseAdapter() {

          public void mouseClicked(MouseEvent evt) {
            if (evt.getButton() == 1 && evt.getClickCount() == 2)
              callF(runnable, evt.getPoint());
          }
        });
      });
    }
  }

  static public void tablePopupMenuFirst(JTable table, final Object menuMaker) {
    tablePopupMenu_first.set(true);
    tablePopupMenu(table, menuMaker);
  }

  static public void tablePopupMenuFirst(JTable table, IVF2<JPopupMenu, Integer> menuMaker) {
    tablePopupMenuFirst(table, (Object) menuMaker);
  }

  static public JScrollPane jBorderlessHigherHorizontalScrollPane(JComponent c) {
    var sp = borderlessScrollPane(jHigherScrollPane(c));
    sp.setVerticalScrollBarPolicy(ScrollPaneConstants.VERTICAL_SCROLLBAR_NEVER);
    return sp;
  }

  static public <A extends Concept> A unlisted(Class<A> c, Object... args) {
    concepts_unlisted.set(true);
    try {
      return nuObject(c, args);
    } finally {
      concepts_unlisted.set(null);
    }
  }

  static public Concept unlisted(String name, Object... args) {
    Class<? extends Concept> cc = findClass(name);
    concepts_unlisted.set(true);
    try {
      return cc != null ? nuObject(cc) : new Concept(name);
    } finally {
      concepts_unlisted.set(null);
    }
  }

  static public <A extends Concept> A ccopyFieldsExcept(Concept x, A y, Set<String> dontCopyFields) {
    if (x == null || y == null)
      return y;
    return ccopyFields2(x, y, setMinusSet(conceptFields(x), dontCopyFields));
  }

  static public int csetAll(Concept c, Object... values) {
    return cset(c, values);
  }

  static public int csetAll(Iterable<? extends Concept> l, Object... values) {
    int n = 0;
    for (Concept c : unnullForIteration(l)) n += cset(c, values);
    return n;
  }

  static public int csetAll(Concept c, Map<String, Object> values) {
    int n = 0;
    for (Map.Entry<? extends String, ? extends Object> __0 : _entrySet(values)) {
      String field = __0.getKey();
      Object value = __0.getValue();
      n += cset(c, field, value);
    }
    return n;
  }

  static public AutoCloseable tempSetMCOpt(final String field, Object value) {
    final Object oldValue = getMCOpt(field);
    setMCOpt(field, value);
    return new AutoCloseable() {

      public String toString() {
        return "setMCOpt(field, oldValue);";
      }

      public void close() throws Exception {
        setMCOpt(field, oldValue);
      }
    };
  }

  static public <A extends JComponent> A renameSubmitButton(A form, String newName) {
    renameButton(form, showFormSubmitButtonName(), newName);
    return form;
  }

  static public <A extends JComponent> A renameSubmitButton(String newName, A form) {
    return renameSubmitButton(form, newName);
  }

  static public Object[] toObjectArray(Collection c) {
    return toObjectArray((Iterable) c);
  }

  static public Object[] toObjectArray(Iterable c) {
    List l = asList(c);
    return l.toArray(new Object[l.size()]);
  }

  static public <A extends Concept> A replaceConceptAndUpdateRefs(Concept a, A b) {
    assertTrue("object to replace with must be unlisted", isUnlisted(b));
    Concepts cc = a.concepts();
    assertTrue("object to replace must be listed", cc != null);
    List<Concept.Ref> refs = allBackRefObjects(a);
    b.id = a.id;
    deleteConcept(a);
    cc.register_phase2(b);
    cset(a, "meta_migratedTo", b);
    for (Concept.Ref ref : refs) ref.set(b);
    return b;
  }

  static public Class getFieldType(Object o, String field) {
    return fieldType(o, field);
  }

  static public Type genericFieldType(Object o, String field) {
    Field f = getField(o, field);
    return f == null ? null : f.getGenericType();
  }

  static public Class getTypeArgumentAsClass(Type type) {
    if (type instanceof ParameterizedType)
      return typeToClass(first(((ParameterizedType) type).getActualTypeArguments()));
    return null;
  }

  static public JCheckBox jCenteredCheckBox() {
    return centerCheckBox(new JCheckBox());
  }

  static public JCheckBox jCenteredCheckBox(boolean checked) {
    return centerCheckBox(new JCheckBox("", checked));
  }

  static public JCheckBox jCenteredCheckBox(String text, boolean checked) {
    return centerCheckBox(new JCheckBox(text, checked));
  }

  static public JCheckBox jCenteredCheckBox(String text) {
    return centerCheckBox(new JCheckBox(text));
  }

  static public JCheckBox jCenteredCheckBox(String text, boolean checked, final Object onChange) {
    return centerCheckBox(jCheckBox(text, checked, onChange));
  }

  static public JCheckBox jCenteredCheckBox(boolean checked, final Object onChange) {
    return centerCheckBox(jCheckBox(checked, onChange));
  }

  static public boolean containsNewLines(String s) {
    return containsNewLine(s);
  }

  static public <A> A optCast(Class<A> c, Object o) {
    return isInstance(c, o) ? (A) o : null;
  }

  static public boolean isSubtype(Class a, Class b) {
    return isSubclass(a, b);
  }

  static public JComboBox jcomboboxFromConcepts_str(Class<? extends Concept> cc) {
    return jcomboboxFromConcepts_str(db_mainConcepts(), cc);
  }

  static public JComboBox jcomboboxFromConcepts_str(Concepts concepts, Class<? extends Concept> cc) {
    return jcomboboxFromConcepts_str(concepts, cc, null);
  }

  static public JComboBox jcomboboxFromConcepts_str(Concepts concepts, Class<? extends Concept> cc, Concept selected) {
    List<String> items = ll("");
    String selectedItem = null;
    for (Concept c : list(concepts, cc)) {
      String item = c.id + " - " + c;
      if (c == selected)
        selectedItem = item;
      items.add(item);
    }
    return jcombobox(items, selectedItem);
  }

  static public JPasswordField jpassword() {
    return jpassword("");
  }

  static public JPasswordField jpassword(final String pw) {
    return swing(new F0<JPasswordField>() {

      public JPasswordField get() {
        try {
          return new JPasswordField(pw);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return new JPasswordField(pw);";
      }
    });
  }

  static public String structureOrText_crud(Object o) {
    if (o == null)
      return "";
    if (o instanceof Long)
      return str(o);
    if (o instanceof File)
      return ((File) o).getAbsolutePath();
    return str(o);
  }

  static public AutoComboBox autoComboBox() {
    return autoComboBox(new ArrayList());
  }

  static public AutoComboBox autoComboBox(final Collection<String> items) {
    return swing(new F0<AutoComboBox>() {

      public AutoComboBox get() {
        try {
          AutoComboBox cb = new AutoComboBox();
          cb.setKeyWord(items);
          return cb;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "new AutoComboBox cb;\r\n    cb.setKeyWord(items);\r\n    ret cb;";
      }
    });
  }

  static public AutoComboBox autoComboBox(String value, Collection<String> items) {
    return setText(autoComboBox(items), value);
  }

  static public JTextField jTextField() {
    return jTextField("");
  }

  static public JTextField jTextField(final String text) {
    return swing(new F0<JTextField>() {

      public JTextField get() {
        try {
          JTextField tf = new JTextField(unnull(text));
          standardTextFieldPopupMenu(tf);
          jenableUndoRedo(tf);
          tf.selectAll();
          return tf;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JTextField tf = new JTextField(unnull(text));\r\n    standardTextFieldPopupMenu...";
      }
    });
  }

  static public JTextField jTextField(Object o) {
    return jTextField(strOrEmpty(o));
  }

  static public JComponent unwrap(JComponent c) {
    return c instanceof JScrollPane ? unwrapScrollPane((JScrollPane) c) : c;
  }

  static public Class fieldType(Object o, String field) {
    Field f = getField(o, field);
    return f == null ? null : f.getType();
  }

  static public String getTextTrim(JTextComponent c) {
    return trim(getText(c));
  }

  static public String getTextTrim(JComboBox cb) {
    return trim(getText(cb));
  }

  static public String getTextTrim(JComponent c) {
    if (c instanceof JLabel)
      return trim(((JLabel) c).getText());
    if (c instanceof JComboBox)
      return getTextTrim((JComboBox) c);
    return getTextTrim((JTextComponent) c);
  }

  static public String trimIf(boolean b, String s) {
    return b ? trim(s) : s;
  }

  static public Object convertToField(Object o, Class c, String field) {
    Field f = setOpt_findField(c, field);
    if (f == null)
      return o;
    Class t = f.getType();
    if (t == Long.class || t == long.class)
      return toLong(o);
    else if (t == Integer.class || t == int.class)
      return toInt(o);
    else if (t == Float.class || t == float.class)
      return toFloat(o);
    else if (t == Double.class || t == double.class)
      return toDouble(o);
    else if (t == String.class)
      return o instanceof String ? ((String) o) : str(o);
    else if (t == File.class) {
      if (o instanceof String)
        return new File((String) o).getAbsoluteFile();
    } else if (t == Pt.class) {
      if (o instanceof String)
        return parsePt((String) o);
    } else if (t == Rect.class) {
      if (o instanceof String)
        return parseRect((String) o);
    } else if (t == GlobalID.class && o instanceof String)
      return new GlobalID((String) o);
    return o;
  }

  static public long parseFirstLong(String s) {
    return parseLong(jextract("<int>", s));
  }

  static public void cUpdatePNGFile(Concept c, String field, BufferedImage image, boolean deleteOldFile) {
    PNGFile png = (PNGFile) (cget(c, field));
    if (image == null && png != null)
      cset(c, field, null);
    else if (image != null && (png == null || !imagesIdentical(png.getImage(), image))) {
      if (png != null && deleteOldFile)
        png.delete();
      cset(c, field, new PNGFile(image));
    }
  }

  static public <A> List<A> listWithoutSet(Collection<A> l, Collection<A> stuff) {
    return listMinusSet(l, stuff);
  }

  static public List<String> conceptFieldsInOrder(Concept c) {
    return conceptFieldsInOrder(c.getClass());
  }

  static public List<String> conceptFieldsInOrder(Class<? extends Concept> c) {
    String order = toStringOpt(getOpt(c, "_fieldOrder"));
    Set<String> set = asTreeSet(conceptFields(c));
    if (order == null)
      return asList(set);
    List<String> fields = listIntersectSet(splitAtSpace(order), set);
    setAddAll(fields, set);
    return fields;
  }

  static public <A> Set<A> joinSets(Collection<A>... l) {
    Set<A> set = similarEmptySet(first(l));
    for (Collection<A> o : l) if (o != null)
      set.addAll(o);
    return set;
  }

  static public <A> Set<A> setPlus(Collection<A> l, A... more) {
    Set<A> set = similarEmptySet(l);
    addAll(set, l);
    for (A a : more) set.add(a);
    return set;
  }

  static public <A> List<A> moveItemFirst(A item, Collection<A> l) {
    if (!contains(l, item))
      return asList(l);
    List<A> out = emptyList(l(l));
    out.add(item);
    for (A a : l) if (!eq(a, item))
      out.add(a);
    return out;
  }

  static public <A> List dropTypeParameter(List<A> l) {
    return l;
  }

  static public <A> Collection dropTypeParameter(Collection<A> l) {
    return l;
  }

  static public <A> List<Class<? extends A>> sortClassesByNameIC(Collection<Class<? extends A>> l) {
    return sortedByCalculatedFieldIC(__89 -> shortClassName(__89), l);
  }

  static public <A> List<Class<? extends A>> myNonAbstractClassesImplementing(Class<A> base) {
    List<Class<? extends A>> l = new ArrayList();
    for (String name : myInnerClasses()) {
      Class c = _getClass(mcName() + "$" + name);
      if (c != null && !isAbstract(c) && isSubtypeOf(c, base))
        l.add(c);
    }
    return l;
  }

  static public <A> JComboBox<A> setComboBoxRenderer(JComboBox<A> cb, ListCellRenderer renderer) {
    if (cb != null) {
      swing(() -> {
        cb.setRenderer(renderer);
      });
    }
    return cb;
  }

  static public <A> JComboBox<A> jTypedComboBox(Collection<A> items) {
    return swing(() -> new JComboBox<A>(toVector(items)));
  }

  static public <A> JComboBox<A> jTypedComboBox(Collection<A> items, A selectedItem) {
    return selectItem(selectedItem, jTypedComboBox(items));
  }

  static public <A> ListCellRenderer<A> customToStringListCellRenderer(IF1<A, String> toString) {
    return (ListCellRenderer) new DefaultListCellRenderer() {

      @Override
      public Component getListCellRendererComponent(JList list, Object value, int index, boolean isSelected, boolean cellHasFocus) {
        return super.getListCellRendererComponent(list, toString.get((A) value), index, isSelected, cellHasFocus);
      }
    };
  }

  static public JTextField jtextfield() {
    return jTextField();
  }

  static public JTextField jtextfield(String text) {
    return jTextField(text);
  }

  static public JTextField jtextfield(Object o) {
    return jTextField(o);
  }

  static public JComboBox jcombobox(final String... items) {
    return swing(new F0<JComboBox>() {

      public JComboBox get() {
        try {
          return new JComboBox(items);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return new JComboBox(items);";
      }
    });
  }

  static public JComboBox jcombobox(Collection<String> items) {
    return jcombobox(toStringArray(items));
  }

  static public JComboBox jcombobox(Collection<String> items, String selectedItem) {
    return selectItem(selectedItem, jcombobox(items));
  }

  static public JComboBox jcombobox(String selectedItem, Collection<String> items) {
    return jcombobox(items, selectedItem);
  }

  static public JPanel jhgridWithSpacing(Object... parts) {
    return hgridWithSpacing(parts);
  }

  static public <A extends JComponent> A withToolTip(A c, final Object toolTip) {
    return setToolTipText(c, toolTip);
  }

  static public <A extends JComponent> A withToolTip(Object toolTip, A c) {
    return setToolTipText(toolTip, c);
  }

  static public String gtt(JTextComponent c) {
    return getTextTrim(c);
  }

  static public String gtt(JComboBox cb) {
    return getTextTrim(cb);
  }

  static public <A extends Concept> A ccopyFields(Concept x, A y, String... fields) {
    if (x == null || y == null)
      return y;
    if (empty(fields)) {
      for (String field : conceptFields(x)) cset(y, field, cget(x, field));
    } else
      for (String field : fields) {
        Object o = cget(x, field);
        if (o != null)
          cset(y, field, o);
      }
    return y;
  }

  static public boolean notNullOrEmptyString(Object o) {
    return o != null && !eq(o, "");
  }

  static public <A extends Component> A jMinWidthAtLeast(int w, final A c) {
    if (c == null)
      return null;
    return swing(new F0<A>() {

      public A get() {
        try {
          Dimension size = c.getMinimumSize();
          Dimension d = new Dimension(max(w, size.width), size.height);
          c.setMinimumSize(d);
          return jPreferWidth(d.width, c);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "Dimension size = c.getMinimumSize();\r\n    Dimension d = new Dimension(max(w, ...";
      }
    });
  }

  static public JScrollPane jscroll_vertical(JComponent c) {
    return jscroll_trackWidth(c);
  }

  static public JScrollPane jscroll_vertical(Swingable c) {
    return jscroll_trackWidth(c);
  }

  static public boolean isSubclassOfAny(Class a, Collection<Class> b) {
    return any(b, x -> isSubclass(a, x));
  }

  static public boolean isSubclassOfAny(Class a, Class... b) {
    return any(b, x -> isSubclass(a, x));
  }

  static public String plural(String s) {
    return getPlural(s);
  }

  static public String firstToLower(String s) {
    if (empty(s))
      return s;
    return Character.toLowerCase(s.charAt(0)) + s.substring(1);
  }

  static public void addComponentInFront(Container c, Component... l) {
    containerAddFirst(c, l);
  }

  static public <A> Collection<A> addOrCreate(Collection<A> l, A a) {
    return addDyn(l, a);
  }

  static public <A> List<A> addOrCreate(List<A> l, A a) {
    return addDyn(l, a);
  }

  static public <A> Set<A> addOrCreate(Set<A> l, A a) {
    return createOrAddToSet(l, a);
  }

  static public JTextArea typeWriterTextArea() {
    return newTypeWriterTextArea();
  }

  static public JTextArea typeWriterTextArea(String text) {
    return newTypeWriterTextArea(text);
  }

  static public IF0<Integer> g22defaultMaskSideLength;

  static public int g22defaultMaskSideLength() {
    return g22defaultMaskSideLength != null ? g22defaultMaskSideLength.get() : g22defaultMaskSideLength_base();
  }

  final static public int g22defaultMaskSideLength_fallback(IF0<Integer> _f) {
    return _f != null ? _f.get() : g22defaultMaskSideLength_base();
  }

  static public int g22defaultMaskSideLength_base() {
    return 32;
  }

  static public String hijackPrint_tee(Runnable r) {
    final StringBuilder buf = new StringBuilder();
    Object old = interceptPrintInThisThread(new F1<String, Boolean>() {

      public Boolean get(String s) {
        buf.append(s);
        return true;
      }
    });
    try {
      callF(r);
      return str(buf);
    } finally {
      interceptPrintInThisThread(old);
    }
  }

  static public Duration duration(TimestampRange r) {
    return r == null ? Duration.ZERO : r.duration();
  }

  static public JComponent getControls() {
    return showControls_controls;
  }

  static public JPanel rightAlignedLine(Component... components) {
    return jrightAlignedLine(components);
  }

  static public JPanel rightAlignedLine(List<? extends Component> components) {
    return jrightAlignedLine(components);
  }

  static public JComponent showControls_controls;

  static public void showControls(final JComponent controls) {
    {
      swing(() -> {
        hideControls();
        JComponent _controls = withMargin(controls);
        showControls_controls = _controls;
        addToConsole2(showControls_controls);
      });
    }
  }

  static public JPanel northAndCenter(Component n, Component c) {
    return centerAndNorth(c, n);
  }

  static public int withMargin_defaultWidth = 6;

  static public JPanel withMargin(Component c) {
    return withMargin(withMargin_defaultWidth, c);
  }

  static public JPanel withMargin(int w, Component c) {
    return withMargin(w, w, c);
  }

  static public JPanel withMargin(int w, int h, Component c) {
    return withMargin(w, h, w, h, c);
  }

  static public JPanel withMargin(final int top, final int left, final int bottom, final int right, final Component c) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel p = marginPanel();
          p.setBorder(BorderFactory.createEmptyBorder(top, left, bottom, right));
          p.add(c);
          return p;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel p = marginPanel();\r\n    p.setBorder(BorderFactory.createEmptyBorder(to...";
      }
    });
  }

  static public JButton jReloadButton(Runnable action) {
    return jReloadButton("Reload", action);
  }

  static public JButton jReloadButton(String desc, Runnable action) {
    return jimageButton("#1101440", desc, rThread(action));
  }

  static public AutoCloseable tempDisableButton(final JButton b) {
    if (b == null)
      return null;
    boolean wasEnabled = swing(new F0<Boolean>() {

      public Boolean get() {
        try {
          boolean wasEnabled = isEnabled(b);
          if (wasEnabled)
            disableButton(b);
          return wasEnabled;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "bool wasEnabled = isEnabled(b);\r\n    if (wasEnabled)\r\n      disableButton(b);...";
      }
    });
    if (!wasEnabled)
      return null;
    return new AutoCloseable() {

      public String toString() {
        return "enableButton(b);";
      }

      public void close() throws Exception {
        enableButton(b);
      }
    };
  }

  static public JLabel jCenteredLabel(String text) {
    return jcenteredLabel(text);
  }

  static public JLabel jCenteredLabel() {
    return jcenteredLabel();
  }

  static public JScrollPane jscroll(Component c) {
    return swing(() -> {
      return c instanceof JScrollPane ? ((JScrollPane) c) : new JScrollPane(c);
    });
  }

  static public JFastLogView_noWrap jFastLogView_noWrap() {
    return jFastLogView_noWrap("");
  }

  static public JFastLogView_noWrap jFastLogView_noWrap(String text) {
    return withTypeWriterFont(swingNu(JFastLogView_noWrap.class, text));
  }

  static public String renderStackTrace(StackTraceElement[] st) {
    return stackTraceToString(st);
  }

  static public String renderStackTrace(Throwable e) {
    return stackTraceToString(e);
  }

  static public String renderStackTrace(String msg) {
    return renderStackTrace(new Throwable(msg));
  }

  static public <A> List<A> syncGetAndClear(Collection<A> l) {
    return syncCloneAndClearList(l);
  }

  static public <A> A getWeakRef(Reference<A> ref) {
    return ref == null ? null : ref.get();
  }

  static public void cancelAndInterruptThread(Thread t) {
    if (t == null)
      return;
    cancelThread(t);
    t.interrupt();
  }

  static public void setComponent(SingleComponentPanel scp, Component c) {
    setSCPComponent(scp, c);
  }

  static public void setComponent(SingleComponentPanel scp, IF0<Component> c) {
    if (scp != null)
      setComponent(scp, callF(c));
  }

  static public <A extends Component> A _revalidate(A c) {
    return revalidate(c);
  }

  static public void _revalidate(JFrame f) {
    revalidate(f);
  }

  static public void _revalidate(JInternalFrame f) {
    revalidate(f);
  }

  static public Container _getParent(Component c) {
    return getParent(c);
  }

  static public RuntimeException error() {
    throw new RuntimeException("fail");
  }

  static public RuntimeException error(String msg) {
    throw new RuntimeException(msg);
  }

  static public String ok(Object o) {
    return format("ok *", o);
  }

  public static boolean isSnippetID(String s) {
    try {
      parseSnippetID(s);
      return true;
    } catch (RuntimeException e) {
      return false;
    }
  }

  static public String dbBotName(String progIDWithCase) {
    return fsI_flex(progIDWithCase) + " Concepts";
  }

  static public Map<String, Integer> findBot_cache = synchroHashMap();

  static public int findBot_timeout = 5000;

  static public DialogIO findBot(String searchPattern) {
    String subBot = null;
    int i = searchPattern.indexOf('/');
    if (i >= 0 && (isJavaIdentifier(searchPattern.substring(0, i)) || isInteger(searchPattern.substring(0, i)))) {
      subBot = searchPattern.substring(i + 1);
      searchPattern = searchPattern.substring(0, i);
      if (!isInteger(searchPattern))
        searchPattern = "Multi-Port at " + searchPattern + ".";
    }
    if (isInteger(searchPattern))
      return talkToSubBot(subBot, talkTo(parseInt(searchPattern)));
    if (eq(searchPattern, "remote"))
      return talkToSubBot(subBot, talkTo("second.tinybrain.de", 4999));
    Integer port = findBot_cache.get(searchPattern);
    if (port != null)
      try {
        DialogIO io = talkTo("localhost", port);
        io.waitForLine();
        String line = io.readLineNoBlock();
        if (indexOfIgnoreCase(line, searchPattern) == 0) {
          call(io, "pushback", line);
          return talkToSubBot(subBot, io);
        }
      } catch (Exception e) {
        e.printStackTrace();
      }
    List<ProgramScan.Program> bots = quickBotScan();
    for (ProgramScan.Program p : bots) {
      if (indexOfIgnoreCase(p.helloString, searchPattern) == 0) {
        findBot_cache.put(searchPattern, p.port);
        return talkToSubBot(subBot, talkTo("localhost", p.port));
      }
    }
    for (ProgramScan.Program p : bots) {
      String botName = firstPartOfHelloString(p.helloString);
      boolean isVM = startsWithIgnoreCase(p.helloString, "This is a JavaX VM.");
      boolean shouldRecurse = startsWithIgnoreCase(botName, "Multi-Port") || isVM;
      if (shouldRecurse)
        try {
          Map<Number, String> subBots = (Map) unstructure(sendToLocalBotQuietly(p.port, "list bots"));
          for (Number vport : subBots.keySet()) {
            String name = subBots.get(vport);
            if (startsWithIgnoreCase(name, searchPattern))
              return talkToSubBot(vport.longValue(), talkTo("localhost", p.port));
          }
        } catch (Throwable __e) {
          print(exceptionToStringShort(__e));
        }
    }
    return null;
  }

  static public void nohupJavax(final String javaxargs) {
    {
      startThread(new Runnable() {

        public void run() {
          try {
            call(hotwireOnce("#1008562"), "nohupJavax", javaxargs);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "call(hotwireOnce(\"#1008562\"), \"nohupJavax\", javaxargs);";
        }
      });
    }
  }

  static public void nohupJavax(final String javaxargs, final String vmArgs) {
    {
      startThread(new Runnable() {

        public void run() {
          try {
            call(hotwireOnce("#1008562"), "nohupJavax", javaxargs, vmArgs);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "call(hotwireOnce(\"#1008562\"), \"nohupJavax\", javaxargs, vmArgs);";
        }
      });
    }
  }

  static public String fsI(String id) {
    return formatSnippetID(id);
  }

  static public String fsI(long id) {
    return formatSnippetID(id);
  }

  static public long waitForBotStartUp_timeoutSeconds = 60;

  static public String waitForBotStartUp(String botName) {
    for (int i = 0; i < waitForBotStartUp_timeoutSeconds; i++) {
      sleepSeconds(i == 0 ? 0 : 1);
      String addr = getBotAddress(botName);
      if (addr != null)
        return addr;
    }
    throw fail("Bot not found: " + quote(botName));
  }

  static public Object rpc(String botName, String method, Object... args) {
    return unstructure_matchOK2OrFail(sendToLocalBot(botName, rpc_makeCall(method, args)));
  }

  static public Object rpc(DialogIO bot, String method, Object... args) {
    return unstructure_matchOK2OrFail(bot.ask(rpc_makeCall(method, args)));
  }

  static public String rpc_makeCall(String method, Object... args) {
    if (empty(args))
      return "call " + method;
    return format("call *", concatLists((List) ll(method), asList(args)));
  }

  static public <A extends Concept> A uniq(Class<A> c, Object... params) {
    return uniqueConcept(c, params);
  }

  static public <A extends Concept> A uniq(Concepts cc, Class<A> c, Object... params) {
    return uniqueConcept(cc, c, params);
  }

  static public long sysNowPlusSeconds_noPing(double seconds) {
    return sysNow_noPing() + secondsToMS(seconds);
  }

  static public long sysNow_noPing() {
    return System.nanoTime() / 1000000;
  }

  static public <A> IVF1<A> runnableToIVF1(Runnable r) {
    return r == null ? null : a -> r.run();
  }

  static public int withTopAndBottomMargin_defaultWidth = 6;

  static public JPanel withTopAndBottomMargin(Component c) {
    return withTopAndBottomMargin(withTopAndBottomMargin_defaultWidth, withTopAndBottomMargin_defaultWidth, c);
  }

  static public JPanel withTopAndBottomMargin(int topMargin, int bottomMargin, Component c) {
    return swing(() -> {
      JPanel p = new JPanel(new BorderLayout());
      int w = withTopAndBottomMargin_defaultWidth;
      p.setBorder(BorderFactory.createEmptyBorder(topMargin, 0, bottomMargin, 0));
      p.add(c);
      return p;
    });
  }

  static public JPanel jCenteredRaisedSection(Swingable c) {
    return jCenteredRaisedSection("", c);
  }

  static public JPanel jCenteredRaisedSection(String title, Swingable c) {
    return jCenteredRaisedSection(title, wrap(c));
  }

  static public JPanel jCenteredRaisedSection(Component c) {
    return jCenteredRaisedSection("", c);
  }

  static public JPanel jCenteredRaisedSection(String title, Component c) {
    return centerSection(jRaisedSection(title, c));
  }

  static public JScrollPane jscroll_vertical_borderless(JComponent c) {
    return borderlessScrollPane(jscroll_vertical(c));
  }

  static public int vstackWithSpacing_fixed_default = 10;

  static public JPanel vstackWithSpacing_fixed(List parts) {
    return vstackWithSpacing_fixed(parts, vstackWithSpacing_fixed_default);
  }

  static public JPanel vstackWithSpacing_fixed(List parts, int spacing) {
    return swing(() -> {
      JPanel panel = new JPanel(new GridBagLayout());
      GridBagConstraints gbc = new GridBagConstraints();
      gbc.weightx = 1;
      gbc.fill = GridBagConstraints.HORIZONTAL;
      gbc.gridwidth = GridBagConstraints.REMAINDER;
      gbc.insets = new Insets(0, 0, spacing, 0);
      smartAddWithLayout(panel, gbc, flattenToArray(parts));
      gbc.weighty = 1;
      gbc.insets = new Insets(0, 0, 0, 0);
      panel.add(jrigid(), gbc);
      return panel;
    });
  }

  static public JPanel vstackWithSpacing_fixed(Component... parts) {
    return vstackWithSpacing_fixed(vstackWithSpacing_fixed_default, parts);
  }

  static public JPanel vstackWithSpacing_fixed(int spacing, Component... parts) {
    return vstackWithSpacing_fixed(asList(parts), spacing);
  }

  static public JButton tableDependentButton(JTable tbl, String text) {
    return tableDependentButton(tbl, text, null);
  }

  static public JButton tableDependentButton(JTable tbl, String text, Runnable action) {
    return tableDependButton(tbl, jbutton(text, action));
  }

  static public void deleteDB() {
    deleteAllConceptsOfProgram(dbProgramID());
  }

  static public String trim(String s) {
    return s == null ? null : s.trim();
  }

  static public String trim(StringBuilder buf) {
    return buf.toString().trim();
  }

  static public String trim(StringBuffer buf) {
    return buf.toString().trim();
  }

  static public void createEmptyConceptsFileInDir(File dir) {
    File f = newFile(dir, conceptsFileName());
    if (!fileExists(f))
      saveGZStructureToFile(f, litmap());
  }

  static public void disposeFrame(final Component c) {
    disposeWindow(c);
  }

  static public JTextField onEnter(JTextField tf, JButton btn) {
    if (btn != null)
      onEnter(tf, new Runnable() {

        public void run() {
          try {
            clickButton(btn);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "clickButton(btn)";
        }
      });
    return tf;
  }

  static public JTextField onEnter(JTextField tf, Object action) {
    if (action == null || tf == null)
      return tf;
    tf.addActionListener(new java.awt.event.ActionListener() {

      public void actionPerformed(java.awt.event.ActionEvent _evt) {
        try {
          tf.selectAll();
          callF(action);
        } catch (Throwable __e) {
          messageBox(__e);
        }
      }
    });
    return tf;
  }

  static public JButton onEnter(JButton btn, final Object action) {
    if (action == null || btn == null)
      return btn;
    btn.addActionListener(actionListener(action));
    return btn;
  }

  static public JList onEnter(JList list, Object action) {
    list.addKeyListener(enterKeyListener(rCallOnSelectedListItem(list, action)));
    return list;
  }

  static public JComboBox onEnter(final JComboBox cb, Runnable action) {
    {
      swing(() -> {
        if (cb.isEditable()) {
          JTextField text = (JTextField) cb.getEditor().getEditorComponent();
          onEnter(text, action);
        } else {
          cb.getInputMap().put(KeyStroke.getKeyStroke("ENTER"), "enter");
          cb.getActionMap().put("enter", abstractAction("", new Runnable() {

            public void run() {
              try {
                cb.hidePopup();
                callF(action);
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "cb.hidePopup(); callF(action);";
            }
          }));
        }
      });
    }
    return cb;
  }

  static public JTable onEnter(final JTable table, final Object action) {
    table.getInputMap(JComponent.WHEN_ANCESTOR_OF_FOCUSED_COMPONENT).put(KeyStroke.getKeyStroke(KeyEvent.VK_ENTER, 0), "Enter");
    table.getActionMap().put("Enter", new AbstractAction() {

      public void actionPerformed(ActionEvent e) {
        callF(action, table.getSelectedRow());
      }
    });
    return table;
  }

  static public JTextField onEnter(Runnable action, JTextField tf) {
    return onEnter(tf, action);
  }

  static public boolean isValidFileName(String s) {
    return nempty(s) && !eqOneOf(s, ".", "..") && all(characters(s), c -> isValidFileCharacter(c));
  }

  static public boolean dirExists(String path) {
    return path != null && new File(path).isDirectory();
  }

  static public boolean dirExists(File f) {
    return f != null && f.isDirectory();
  }

  static public IVF2<String, JPanel> showForm_makeFrame;

  static public void showForm_makeFrame(String title, JPanel panel) {
    if (showForm_makeFrame != null)
      showForm_makeFrame.get(title, panel);
    else
      showForm_makeFrame_base(title, panel);
  }

  final static public void showForm_makeFrame_fallback(IVF2<String, JPanel> _f, String title, JPanel panel) {
    if (_f != null)
      _f.get(title, panel);
    else
      showForm_makeFrame_base(title, panel);
  }

  static public void showForm_makeFrame_base(String title, JPanel panel) {
    handleEscapeKey(minFrameWidth(showPackedFrame(title, withMargin(panel)), 400));
  }

  static public void desktopOpen(File f) {
    try {
      if (f != null) {
        print("desktopOpen: " + f2s(f));
        Desktop.getDesktop().open(f);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void messageBox(final String msg) {
    print(msg);
    {
      swing(() -> {
        JOptionPane.showMessageDialog(null, msg, "JavaX", JOptionPane.INFORMATION_MESSAGE);
      });
    }
  }

  static public void messageBox(Throwable e) {
    printStackTrace(e);
    messageBox(hideCredentials(innerException2(e)));
  }

  static public int dir2zip(File inDir, ZipOutputStream outZip, String outPrefix) {
    try {
      List<File> files = new ArrayList();
      for (File f : inDir.listFiles()) if (f.isFile())
        files.add(f);
      sortFilesByName(files);
      for (File f : files) {
        System.out.println("Copying " + f.getName());
        outZip.putNextEntry(new ZipEntry(outPrefix + f.getName()));
        InputStream fin = new FileInputStream(f);
        copyStream(fin, outZip);
        fin.close();
      }
      return files.size();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public int dir2zip(File inDir, ZipOutputStream outZip) {
    return dir2zip(inDir, outZip, "");
  }

  static public int dir2zip(String inDir, ZipOutputStream outZip) {
    return dir2zip(new File(inDir), outZip, "");
  }

  static public int dir2zip(File inDir, File zip) {
    return dir2zip(inDir, zip, "");
  }

  static public int dir2zip(File inDir, File zip, String outPrefix) {
    try {
      mkdirsForFile(zip);
      FileOutputStream fout = new FileOutputStream(zip);
      ZipOutputStream outZip = new ZipOutputStream(fout);
      try {
        return dir2zip(inDir, outZip, outPrefix);
      } finally {
        outZip.close();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public GazAICredentials gazAICredentialsFromJavaXSecret() {
    var credFile = javaxSecretDir("gaz.ai-credentials.txt");
    return GazAICredentials.fromFile(credFile);
  }

  static public boolean renameFileVerbose(File a, File b) {
    if (a == null || b == null)
      return false;
    boolean result = renameFile(a, b);
    print("Renaming " + f2s(a) + " to " + f2s(b) + "? " + yesNo2(result));
    return result;
  }

  static public boolean renameFileVerbose(File a, String newName) {
    return renameFileVerbose(a, fileInSameDir(a, newName));
  }

  static public <A, B> boolean syncMapRemoveKeyAndValuePair(Map<A, B> map, A key, B value) {
    if (map == null || key == null || value == null)
      return false;
    synchronized (collectionMutex(map)) {
      B actualValue = map.get(key);
      if (eq(actualValue, value)) {
        map.remove(key);
        return true;
      }
      return false;
    }
  }

  static public <A, B> void mapPut(Map<A, B> map, A key, B value) {
    if (map != null && key != null && value != null)
      map.put(key, value);
  }

  static public <A, B> void mapPut(Map<A, B> map, Pair<A, B> p) {
    if (map != null && p != null)
      map.put(p.a, p.b);
  }

  static public JTabbedPane jtabs(Object... x) {
    return fillJTabs(swingNu(JTabbedPane.class), x);
  }

  static public int inc(AtomicInteger i) {
    return incAtomicInt(i);
  }

  static public int inc(AtomicInteger i, int delta) {
    return incAtomicInt(i, delta);
  }

  static public long inc(AtomicLong l) {
    return incAtomicLong(l);
  }

  static public long inc(AtomicLong l, long b) {
    return l.addAndGet(b);
  }

  static public int inc(IntVar v) {
    synchronized (v) {
      int val = v.get() + 1;
      v.set(val);
      return val;
    }
  }

  static public int inc(int i) {
    return i + 1;
  }

  static public long inc(long l) {
    return l + 1;
  }

  static public void catchError(DoneFlag doneFlag, Runnable r) {
    try {
      {
        if (r != null)
          r.run();
      }
    } catch (Throwable e) {
      doneFlag.setError(e);
    }
  }

  static public double fileAgeInSeconds(File f) {
    return f == null ? -1 : msToSeconds(now() - fileModificationTime(f));
  }

  static public String nSeconds(long n) {
    return n2(n, "second");
  }

  static public String nSeconds(Collection l) {
    return nSeconds(l(l));
  }

  static public int iceil(double d) {
    return (int) Math.ceil(d);
  }

  public static File mkdirsForFile(File file) {
    File dir = file.getParentFile();
    if (dir != null) {
      dir.mkdirs();
      if (!dir.isDirectory())
        if (dir.isFile())
          throw fail("Please delete the file " + f2s(dir) + " - it is supposed to be a directory!");
        else
          throw fail("Unknown IO exception during mkdirs of " + f2s(file));
    }
    return file;
  }

  public static String mkdirsForFile(String path) {
    mkdirsForFile(new File(path));
    return path;
  }

  static public Path toPath(File f) {
    return f == null ? null : f.toPath();
  }

  static public void printExceptionShort(Throwable e) {
    printExceptionShort("", e);
  }

  static public void printExceptionShort(String prefix, Throwable e) {
    print(prefix, exceptionToStringShort(e));
  }

  static public File saveTextFileWithoutTemp(File file, String contents) {
    try {
      mkdirsForFile(file);
      var fileOutputStream = newFileOutputStream(file);
      try {
        var outputStreamWriter = new OutputStreamWriter(fileOutputStream, "UTF-8");
        var printWriter = new PrintWriter(outputStreamWriter);
        printWriter.print(unnull(contents));
        printWriter.close();
        return file;
      } finally {
        _close(fileOutputStream);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public FixedRateTimer doEvery(long delay, final Object r) {
    return doEvery(delay, delay, r);
  }

  static public FixedRateTimer doEvery(long delay, long firstDelay, final Object r) {
    FixedRateTimer timer = new FixedRateTimer(shorten(programID() + ": " + r, 80));
    timer.scheduleAtFixedRate(smartTimerTask(r, timer, toInt(delay)), toInt(firstDelay), toInt(delay));
    return vmBus_timerStarted(timer);
  }

  static public FixedRateTimer doEvery(double initialSeconds, double delaySeconds, final Object r) {
    return doEvery(toMS(delaySeconds), toMS(initialSeconds), r);
  }

  static public FixedRateTimer doEvery(double delaySeconds, final Object r) {
    return doEvery(toMS(delaySeconds), r);
  }

  static public File touchFile(File file) {
    try {
      closeRandomAccessFile(newRandomAccessFile(mkdirsForFile(file), "rw"));
      return file;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String localDateWithSeconds(long time) {
    SimpleDateFormat format = simpleDateFormat_local("yyyy/MM/dd HH:mm:ss");
    return format.format(time);
  }

  static public String localDateWithSeconds() {
    return localDateWithSeconds(now());
  }

  static public double elapsedMinutes_timestamp(long time) {
    return toMinutes(now() - time);
  }

  static public double elapsedSeconds_timestamp(long time) {
    return toSeconds(now() - time);
  }

  static public String shortenClassNames(String s) {
    return regexpReplace(s, "[\\w\\.\\$]+", matcher -> shortenClassName(matcher.group()));
  }

  static public IterableIterator<Integer> countIterator(int b) {
    return countIterator(0, b);
  }

  static public IterableIterator<Integer> countIterator(int a, int b) {
    return countIterator_exclusive(a, b);
  }

  static public <A> IterableIterator<A> countIterator(int b, IF1<Integer, A> f) {
    return countIterator(0, b, f);
  }

  static public <A> IterableIterator<A> countIterator(int a, int b, IF1<Integer, A> f) {
    return countIterator_exclusive(a, b, f);
  }

  static public IterableIterator<Integer> countIterator(int a, int b, int step) {
    return countIterator_exclusive_step(a, b, step);
  }

  static public <A> IterableIterator<A> countIterator(double a, double b, double step, IF1<Double, A> f) {
    return countIterator_exclusive_step(a, b, step, f);
  }

  static public <A> IterableIterator<Double> countIterator(double a, double b, double step) {
    return countIterator_exclusive_step(a, b, step);
  }

  static public <A> IterableIterator<A> countIterator(IF1<Double, A> f, double a, double b, double step) {
    return countIterator(a, b, step, f);
  }

  static public <A> IterableIterator<A> countIterator(IF1<Integer, A> f, int b) {
    return countIterator(f, 0, b);
  }

  static public <A> IterableIterator<A> countIterator(IF1<Integer, A> f, int a, int b) {
    return countIterator_exclusive(a, b, f);
  }

  static public <A> IterableIterator<Integer> countIterator(List l) {
    return countIterator(l(l));
  }

  static public <A> A replaceIfEqual(A a, A b, A c) {
    return eq(a, b) ? c : a;
  }

  static public String replaceRegexp(String s, String pat, IF1<Matcher, String> f) {
    return regexpReplace(s, pat, f);
  }

  static public String replaceRegexp(String s, String pat, String replacement) {
    return regexpReplace(s, pat, replacement);
  }

  static public <A> void setLast(List<A> l, A a) {
    replaceLastElement(l, a);
  }

  static public String concatMapStrings(Object f, Iterable l) {
    return concatMap_strings(f, l);
  }

  static public String concatMapStrings(Object f, Object[] l) {
    return concatMap_strings(f, l);
  }

  static public String concatMapStrings(Iterable l, Object f) {
    return concatMap_strings(l, f);
  }

  static public <A> String concatMapStrings(Iterable<A> l, IF1<A, String> f) {
    return concatMap_strings(l, f);
  }

  static public <A> String concatMapStrings(IF1<A, String> f, Iterable<A> l) {
    return concatMap_strings(f, l);
  }

  static public <A> String concatMapStrings(IF1<A, String> f, A[] l) {
    return concatMap_strings(f, l);
  }

  static public String curly(String s) {
    return optionalCurlyBrace(s);
  }

  static public String appendNewLineIfNempty(String s) {
    return empty(s) ? "" : s + "\n";
  }

  static public String joinNemptiesWithEmptyLines(List<String> l) {
    return joinWithEmptyLines(nempties(l));
  }

  static public String joinNemptiesWithEmptyLines(String... l) {
    return joinNemptiesWithEmptyLines(asList(l));
  }

  static public String lines_rtrim(Collection lines) {
    return rtrim_fromLines(lines);
  }

  static public List<String> paragraphs(String text) {
    return paragraphsFromText(text);
  }

  static public String paragraphs(Iterable<String> l) {
    return joinWithEmptyLines(l);
  }

  static public List<String> nempties(Collection<String> c) {
    return filterNempty(c);
  }

  static public String toJava(Object o) {
    return str(new ToJava().get(o));
  }

  static public List<Integer> countIteratorToList_incl(int b) {
    return countIteratorToList_incl(0, b);
  }

  static public List<Integer> countIteratorToList_incl(int a, int b) {
    return countIteratorToList_inclusive(a, b);
  }

  static public <A> List<A> countIteratorToList_incl(int b, IF1<Integer, A> f) {
    return countIteratorToList_incl(0, b, f);
  }

  static public <A> List<A> countIteratorToList_incl(int a, int b, IF1<Integer, A> f) {
    return countIteratorToList_inclusive(a, b, f);
  }

  static public List<Integer> countIteratorToList_incl(int a, int b, int step) {
    return countIteratorToList_inclusive(a, b, step);
  }

  static public <A> List<A> countIteratorToList_incl(double a, double b, double step, IF1<Double, A> f) {
    return countIteratorToList_inclusive(a, b, step, f);
  }

  static public <A> List<Double> countIteratorToList_incl(double a, double b, double step) {
    return countIteratorToList_inclusive(a, b, step);
  }

  static public <A> List<A> countIteratorToList_incl(IF1<Double, A> f, double a, double b, double step) {
    return countIteratorToList_inclusive(f, a, b, step);
  }

  static public <A> List<A> countIteratorToList_incl(IF1<Integer, A> f, int a, int b) {
    return countIteratorToList_incl(f, a, b, 1);
  }

  static public <A> List<A> countIteratorToList_incl(IF1<Integer, A> f, int a, int b, int step) {
    return countIteratorToList_inclusive(f, a, b, step);
  }

  static public List<String> allToString(Iterable c) {
    List<String> l = new ArrayList();
    for (Object o : unnull(c)) l.add(str(o));
    return l;
  }

  static public List<String> allToString(Object[] c) {
    List<String> l = new ArrayList();
    for (Object o : unnull(c)) l.add(str(o));
    return l;
  }

  static public String roundBracketed(String s) {
    return roundBracket(s);
  }

  static public String lambdaArgsToString_pureJava(String[] args) {
    return l(args) == 1 ? first(args) : roundBracketed(joinWithComma(args));
  }

  static public String lambdaArgsToString_pureJava(List<String> args) {
    return lambdaArgsToString_pureJava(toStringArray(args));
  }

  static public String joinNemptiesWithSpace(String... strings) {
    return joinNempties(" ", strings);
  }

  static public String joinNemptiesWithSpace(Collection<String> strings) {
    return joinNempties(" ", strings);
  }

  static public <A, B> List<B> mapWithIndex(List<A> l, IF2<Integer, A, B> f) {
    List<B> out = emptyList(l);
    for (int i = 0; i < l(l); i++) out.add(f.get(i, l.get(i)));
    return out;
  }

  static public <A, B> List<B> mapWithIndex(IF2<Integer, A, B> f, List<A> l) {
    return mapWithIndex(l, f);
  }

  static public String addSuffix(String s, String suffix) {
    return s == null || s.endsWith(suffix) ? s : s + suffix;
  }

  public static String rtrim(String s) {
    if (s == null)
      return null;
    int i = s.length();
    while (i > 0 && " \t\r\n".indexOf(s.charAt(i - 1)) >= 0) --i;
    return i < s.length() ? s.substring(0, i) : s;
  }

  static public String unicode_downPointingTriangle() {
    return charToString(0x25BC);
  }

  static public void addActionListener(JTextField tf, final Runnable action) {
    onEnter(tf, action);
  }

  static public void addActionListener(final JComboBox cb, final Runnable action) {
    if (cb != null) {
      swing(() -> {
        cb.addActionListener(actionListener(action));
      });
    }
  }

  static public void addActionListener(final AbstractButton b, final Runnable action) {
    if (b != null) {
      swing(() -> {
        b.addActionListener(actionListener(action));
      });
    }
  }

  static public void fillJPopupMenu(JPopupMenu m, Object... x) {
    if (x == null)
      return;
    for (int i = 0; i < l(x); i++) {
      Object o = x[i], y = get(x, i + 1);
      if (o instanceof IVF1)
        callF(o, m);
      else if (o instanceof List)
        fillJPopupMenu(m, asArray((List) o));
      else if (isMenuSeparatorIndicator(o))
        m.addSeparator();
      else if (o instanceof LiveValue && ((LiveValue) o).getType() == String.class && isRunnableX(y)) {
        final LiveValue<String> lv = (LiveValue<String>) o;
        final JMenuItem mi = jmenuItem("", y);
        bindLiveValueListenerToComponent(mi, lv, new Runnable() {

          public void run() {
            try {
              String s = lv.get();
              if (isCurlyBracketed(s)) {
                setEnabled(mi, false);
                s = unCurlyBracket(s);
              } else
                setEnabled(mi, true);
              setText(mi, s);
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "String s = lv!;\r\n        if (isCurlyBracketed(s)) {\r\n          setEnabled(mi,...";
          }
        });
        m.add(mi);
      } else if (o instanceof String && isRunnableX(y)) {
        m.add(jmenuItem((String) o, y));
        ++i;
      } else if (o instanceof JMenuItem)
        m.add((JMenuItem) o);
      else if (o instanceof String || o instanceof Action || o instanceof Component)
        call(m, "add", o);
      else if (o != null)
        print("Unknown menu item: " + o);
    }
  }

  static public int getPreferredWidth(Component c) {
    return preferredWidth(c);
  }

  static public Timer installTimer(JComponent component, Object r, long delay) {
    return installTimer(component, r, delay, delay);
  }

  static public Timer installTimer(RootPaneContainer frame, long delay, Object r) {
    return installTimer(frame.getRootPane(), r, delay, delay);
  }

  static public Timer installTimer(JComponent component, long delay, Object r) {
    return installTimer(component, r, delay, delay);
  }

  static public Timer installTimer(JComponent component, long delay, long firstDelay, Object r) {
    return installTimer(component, r, delay, firstDelay);
  }

  static public Timer installTimer(final JComponent component, final Object r, final long delay, final long firstDelay) {
    return installTimer(component, r, delay, firstDelay, true);
  }

  static public Timer installTimer(final JComponent component, final Object r, final long delay, final long firstDelay, final boolean repeats) {
    if (component == null)
      return null;
    return (Timer) swingAndWait(new F0<Object>() {

      public Object get() {
        try {
          final Var<Timer> timer = new Var();
          timer.set(new Timer(toInt(delay), new java.awt.event.ActionListener() {

            public void actionPerformed(java.awt.event.ActionEvent _evt) {
              try {
                AutoCloseable __1 = tempActivity(r);
                try {
                  try {
                    if (!allPaused())
                      if (isFalse(callF(r)))
                        cancelTimer(timer.get());
                  } catch (Throwable __e) {
                    pcallFail(__e);
                  }
                } finally {
                  _close(__1);
                }
              } catch (Throwable __e) {
                messageBox(__e);
              }
            }
          }));
          timer.get().setInitialDelay(toInt(firstDelay));
          timer.get().setRepeats(repeats);
          bindTimerToComponent(timer.get(), component);
          return timer.get();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "final new Var<Timer> timer;\r\n    timer.set(new Timer(toInt(delay), actionList...";
      }
    });
  }

  static public Timer installTimer(RootPaneContainer frame, long delay, long firstDelay, Object r) {
    return installTimer(frame.getRootPane(), delay, firstDelay, r);
  }

  static public <A extends JComponent> A setDoubleBuffered(A c) {
    return setDoubleBuffered(c, true);
  }

  static public <A extends JComponent> A setDoubleBuffered(A c, boolean b) {
    {
      swing(() -> {
        {
          if (c != null)
            c.setDoubleBuffered(b);
        }
      });
    }
    return c;
  }

  static public Map<Integer, Integer> rsyntaxTextArea_fixNumPad_map = litmap(KeyEvent.VK_UP, KeyEvent.VK_KP_UP, KeyEvent.VK_DOWN, KeyEvent.VK_KP_DOWN, KeyEvent.VK_LEFT, KeyEvent.VK_KP_LEFT, KeyEvent.VK_RIGHT, KeyEvent.VK_KP_RIGHT);

  static public boolean rsyntaxTextArea_fixNumPad_done = false;

  static public void rsyntaxTextArea_fixNumPad() {
    if (rsyntaxTextArea_fixNumPad_done)
      return;
    RSyntaxTextAreaDefaultInputMap inputMap = new RSyntaxTextAreaDefaultInputMap();
    for (KeyStroke key : inputMap.keys()) {
      Integer code = rsyntaxTextArea_fixNumPad_map.get(key.getKeyCode());
      if (code != null)
        inputMap.put(KeyStroke.getKeyStroke(code, key.getModifiers()), inputMap.get(key));
    }
    UIManager.put("RSyntaxTextAreaUI.inputMap", inputMap);
  }

  static public RSyntaxTextArea javaxSyntaxTextArea() {
    return swing(new F0<RSyntaxTextArea>() {

      public RSyntaxTextArea get() {
        try {
          RSyntaxTextArea textArea = new RSyntaxTextArea(1, 10);
          initSyntaxTextArea(textArea);
          textArea.setSyntaxEditingStyle(SyntaxConstants.SYNTAX_STYLE_JAVA);
          return textArea;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "RSyntaxTextArea textArea = new RSyntaxTextArea(1, 10);\r\n    initSyntaxTextAre...";
      }
    });
  }

  static public List<JMenu> getMenus(JMenuBar mb) {
    if (mb == null)
      return null;
    return countIteratorAsList(mb.getMenuCount(), i -> mb.getMenu(i));
  }

  static public List<JMenuItem> getMenuItems(JMenu menu) {
    if (menu == null)
      return null;
    return nonNulls(countIterator(menu.getItemCount(), i -> menu.getItem(i)));
  }

  static public List<JMenuItem> getMenuItems(JPopupMenu menu) {
    if (menu == null)
      return null;
    return instancesOf(JMenuItem.class, asList(menu.getSubElements()));
  }

  static public void showDialogOnSameScreen(JDialog dialog, Component c) {
    swing(() -> {
      if (dialog == null)
        return;
      Window w = getWindow(c);
      if (w != null)
        centerWindowWithin(dialog, screenBounds_safe(screenNrOfWindow(w)));
      dialog.setVisible(true);
    });
  }

  static public Font deriveFont(Font font, float size) {
    return font == null ? null : font.deriveFont(size);
  }

  static public java.util.Timer doLater_daemon(long delay, final Object r) {
    final java.util.Timer timer = new java.util.Timer(true);
    timer.schedule(timerTask(r, timer), delay);
    return timer;
  }

  static public java.util.Timer doLater_daemon(double delaySeconds, final Object r) {
    return doLater_daemon(toMS(delaySeconds), r);
  }

  static public void cancelTimer(javax.swing.Timer timer) {
    if (timer != null)
      timer.stop();
  }

  static public void cancelTimer(java.util.Timer timer) {
    if (timer != null)
      timer.cancel();
  }

  static public void cancelTimer(Object o) {
    if (o instanceof java.util.Timer)
      cancelTimer((java.util.Timer) o);
    else if (o instanceof javax.swing.Timer)
      cancelTimer((javax.swing.Timer) o);
    else if (o instanceof AutoCloseable) {
      try {
        ((AutoCloseable) o).close();
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }
  }

  static public <A, B> NavigableSet<A> navigableKeys(NavigableMap<A, B> map) {
    return map == null ? new TreeSet() : map.navigableKeySet();
  }

  static public <A> NavigableSet<A> navigableKeys(MultiSet<A> ms) {
    return ((NavigableMap) ms.map).navigableKeySet();
  }

  static public <A, B> NavigableSet<A> navigableKeys(MultiMap<A, B> mm) {
    return ((NavigableMap) mm.data).navigableKeySet();
  }

  static public <A, B> Map<A, List<B>> toMap(MultiMap<A, B> m) {
    return multiMapToMap(m);
  }

  static public GridBagConstraints gridBagConstraints_vstack_1(int spacing) {
    return gridBagConstraints_vstack_1(spacing / 2, spacing / 2);
  }

  static public GridBagConstraints gridBagConstraints_vstack_1(int spacingTop, int spacingBottom) {
    GridBagConstraints gbc = new GridBagConstraints();
    gbc.weightx = 1;
    gbc.fill = GridBagConstraints.HORIZONTAL;
    gbc.gridwidth = GridBagConstraints.REMAINDER;
    gbc.insets = new Insets(spacingTop, 0, spacingBottom, 0);
    return gbc;
  }

  static public GridBagConstraints gridBagConstraints_vstack_rest() {
    GridBagConstraints gbc = gridBagConstraints_vstack_1(0);
    gbc.weighty = 1;
    return gbc;
  }

  static public Pt toPt(Point p) {
    return p == null ? null : new Pt(p.x, p.y);
  }

  static public Pt toPt(Dimension d) {
    return d == null ? null : new Pt(d.width, d.width);
  }

  static public String quoteBorderless(Object o) {
    if (o == null)
      return "null";
    return quoteBorderless(str(o));
  }

  static public String quoteBorderless(String s) {
    if (s == null)
      return "null";
    StringBuilder out = new StringBuilder((int) (l(s) * 1.5));
    quoteBorderless_impl(s, out);
    return out.toString();
  }

  static public void quoteBorderless_impl(String s, StringBuilder out) {
    int l = s.length();
    for (int i = 0; i < l; i++) {
      char c = s.charAt(i);
      if (c == '\\' || c == '"')
        out.append('\\').append(c);
      else if (c == '\r')
        out.append("\\r");
      else if (c == '\n')
        out.append("\\n");
      else
        out.append(c);
    }
  }

  static public int lineNrToCharIndex(String s, int lineNr) {
    int i = 0;
    while (--lineNr > 0) i = smartIndexOf(s, '\n', i) + 1;
    return i;
  }

  static public int lengthOfLine(String text, int lineNr) {
    return l(getFromIterator(linesIterator(text), lineNr));
  }

  static public boolean stdEq2(Object a, Object b) {
    if (a == null)
      return b == null;
    if (b == null)
      return false;
    if (a.getClass() != b.getClass())
      return false;
    for (String field : allFields(a)) if (neq(getOpt(a, field), getOpt(b, field)))
      return false;
    return true;
  }

  static public int stdHash2(Object a) {
    if (a == null)
      return 0;
    return stdHash(a, toStringArray(allFields(a)));
  }

  static public double doubleRatio(double x, double y) {
    return y == 0 ? 0 : x / y;
  }

  static public double doubleRatio(Seconds x, Seconds y) {
    return doubleRatio(x.get(), y.get());
  }

  static public int toIntPercent(double ratio) {
    return roundToInt(ratio * 100);
  }

  static public int toIntPercent(float ratio) {
    return toIntPercent((double) ratio);
  }

  static public GrabbableIntPixels grabbableIntPixels_fastOrSlow(BufferedImage image) {
    try {
      try {
        GrabbableIntPixels gp = grabbableIntPixels(image);
        if (gp != null)
          return gp;
      } catch (Throwable __e) {
        pcallFail(__e);
      }
      int w = image.getWidth(), h = image.getHeight();
      int[] data = new int[w * h];
      PixelGrabber pixelGrabber = new PixelGrabber(image, 0, 0, w, h, data, 0, w);
      if (!pixelGrabber.grabPixels())
        throw fail("Could not grab pixels");
      return new GrabbableIntPixels(data, w, h, 0, w);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void arrayCopy(Object[] a, Object[] b) {
    arraycopy(a, b);
  }

  static public void arrayCopy(Object src, Object dest, int destPos, int n) {
    arrayCopy(src, 0, dest, destPos, n);
  }

  static public void arrayCopy(Object src, int srcPos, Object dest, int destPos, int n) {
    arraycopy(src, srcPos, dest, destPos, n);
  }

  static public boolean inRange(int x, int n) {
    return x >= 0 && x < n;
  }

  static public boolean inRange(int x, List l) {
    return inRange(x, l(l));
  }

  static public boolean inRange(int x, int a, int b) {
    return x >= a && x < b;
  }

  static public int getPixel(BufferedImage img, int x, int y) {
    return img.getRGB(x, y);
  }

  static public int getPixel(BufferedImage img, Pt p) {
    return img.getRGB(p.x, p.y);
  }

  static public int limitToUByte(int i) {
    return max(0, min(255, i));
  }

  static public void setPixel(BufferedImage img, int p_x, int p_y, Color color) {
    setPixel(img, pt(p_x, p_y), color);
  }

  static public void setPixel(BufferedImage img, Pt p, Color color) {
    {
      if (img != null)
        img.setRGB(p.x, p.y, colorToIntOpaque(color));
    }
  }

  static public void setPixel(Graphics2D g, int p_x, int p_y, Color color) {
    setPixel(g, pt(p_x, p_y), color);
  }

  static public void setPixel(Graphics2D g, Pt p, Color color) {
    g.setColor(color);
    g.drawRect(p.x, p.y, 1, 1);
  }

  static public Component jrigid() {
    return javax.swing.Box.createRigidArea(new Dimension(0, 0));
  }

  static public int countComponents(Container c) {
    return numberOfChildren(c);
  }

  static public <A> A[] dropLast(A[] a) {
    return dropLast(a, 1);
  }

  static public <A> A[] dropLast(A[] a, int n) {
    if (a == null)
      return null;
    n = Math.min(n, a.length);
    A[] b = arrayOfSameType(a, a.length - n);
    System.arraycopy(a, 0, b, 0, b.length);
    return b;
  }

  static public <A> List<A> dropLast(List<A> l) {
    return subList(l, 0, l(l) - 1);
  }

  static public <A> List<A> dropLast(int n, List<A> l) {
    return subList(l, 0, l(l) - n);
  }

  static public <A> List<A> dropLast(Iterable<A> l) {
    return dropLast(asList(l));
  }

  static public String dropLast(String s) {
    return substring(s, 0, l(s) - 1);
  }

  static public String dropLast(String s, int n) {
    return substring(s, 0, l(s) - n);
  }

  static public String dropLast(int n, String s) {
    return dropLast(s, n);
  }

  static public List<Component> getComponents(final Component c) {
    return !(c instanceof Container) ? emptyList() : asList(swing(new F0<Component[]>() {

      public Component[] get() {
        try {
          return ((Container) c).getComponents();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return ((Container) c).getComponents();";
      }
    }));
  }

  static public void onSelectionChanged(JList list, VF1<String> f) {
    onSelectionChanged(list, toIVF1(f));
  }

  static public void onSelectionChanged(JList list, IVF1<String> f) {
    if (list != null && f != null) {
      swing(() -> {
        list.addListSelectionListener(new ListSelectionListener() {

          public void valueChanged(ListSelectionEvent e) {
            pcallF(f, getSelectedItem(list));
          }
        });
      });
    }
  }

  static public Map mapValues(Object func, Map map) {
    Map m = similarEmptyMap(map);
    for (Object key : keys(map)) m.put(key, callF(func, map.get(key)));
    return m;
  }

  static public <A, B, C> Map<A, C> mapValues(Map<A, B> map, IF1<B, C> f) {
    return mapValues(f, map);
  }

  static public <A, B, C> Map<A, C> mapValues(IF1<B, C> f, Map<A, B> map) {
    Map m = similarEmptyMap(map);
    for (Map.Entry<? extends A, ? extends B> __0 : _entrySet(map)) {
      A key = __0.getKey();
      B val = __0.getValue();
      m.put(key, f.get(val));
    }
    return m;
  }

  static public Map mapValues(Map map, Object func) {
    return mapValues(func, map);
  }

  static public <A, B, C> MultiMap<A, C> mapValues(IF1<B, C> func, MultiMap<A, B> mm) {
    return mapMultiMapValues(func, mm);
  }

  static public <A, B, C> MultiMap<A, C> mapValues(MultiMap<A, B> mm, IF1<B, C> func) {
    return mapValues(func, mm);
  }

  static public Object renderForTable_noStruct(Object o) {
    {
      var __1 = toBufferedImageOpt(o);
      if (__1 != null)
        return __1;
    }
    if (o instanceof String && containsNewLine((String) o))
      return escapeNewLines(dropTrailingNewLine((String) o));
    if (o instanceof Collection)
      return joinWithComma((Collection) o);
    return strOrNull(o);
  }

  static public Map<String, Object> allConceptFieldsAsMapExcept(Concept c, Collection<String> excludedFields) {
    Map<String, Object> map = new HashMap();
    for (String field : unnullForIteration(listMinusSet(conceptFields(c), excludedFields))) map.put(field, cget(c, field));
    return map;
  }

  static public String dynShortClassName(Object o) {
    return shortDynamicClassName(o);
  }

  static public boolean sexyTable_drag = false;

  static public JTable sexyTable() {
    final JTable table = sexyTableWithoutDrag();
    if (sexyTable_drag)
      tableEnableTextDrag(table);
    return table;
  }

  static public JTable setTableFontSizes(float size, JTable table) {
    if (table == null)
      return null;
    {
      swing(() -> {
        setFontSize(table.getTableHeader(), size);
        setFontSize(table, size);
      });
    }
    return table;
  }

  static public JTable setTableFontSizes(JTable table, float size) {
    return setTableFontSizes(size, table);
  }

  static public JTable setRowHeight(final int h, final JTable t) {
    if (t != null) {
      swing(() -> {
        t.setRowHeight(h);
      });
    }
    return t;
  }

  static public JTable setRowHeight(JTable t, int h) {
    return setRowHeight(h, t);
  }

  static public void onTableSelectionChanged(final JTable table, final Runnable r) {
    {
      swing(() -> {
        table.getSelectionModel().addListSelectionListener(new ListSelectionListener() {

          public void valueChanged(ListSelectionEvent e) {
            callF(r);
          }
        });
      });
    }
  }

  static public JTable onDoubleClickOrEnter(JTable table, Runnable runnable) {
    return onDoubleClickOrEnter(table, (Object) runnable);
  }

  static public JTable onDoubleClickOrEnter(final JTable table, Object runnable) {
    onDoubleClick(table, runnable);
    onEnter(table, runnable);
    return table;
  }

  static public JList onDoubleClickOrEnter(final JList list, final Object runnable) {
    onDoubleClick(list, runnable);
    onEnter(list, runnable);
    return list;
  }

  static public JTable onDoubleClickOrEnter(Object runnable, JTable table) {
    return onDoubleClickOrEnter(table, runnable);
  }

  static public Set toSet(Object[] array) {
    return asSet(array);
  }

  static public Set<String> toSet(String[] array) {
    return asSet(array);
  }

  static public <A> Set<A> toSet(Iterable<A> l) {
    return asSet(l);
  }

  static public <A> Set<A> toSet(MultiSet<A> ms) {
    return asSet(ms);
  }

  static public Object[] mapToParams(Map map) {
    return mapToObjectArray(map);
  }

  static public <A> A postProcess(Object f, A a) {
    return callPostProcessor(f, a);
  }

  static public <A> A postProcess(IF1<A, A> f, A a) {
    return callPostProcessor(f, a);
  }

  static public <A> boolean addIfNotNull(Collection<A> l, A a) {
    return a != null && l != null & l.add(a);
  }

  static public <A> void addIfNotNull(MultiSet<A> ms, A a) {
    if (a != null && ms != null)
      ms.add(a);
  }

  static public <A> List<A> reverseInPlace(List<A> l) {
    return reverseList(l);
  }

  static public JTable dataToTable_uneditable(Object data, final JTable table) {
    return dataToTable_uneditable(table, data);
  }

  static public JTable dataToTable_uneditable(final JTable table, final Object data) {
    if (table != null) {
      swing(() -> {
        dataToTable(table, data, true);
        makeTableUneditable(table);
      });
    }
    return table;
  }

  static public JTable dataToTable_uneditable(final Object data) {
    return dataToTable_uneditable(showTable(), data);
  }

  static public JTable dataToTable_uneditable(Object data, String title) {
    return dataToTable_uneditable(showTable(title), data);
  }

  static public void tableColumnMaxWidth(final JTable table, final int columnIdx, final int width) {
    {
      swing(() -> {
        try {
          if (inRange(columnIdx, table.getColumnCount()))
            table.getColumnModel().getColumn(columnIdx).setMaxWidth(width);
        } catch (Throwable __e) {
          pcallFail(__e);
        }
      });
    }
  }

  static public void updateEnclosingTabTitleWithCount(JComponent c, int n) {
    Pair<JTabbedPane, Integer> p = enclosingTab(c);
    if (p == null)
      return;
    setTabTitle(p.a, p.b, appendBracketedCount(dropTrailingBracketedCount(getTabTitle(p.a, p.b)), n));
  }

  static public int tableColumnCount(JTable table) {
    return tableNumColumns(table);
  }

  static public void setColumnName(final JTable table, final int idx, final String name) {
    if (table != null) {
      swing(() -> {
        if (table.getColumnCount() > idx)
          table.getColumnModel().getColumn(idx).setHeaderValue(name);
      });
    }
  }

  static public Map<String, String> humanizeFormLabel_replacements = litmap("id", "ID", "md5", "MD5");

  static public String humanizeFormLabel(String s) {
    if (!isIdentifier(s))
      return s;
    return firstToUpper(joinWithSpace(replaceElementsUsingMap(splitCamelCase(s), humanizeFormLabel_replacements)).replace("I D", "ID"));
  }

  static public String getColumnName(final JTable table, final int idx) {
    return table == null ? null : swing(new F0<String>() {

      public String get() {
        try {
          return table.getColumnCount() <= idx ? null : str(table.getColumnModel().getColumn(idx).getHeaderValue());
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return table.getColumnCount() <= idx ? null\r\n      : str(table.getColumnModel...";
      }
    });
  }

  static public Object selectedTableCell(JTable t, int col) {
    return getTableCell(t, selectedTableRow(t), col);
  }

  static public Object selectedTableCell(final JTable t) {
    return swing(new F0<Object>() {

      public Object get() {
        try {
          return selectedTableCell(t, t.getSelectedColumn());
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return selectedTableCell(t, t.getSelectedColumn());";
      }
    });
  }

  static public Object selectedTableCell(final JTable t, final String colName) {
    return swing(new F0<Object>() {

      public Object get() {
        try {
          return selectedTableCell(t, tableColumnViewIndex(t, colName));
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return selectedTableCell(t, tableColumnViewIndex(t, colName));";
      }
    });
  }

  static public Object getTableCell(JTable tbl, int row, int col) {
    if (row >= 0 && row < tbl.getModel().getRowCount())
      return tbl.getModel().getValueAt(row, col);
    return null;
  }

  static public List getList(Map map, Object key) {
    return map == null ? null : (List) map.get(key);
  }

  static public List getList(List l, int idx) {
    return (List) get(l, idx);
  }

  static public List getList(Object o, Object key) {
    if (o instanceof Map)
      return getList((Map) o, key);
    if (key instanceof String)
      return (List) getOpt(o, (String) key);
    throw fail("Not a string key: " + getClassName(key));
  }

  static public List getList(String name, Object o) {
    return getList(o, name);
  }

  static public List<Integer> countIteratorAsList(int b) {
    return countIteratorAsList(0, b);
  }

  static public List<Integer> countIteratorAsList(int a, int b) {
    return countIteratorToList(a, b);
  }

  static public <A> List<A> countIteratorAsList(int b, IF1<Integer, A> f) {
    return countIteratorAsList(0, b, f);
  }

  static public <A> List<A> countIteratorAsList(int a, int b, IF1<Integer, A> f) {
    return countIteratorToList(a, b, f);
  }

  static public List<Integer> countIteratorAsList(int a, int b, int step) {
    return countIteratorToList(a, b, step);
  }

  static public <A> List<A> countIteratorAsList(double a, double b, double step, IF1<Double, A> f) {
    return countIteratorToList(a, b, step, f);
  }

  static public <A> List<Double> countIteratorAsList(double a, double b, double step) {
    return countIteratorToList(a, b, step);
  }

  static public <A> List<A> countIteratorAsList(IF1<Double, A> f, double a, double b, double step) {
    return countIteratorToList(f, a, b, step);
  }

  static public <A> List<A> countIteratorAsList(IF1<Integer, A> f, int b) {
    return countIteratorAsList(f, 0, b);
  }

  static public <A> List<A> countIteratorAsList(IF1<Integer, A> f, int a, int b) {
    return countIteratorToList(f, a, b);
  }

  static public int tableRowCount(JTable table) {
    return tableRows(table);
  }

  static public void selectTableRows(final JTable table, int[] rows) {
    if (table != null) {
      swing(() -> {
        ListSelectionModel model = table.getSelectionModel();
        int n = tableRows(table);
        model.clearSelection();
        if (rows != null)
          for (int row : rows) if (row < n)
            model.addSelectionInterval(row, row);
      });
    }
  }

  static public void selectRow(final JTable table, final int i) {
    if (table != null) {
      swing(() -> {
        if (i >= 0 && i < table.getRowCount()) {
          table.setRowSelectionInterval(i, i);
          scrollRowToVisible(table, i);
        } else
          table.clearSelection();
      });
    }
  }

  static public void selectRow(final JList list, final int i) {
    if (list != null) {
      swing(() -> {
        if (i >= 0 && i < listRowCount(list))
          list.setSelectedIndex(i);
        else
          list.clearSelection();
      });
    }
  }

  static public <A extends Concept> List<A> sortByConceptID(Collection<A> l) {
    return sortConceptsByID(l);
  }

  static public <A, B> Map<A, B> orderedMapPutOrCreate(Map<A, B> map, A key, B value) {
    if (key != null && value != null) {
      if (map == null)
        map = new LinkedHashMap();
      map.put(key, value);
    }
    return map;
  }

  static public int toMS_int(double seconds) {
    return toInt_checked((long) (seconds * 1000));
  }

  static public boolean anyValueContainsIgnoreCase(Map map, String pat) {
    for (Object val : values(map)) if (val instanceof String && containsIgnoreCase((String) val, pat))
      return true;
    return false;
  }

  static public void onUpdate(JComponent c, Runnable r) {
    onUpdate(c, (Object) r);
  }

  static public void onUpdate(JTextComponent c, IVF1<String> r) {
    if (c == null || r == null)
      return;
    c.getDocument().addDocumentListener(runnableToDocumentListener(() -> r.get(c.getText())));
  }

  static public void onUpdate(JComponent c, Object r) {
    if (c instanceof JTextComponent)
      ((JTextComponent) c).getDocument().addDocumentListener(runnableToDocumentListener(toRunnable(r)));
    else if (c instanceof ItemSelectable)
      ((ItemSelectable) c).addItemListener(new ItemListener() {

        public void itemStateChanged(ItemEvent e) {
          pcallF(r);
        }
      });
    else if (c instanceof JSpinner)
      onChange(((JSpinner) c), r);
    else
      print("Warning: onUpdate doesn't know " + getClassName(c));
  }

  static public void onUpdate(List<? extends JComponent> l, Object r) {
    for (JComponent c : l) onUpdate(c, r);
  }

  static public List<Map<String, Object>> rawTableData(JTable t) {
    int n = tableRows(t);
    List l = new ArrayList();
    for (int i = 0; i < n; i++) l.add(rawTableLineAsMap(t, i));
    return l;
  }

  static public JTable dataToTable(Object data) {
    return dataToTable(showTable(), data);
  }

  static public JTable dataToTable(Object data, String title) {
    return dataToTable(showTable(title), data);
  }

  static public JTable dataToTable(JTable table, Object data) {
    return dataToTable(table, data, false);
  }

  static public JTable dataToTable(JTable table, Object data, boolean now) {
    List<List> rows = new ArrayList();
    List<String> cols = new ContentsIndexedList();
    if (data instanceof List) {
      for (Object x : (List) data) {
        try {
          rows.add(dataToTable_makeRow(x, cols));
        } catch (Throwable __e) {
          pcallFail(__e);
        }
      }
    } else if (data instanceof Map) {
      Map map = (Map) data;
      for (Object key : map.keySet()) {
        Object value = map.get(key);
        rows.add(litlist(structureOrTextForUser(key), structureOrTextForUser(value)));
      }
    } else if (data != null)
      print("Unknown data type: " + data);
    fillTableWithData(table, rows, cols);
    return table;
  }

  static public JPanel centerAndEast(final Component c, final Component e) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel panel = new JPanel(new BorderLayout());
          panel.add(BorderLayout.CENTER, wrap(c));
          panel.add(BorderLayout.EAST, wrap(e));
          return panel;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel panel = new JPanel(new BorderLayout);\r\n    panel.add(BorderLayout.CENT...";
      }
    });
  }

  static public boolean boolOptPar(ThreadLocal<Boolean> tl) {
    return boolOptParam(tl);
  }

  static public boolean boolOptPar(Object[] __, String name) {
    return boolOptParam(__, name);
  }

  static public boolean boolOptPar(String name, Object[] __) {
    return boolOptParam(__, name);
  }

  static volatile public boolean readLine_noReadLine = false;

  static public String readLine_lastInput;

  static public String readLine_prefix = "[] ";

  static public String readLine() {
    if (readLine_noReadLine)
      return null;
    String s = readLineHidden();
    if (s != null) {
      readLine_lastInput = s;
      print(readLine_prefix + s);
    }
    return s;
  }

  static public String format3(String pat, Object... args) {
    if (args.length == 0)
      return pat;
    List<String> tok = javaTokPlusPeriod(pat);
    int argidx = 0;
    for (int i = 1; i < tok.size(); i += 2) if (tok.get(i).equals("*"))
      tok.set(i, format3_formatArg(argidx < args.length ? args[argidx++] : "null"));
    return join(tok);
  }

  static public String format3_formatArg(Object arg) {
    if (arg == null)
      return "null";
    if (arg instanceof String) {
      String s = (String) arg;
      return isIdentifier(s) || isNonNegativeInteger(s) ? s : quote(s);
    }
    if (arg instanceof Integer || arg instanceof Long)
      return String.valueOf(arg);
    return quote(structure(arg));
  }

  static public <A> A printStackTrace_gen(A e) {
    if (e instanceof Throwable)
      printStackTrace((Throwable) e);
    else
      print(e);
    return e;
  }

  static public <A extends JComponent> A setBorder(Border border, A c) {
    if (c != null) {
      swing(() -> {
        c.setBorder(border);
      });
    }
    return c;
  }

  static public <A extends JComponent> A setBorder(A c, Border border) {
    return setBorder(border, c);
  }

  static public <A extends Component> A onEnabledChanged(A c, Runnable r) {
    if (c != null && c != null) {
      swing(() -> {
        c.getAccessibleContext().addPropertyChangeListener(evt -> r.run());
      });
    }
    return c;
  }

  static public boolean isEnabled(final JComponent c) {
    return c != null && swing(new F0<Boolean>() {

      public Boolean get() {
        try {
          return c.isEnabled();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.isEnabled();";
      }
    });
  }

  static public void addWeakChangeListener(IHasChangeListeners src, ChangeTriggerable target) {
    addWeakChangeListener(src, target, o -> o.change());
  }

  static public <A> void addWeakChangeListener(IHasChangeListeners src, A target, IVF1<A> action) {
    if (src == null || action == null || target == null)
      return;
    var ref = weakRef(target);
    src.onChange(new Runnable() {

      public void run() {
        try {
          var target = ref.get();
          if (target == null)
            src.removeChangeListener(this);
          else
            action.get(target);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "var target = ref!;\r\n    if (target == null)\r\n      src.removeChangeListener(t...";
      }
    });
  }

  static public <A> IVarWithNotify<A> getterVarOnly(IVarWithNotify<A> var) {
    if (var == null)
      return null;
    var var2 = new VirtualVar(() -> var.get(), null);
    addWeakChangeListener(var, var2);
    return var2;
  }

  static public JExtendedTabbedPane jExtendedTabs(Object... x) {
    return swing(() -> new JExtendedTabbedPane(jtabs(x)));
  }

  static public <A> IterableIterator<Pair<Integer, A>> iterateWithIndex(Iterable<A> l) {
    return iterateListWithIndex(l);
  }

  static public <A> IterableIterator<Pair<Integer, A>> iterateWithIndex(A[] l) {
    return iterateWithIndex(asVirtualList(l));
  }

  static public <A, B> A pairA(Pair<A, B> p) {
    return p == null ? null : p.a;
  }

  static public <A, B> B pairB(Pair<A, B> p) {
    return p == null ? null : p.b;
  }

  static public <A> SimpleLiveValue<A> varWithNotifyToLiveValue(Class<A> type, IVarWithNotify<A> var) {
    if (var == null)
      return null;
    var lv = new SimpleLiveValue<A>(type);
    var lvRef = weakRef(lv);
    var.onChange(new Runnable() {

      public void run() {
        try {
          var lv = lvRef.get();
          if (lv == null)
            var.removeChangeListener(this);
          else {
            var value = var.get();
            lv.set(value);
          }
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "var lv = lvRef!;\r\n    print ifdef varWithNotifyToLiveValue_debug(\"varWithNoti...";
      }
    });
    lv.onChange(() -> var.set(lv.get()));
    lv.set(var.get());
    return lv;
  }

  static public void addTab(JExtendedTabbedPane tabs, String title) {
    addTab(tabs, title, jpanel());
  }

  static public void addTab(JExtendedTabbedPane tabs, String title, Component c) {
    if (tabs != null) {
      swing(() -> {
        tabs.add(title, wrap(c));
      });
    }
  }

  static public void addTab(JExtendedTabbedPane tabs, String title, Swingable c) {
    if (tabs != null) {
      swing(() -> {
        tabs.add(title, wrap(c));
      });
    }
  }

  static public void addTab(JTabbedPane tabs, String title) {
    addTab(tabs, title, jpanel());
  }

  static public void addTab(JTabbedPane tabs, String title, Component c) {
    if (tabs != null) {
      swing(() -> {
        tabs.add(title, wrap(c));
      });
    }
  }

  static public void addTab(JTabbedPane tabs, String title, Swingable c) {
    if (tabs != null) {
      swing(() -> {
        tabs.add(title, wrap(c));
      });
    }
  }

  static public void addTab(JTabbedPane tabs, WithToolTip<String> title, Component c) {
    addTabWithToolTip(tabs, title.toolTip(), title == null ? null : title.get(), c);
  }

  static public void addTab(JTabbedPane tabs, WithToolTip<String> title, Swingable c) {
    addTabWithToolTip(tabs, title.toolTip(), title == null ? null : title.get(), c);
  }

  static public void setTab(JExtendedTabbedPane tabs, int iTab, Component c) {
    if (tabs != null) {
      swing(() -> {
        if (iTab >= 0 && iTab < countTabs(tabs))
          tabs.setComponentAt(iTab, wrap(c));
      });
    }
  }

  static public void setTab(JTabbedPane tabs, int iTab, Component c) {
    if (tabs != null) {
      swing(() -> {
        if (iTab >= 0 && iTab < countTabs(tabs))
          tabs.setComponentAt(iTab, wrap(c));
      });
    }
  }

  static public void setTabTitle(JExtendedTabbedPane tabs, int idx, String title) {
    if (tabs != null && idx >= 0) {
      swing(() -> {
        if (idx < tabs.getTabCount())
          tabs.setTitleAt(idx, title);
      });
    }
  }

  static public void setTabTitle(JTabbedPane tabs, int idx, String title) {
    if (tabs != null && idx >= 0) {
      swing(() -> {
        if (idx < tabs.getTabCount())
          tabs.setTitleAt(idx, title);
      });
    }
  }

  static public void onTabSelectedAndNow(JExtendedTabbedPane tabs, Runnable r) {
    if (tabs != null)
      onTabSelectedAndNow(tabs.tabs, r);
  }

  static public void onTabSelectedAndNow(JTabbedPane tabs, Runnable r) {
    if (tabs != null && r != null) {
      swing(() -> {
        onTabSelected(tabs, r);
        r.run();
      });
    }
  }

  static public void onTabSelectedAndNow(JTabbedPane tabs, IVF1<Integer> r) {
    if (tabs != null && r != null) {
      swing(() -> {
        onTabSelected(tabs, r);
        r.get(tabs.getSelectedIndex());
      });
    }
  }

  static public LineAndColumn caretLineAndCol(JTextComponent tc) {
    Pair<String, Integer> p = textAndCaretPosition(tc);
    return charIndexToLineAndColumn(p.a, p.b);
  }

  static public void moveCaretToLineAndCol(JTextArea ta, LineAndColumn lac) {
    swing(() -> {
      try {
        setCaretPosition(ta, ta.getLineStartOffset(lac.line - 1) + lac.col - 1);
      } catch (Throwable _e) {
        print("Have lines: " + countLines(ta.getText()));
        throw rethrow(_e);
      }
    });
  }

  static public void setEnclosingViewPosition(Component c, int p_x, int p_y) {
    setEnclosingViewPosition(c, pt(p_x, p_y));
  }

  static public void setEnclosingViewPosition(Component c, Pt p) {
    setEnclosingViewPosition(c, toPoint(p));
  }

  static public void setEnclosingViewPosition(Component c, Point p) {
    if (p == null)
      return;
    JScrollPane sp = enclosingScrollPane(c);
    if (sp != null) {
      swing(() -> {
        sp.getViewport().setViewPosition(p);
      });
    }
  }

  static public Point enclosingViewPosition(Component c) {
    JScrollPane sp = enclosingScrollPane(c);
    return sp == null ? null : swing(new F0<Point>() {

      public Point get() {
        try {
          return sp.getViewport().getViewPosition();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return sp.getViewport().getViewPosition();";
      }
    });
  }

  static public int withRightMargin_defaultWidth = 6;

  static public JPanel withRightMargin(Component c) {
    return withRightMargin(withRightMargin_defaultWidth, c);
  }

  static public JPanel withRightMargin(final int w, final Component c) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel p = marginPanel();
          p.setBorder(BorderFactory.createEmptyBorder(0, 0, 0, w));
          p.add(c);
          return p;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel p = marginPanel();\r\n    p.setBorder(BorderFactory.createEmptyBorder(0,...";
      }
    });
  }

  static public void selectTab(JExtendedTabbedPane tabs, int idx) {
    if (tabs != null) {
      swing(() -> {
        tabs.setSelectedIndex(idx);
      });
    }
  }

  static public void selectTab(JTabbedPane tabs, int idx) {
    if (tabs != null) {
      swing(() -> {
        tabs.setSelectedIndex(idx);
      });
    }
  }

  static public int indexOfSelectedTab(JExtendedTabbedPane tabs) {
    return selectedTabIndex(tabs);
  }

  static public int indexOfSelectedTab(JTabbedPane tabs) {
    return selectedTabIndex(tabs);
  }

  static public boolean isDirectory(File f) {
    return f != null && f.isDirectory();
  }

  static public boolean isDirectory(String path) {
    return path != null && isDirectory(newFile(path));
  }

  static public List<File> findAllFiles(List dirs) {
    return findAllFiles(asObjectArray(dirs));
  }

  static public List<File> findAllFiles(Object... dirs) {
    List<File> l = new ArrayList();
    for (Object dir : dirs) {
      if (dir instanceof String && ((String) dir).endsWith("/."))
        for (File f : listFiles(dropSuffix("/.", ((String) dir)))) l.add(f);
      else
        findAllFiles_impl(toFile(dir), l);
    }
    return l;
  }

  static public void findAllFiles_impl(File dir, List<File> l) {
    for (File f : listFiles(dir)) {
      l.add(f);
      if (f.isDirectory())
        findAllFiles_impl(f, l);
    }
  }

  static public String upper(String s) {
    return s == null ? null : s.toUpperCase();
  }

  static public char upper(char c) {
    return Character.toUpperCase(c);
  }

  static public String nFiles(long n) {
    return n2(n, "file");
  }

  static public String nFiles(Collection l) {
    return nFiles(l(l));
  }

  static public JForm showFormTitled3(String title, Object... parts) {
    JForm form = new JForm(parts).disposeFrameOnSubmit();
    showFrame(title, form);
    return form;
  }

  static public JTextArea uneditableTextArea() {
    return uneditableTextArea("");
  }

  static public JTextArea uneditableTextArea(String text) {
    return uneditableBlackTextArea_noUndo(text);
  }

  static public <A> List<A> syncList() {
    return synchroList();
  }

  static public <A> List<A> syncList(List<A> l) {
    return synchroList(l);
  }

  static public FontMetrics componentFontMetrics(JComponent c) {
    Font font = getFont(c);
    return font == null ? null : swing(new F0<FontMetrics>() {

      public FontMetrics get() {
        try {
          return c.getFontMetrics(font);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.getFontMetrics(font);";
      }
    });
  }

  static public int idiv_ceil(int a, int b) {
    return (a + b - 1) / b;
  }

  static public int idiv_ceil(long a, long b) {
    return toInt_checked((a + b - 1) / b);
  }

  static public <A extends JComponent> A componentPopupMenuItem(A c, String name, Runnable action) {
    componentPopupMenu(c, new VF1<JPopupMenu>() {

      public void get(JPopupMenu menu) {
        try {
          addMenuItem(menu, name, action);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "addMenuItem(menu, name, action);";
      }
    });
    return c;
  }

  static public void componentPopupMenuItem(JComponent c, JMenuItem menuItem) {
    componentPopupMenu(c, new VF1<JPopupMenu>() {

      public void get(JPopupMenu menu) {
        try {
          addMenuItem(menu, menuItem);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "addMenuItem(menu, menuItem);";
      }
    });
  }

  static public <A> List<A> asSyncList(Iterable<A> l) {
    return asSynchroList(l);
  }

  static public boolean endsWithNewLine(String s) {
    return endsWith(s, "\n");
  }

  static public String lines_rtrimIf(boolean rtrim, List<String> lines) {
    return rtrim ? lines_rtrim(lines) : lines(lines);
  }

  static public String copyTextToClipboard(Object _text) {
    String text = str(_text);
    StringSelection selection = new StringSelection(text);
    Toolkit.getDefaultToolkit().getSystemClipboard().setContents(selection, selection);
    vmBus_send("newClipboardContents", text);
    return text;
  }

  static public <B> Map<String, B> humanizeKeys(Map<String, B> map) {
    return mapKeys(__90 -> humanizeFormLabel(__90), map);
  }

  static public Map<String, Object> objectToMap_inOrder_withoutFields(Object o, Collection<String> withoutFields) {
    if (o == null)
      return null;
    if (o instanceof Map)
      return (Map) o;
    LinkedHashMap<String, Object> map = new LinkedHashMap();
    for (String field : listWithoutSet(fieldsInOrder(o), withoutFields)) map.put(field, get(o, field));
    return map;
  }

  static public Map<String, Object> objectToMap(Object o) {
    try {
      if (o instanceof Map)
        return (Map) o;
      if (o == null)
        return null;
      TreeMap<String, Object> map = new TreeMap();
      Class c = o.getClass();
      while (c != Object.class) {
        Field[] fields = c.getDeclaredFields();
        for (final Field field : fields) {
          if ((field.getModifiers() & Modifier.STATIC) != 0)
            continue;
          field.setAccessible(true);
          final Object value = field.get(o);
          if (value != null)
            map.put(field.getName(), value);
        }
        c = c.getSuperclass();
      }
      if (o instanceof DynamicObject)
        putAll(map, ((DynamicObject) o).fieldValues);
      return map;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public List<Map<String, Object>> objectToMap(Iterable l) {
    if (l == null)
      return null;
    List x = new ArrayList();
    for (Object o : l) x.add(objectToMap(o));
    return x;
  }

  static public <A> void syncClear(Collection<A> c) {
    if (c != null)
      synchronized (collectionMutex(c)) {
        c.clear();
      }
  }

  static public void syncClear(Map map) {
    if (map != null)
      synchronized (collectionMutex(map)) {
        map.clear();
      }
  }

  static public <A> boolean syncAddAll(Collection<A> c, Iterable<A> b) {
    if (c == null || b == null)
      return false;
    synchronized (c) {
      return c.addAll(asCollection(b));
    }
  }

  static public <A> boolean syncRemoveAll(Collection<A> c, Collection<A> b) {
    if (c == null || b == null)
      return false;
    synchronized (collectionMutex(c)) {
      return c.removeAll(b);
    }
  }

  static public int[] selectedTableRows_array(final JTable table) {
    return table == null ? null : swing(new F0<int[]>() {

      public int[] get() {
        try {
          return table.getSelectedRows();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return table.getSelectedRows();";
      }
    });
  }

  static public int selectedTableRowInModel(final JTable t) {
    return t == null ? -1 : swing(new F0<Integer>() {

      public Integer get() {
        try {
          int i = t.getSelectedRow();
          return i < 0 ? i : t.convertRowIndexToModel(i);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "int i = t.getSelectedRow();\r\n    ret i < 0 ? i : t.convertRowIndexToModel(i);";
      }
    });
  }

  static public <A> List<A> syncListGetMulti(final List<A> l, List<Integer> indices) {
    synchronized (collectionMutex(l)) {
      return listGetMulti(l, indices);
    }
  }

  static public int selectedTableRow(final JTable t) {
    return t == null ? -1 : swing(new F0<Integer>() {

      public Integer get() {
        try {
          return t.getSelectedRow();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return t.getSelectedRow();";
      }
    });
  }

  static public List<Integer> selectedTableRowsInModel(final JTable t) {
    return t == null ? emptyList() : swing(new F0<List<Integer>>() {

      public List<Integer> get() {
        try {
          return map(selectedTableRows(t), i -> t.convertRowIndexToModel(i));
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return map(selectedTableRows(t), i -> t.convertRowIndexToModel(i));";
      }
    });
  }

  static public <A> JComboBox<A> selectItem(A item, JComboBox<A> cb) {
    if (cb != null) {
      swing(() -> {
        cb.setSelectedItem(item);
      });
    }
    return cb;
  }

  static public <A> JComboBox<A> selectItem(JComboBox<A> cb, A item) {
    return selectItem(item, cb);
  }

  static public <A> JList<A> selectItem(JList<A> list, A item) {
    {
      swing(() -> {
        selectRow(list, jlist_indexOf(list, item));
      });
    }
    return list;
  }

  static public JTable tablePopupMenuItemsThreaded(final JTable table, Object... params) {
    for (int i = 0; i + 1 < l(params); i += 2) {
      final Object action = params[i + 1];
      final Object threadInfo = _threadInfo();
      tablePopupMenuItem(table, str(params[i]), new VF1<Integer>() {

        public void get(final Integer row) {
          try {
            _threadInheritInfo(threadInfo);
            {
              startThread(new Runnable() {

                public void run() {
                  try {
                    try {
                      callF(action, row);
                    } catch (Throwable __e) {
                      messageBox(__e);
                    }
                  } catch (Exception __e) {
                    throw rethrow(__e);
                  }
                }

                public String toString() {
                  return "try {\r\n        callF(action, row);\r\n      } catch (Throwable __e) { messageBo...";
                }
              });
            }
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "_threadInheritInfo(threadInfo);\r\n      thread-messagebox {\r\n        callF(act...";
        }
      });
    }
    return table;
  }

  static public JTable tablePopupMenuItemsThreaded_top(final JTable table, Object... params) {
    params = reverseParams(params);
    for (int i = 0; i + 1 < l(params); i += 2) {
      final Object action = params[i + 1];
      final Object threadInfo = _threadInfo();
      tablePopupMenuItem_top(table, str(params[i]), new VF1<Integer>() {

        public void get(final Integer row) {
          try {
            _threadInheritInfo(threadInfo);
            {
              startThread(new Runnable() {

                public void run() {
                  try {
                    try {
                      callF(action, row);
                    } catch (Throwable __e) {
                      messageBox(__e);
                    }
                  } catch (Exception __e) {
                    throw rethrow(__e);
                  }
                }

                public String toString() {
                  return "try {\r\n        callF(action, row);\r\n      } catch (Throwable __e) { messageBo...";
                }
              });
            }
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "_threadInheritInfo(threadInfo);\r\n      thread-messagebox {\r\n        callF(act...";
        }
      });
    }
    return table;
  }

  static public <A, B extends A> void _addAll(Collection<A> c, Iterable<B> b) {
    addAll(c, b);
  }

  static public <A, B extends A> boolean _addAll(Collection<A> c, Collection<B> b) {
    return addAll(c, b);
  }

  static public <A, B extends A> boolean _addAll(Collection<A> c, B... b) {
    return addAll(c, b);
  }

  static public void scrollTableDownNow(final JTable table) {
    if (table != null) {
      swing(() -> {
        table.scrollRectToVisible(table.getCellRect(table.getRowCount() - 1, 0, true));
      });
    }
  }

  static public <A extends Component> A toComponent(A c) {
    return c;
  }

  static public Component toComponent(Swingable c) {
    return c == null ? null : c.visualize();
  }

  static public List<JComponent> showForm_arrange1(List<List<JComponent>> l) {
    int minW = showForm_leftWidth(l);
    List<JComponent> out = new ArrayList();
    for (List<JComponent> row : l) out.add(westAndCenter(withRightMargin(showForm_gapBetweenColumns, jMinWidthAtLeast(minW, first(row))), second(row)));
    return out;
  }

  static public List<List<JComponent>> showForm_makeComponents(Boolean internalFrame, Object... _parts) {
    IVF1<Component> closeFrame = isTrue(internalFrame) ? __1 -> disposeInternalFrame(__1) : isFalse(internalFrame) ? __2 -> disposeFrame(__2) : null;
    return showForm_makeComponents(closeFrame, _parts);
  }

  static public List<List<JComponent>> showForm_makeComponents(IVF1<Component> closeFrame, Object... _parts) {
    List<List<JComponent>> l = new ArrayList();
    List parts = asList(_parts);
    JButton submitButton = null;
    for (int i = 0; i < l(parts); i++) if (parts.get(i) instanceof Swingable)
      parts.set(i, ((Swingable) parts.get(i)).visualize());
    for (int i = 0; i < l(parts); i++) {
      Object o = parts.get(i), next = get(parts, i + 1);
      if (o instanceof String && next instanceof Component)
        setComponentID((Component) next, (String) o);
      if (o instanceof Component || o instanceof String || next instanceof Component) {
        l.add(mapLL(__91 -> wrapForSmartAdd_jComponent(__91), o == null ? new JPanel() : o instanceof String ? humanizeFormLabel((String) o) : o, next));
        if (next instanceof JButton && submitButton == null)
          submitButton = (JButton) next;
        i++;
      } else if (isRunnable(o))
        l.add(mapLL(__92 -> wrapForSmartAdd_jComponent(__92), null, submitButton = jbutton(showFormSubmitButtonName(), new Runnable() {

          public void run() {
            try {
              Object result = call(o);
              print("Result of form runnable: " + result + ". Button:  " + heldInstance(JButton.class));
              if (neq(Boolean.FALSE, result)) {
                if (closeFrame != null)
                  closeFrame.get(heldInstance(JButton.class));
              }
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "Object result = call(o);\r\n        print(\"Result of form runnable: \" + result ...";
          }
        })));
      else
        print("showForm: Unknown element type: " + getClassName(o));
    }
    if (submitButton != null) {
      final JButton _submitButton = submitButton;
      onEnterInAllTextFields(concatLists(l), new Runnable() {

        public void run() {
          try {
            clickButton(_submitButton);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "clickButton(_submitButton)";
        }
      });
    }
    for (List<JComponent> row : l) {
      JComponent left = first(row);
      if (left instanceof JLabel)
        makeBold((JLabel) left).setVerticalAlignment(JLabel.TOP);
    }
    return l;
  }

  static public Object[] flattenToArray(Object... a) {
    return flattenArray2(a);
  }

  static public void disposeInternalFrame(Component c) {
    final JInternalFrame f = getInternalFrame(c);
    if (f != null) {
      swing(() -> {
        vmBus_send("disposingInternalFrame", f);
        f.dispose();
      });
    }
  }

  static public boolean objectArraysEqual(Object[] a, Object[] b) {
    return arraysEqual(a, b);
  }

  static public int hashAboutObjects(Object... l) {
    int hash = 0, n = l(l);
    for (int i = 0; i < n; i++) hash = boostHashCombine(hash, hashCode(l[i]));
    return hash;
  }

  static public Object[] mapObjectArray(IF1 f, Object[] l) {
    if (empty(l))
      return l;
    int n = l.length;
    Object[] a2 = new Object[n];
    for (int i = 0; i < n; i++) a2[i] = f.get(l[i]);
    return a2;
  }

  static public boolean containsATextArea(Component c) {
    return childOfType(c, JTextArea.class) != null;
  }

  static public int totalPreferredHeight(List<Component> l) {
    int h = 0;
    for (Component c : unnull(l)) h += c.getPreferredSize().height;
    return h;
  }

  static public <A> List<A> listWithoutIndicesInBitSet(List<A> l, BitSet bs) {
    List<A> out = new ArrayList();
    for (int i = 0; i < l(l); i++) if (!bs.get(i))
      out.add(l.get(i));
    return out;
  }

  static public Dimension componentsBoundingSize(Container container, int insetBottomRight) {
    Rectangle r = new Rectangle(0, 0, 0, 0);
    for (Component c : container.getComponents()) r = rectangleUnion(r, c.getBounds());
    return new Dimension(r.x + r.width + insetBottomRight, r.y + r.height + insetBottomRight);
  }

  static public AutoCloseable onConceptChangeByClass_notOnAllChanged(Class type, Runnable r) {
    return onConceptChangeByClass_notOnAllChanged(db_mainConcepts(), type, r);
  }

  static public AutoCloseable onConceptChangeByClass_notOnAllChanged(Concepts cc, Class type, Runnable r) {
    return tempAddConceptIndex(cc, new IConceptIndex() {

      public void update(Concept c) {
        if (instanceOf(c, type))
          pcallF(r);
      }

      public void remove(Concept c) {
        if (instanceOf(c, type))
          pcallF(r);
      }
    });
  }

  static public <A extends Concept> AutoCloseable onConceptChangeByClass_notOnAllChanged(Class<A> type, IVF1<A> r) {
    return onConceptChangeByClass_notOnAllChanged(db_mainConcepts(), type, r);
  }

  static public <A extends Concept> AutoCloseable onConceptChangeByClass_notOnAllChanged(Concepts cc, Class<A> type, IVF1<A> r) {
    return tempAddConceptIndex(cc, new IConceptIndex() {

      public void update(Concept c) {
        if (instanceOf(c, type))
          pcallF(r, (A) c);
      }

      public void remove(Concept c) {
        if (instanceOf(c, type))
          pcallF(r, (A) c);
      }
    });
  }

  static public int lIntArray(int[] a) {
    return a == null ? 0 : a.length;
  }

  static public int[] resizeIntArray(int[] a, int n) {
    if (n == lIntArray(a))
      return a;
    int[] b = new int[n];
    arraycopy(a, 0, b, 0, Math.min(lIntArray(a), n));
    return b;
  }

  static public int maximumSafeArraySize() {
    return Integer.MAX_VALUE - 8;
  }

  static public <A> List<A> asVirtualList(A[] a) {
    return wrapArrayAsList(a);
  }

  static public String squareBracket(String s) {
    return "[" + s + "]";
  }

  static public int tabCount(JExtendedTabbedPane tabs) {
    return tabs == null ? 0 : swing(() -> tabs.getTabCount());
  }

  static public int tabCount(JTabbedPane tabs) {
    return tabs == null ? 0 : swing(() -> tabs.getTabCount());
  }

  static public int getSelectedIndex(final JComboBox cb) {
    return cb == null ? -1 : swing(new F0<Integer>() {

      public Integer get() {
        try {
          return cb.getSelectedIndex();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return cb.getSelectedIndex();";
      }
    });
  }

  static public int getSelectedIndex(final JList l) {
    return l == null ? -1 : swing(new F0<Integer>() {

      public Integer get() {
        try {
          return l.getSelectedIndex();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return l.getSelectedIndex();";
      }
    });
  }

  static public Component verticalStrut(int height) {
    return Box.createVerticalStrut(height);
  }

  static public JPanel westAndCenter(final Component w, final Component c) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel panel = new JPanel(new BorderLayout());
          panel.add(BorderLayout.WEST, wrap(w));
          panel.add(BorderLayout.CENTER, wrap(c));
          return panel;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel panel = new JPanel(new BorderLayout);\r\n    panel.add(BorderLayout.WEST...";
      }
    });
  }

  static public String assertGlobalID(String s) {
    return assertPossibleGlobalID(s);
  }

  static public int charDiff(char a, char b) {
    return (int) a - (int) b;
  }

  static public int charDiff(String a, char b) {
    return charDiff(stringToChar(a), b);
  }

  static public String bigintToGlobalID(BigInteger value) {
    char[] buf = new char[16];
    for (int i = 16 - 1; i >= 0; i--) {
      buf[i] = charPlus('a', mod(value, 26).intValue());
      value = div(value, 26);
    }
    return str(buf);
  }

  static public int showForm_defaultGap = 4;

  static public int showForm_gapBetweenColumns = 10;

  static public JPanel showFormTitled(final String title, final Object... _parts) {
    JDesktopPane desktop = mainDesktopPane();
    if (desktop != null)
      return showInternalFrameFormTitled(desktop, title, _parts);
    return swing(() -> {
      JPanel panel = showForm_makePanel(false, _parts);
      showForm_makeFrame(title, panel);
      return panel;
    });
  }

  static public JPanel showForm_makePanel(Boolean internalFrame, Object... _parts) {
    List<JComponent> out = showForm_arrange1(showForm_makeComponents(internalFrame, _parts));
    return vstackWithSpacing(out, showForm_defaultGap);
  }

  static public boolean canCallWithVarargs(Object o, String method, Object... args) {
    if (o == null)
      return false;
    if (o instanceof Class) {
      Class c = (Class) o;
      _MethodCache cache = callOpt_getCache(c);
      if (cache.findStaticMethod(method, args) != null)
        return true;
      List<Method> methods = cache.cache.get(method);
      if (methods != null)
        methodSearch: for (Method m : methods) {
          {
            if (!(m.isVarArgs() && isStaticMethod(m)))
              continue;
          }
          if (massageArgsForVarArgsCall(m, args) != null)
            return true;
        }
    } else {
      Class c = o.getClass();
      _MethodCache cache = callOpt_getCache(c);
      if (cache.findMethod(method, args) != null)
        return true;
      List<Method> methods = cache.cache.get(method);
      if (methods != null)
        methodSearch: for (Method m : methods) {
          {
            if (!(m.isVarArgs()))
              continue;
          }
          if (massageArgsForVarArgsCall(m, args) != null)
            return true;
        }
    }
    return false;
  }

  static public void smartSet(Field f, Object o, Object value) throws Exception {
    try {
      f.set(o, value);
    } catch (Exception e) {
      Class type = f.getType();
      if (type == int.class && value instanceof Long) {
        f.set(o, ((Long) value).intValue());
        return;
      }
      if (type == boolean.class && value instanceof String) {
        f.set(o, isTrueOrYes(((String) value)));
        return;
      }
      if (type == LinkedHashMap.class && value instanceof Map) {
        f.set(o, asLinkedHashMap((Map) value));
        return;
      }
      try {
        if (f.getType() == Concept.Ref.class) {
          f.set(o, ((Concept) o).new Ref((Concept) value));
          return;
        }
        if (o instanceof Concept.Ref) {
          f.set(o, ((Concept.Ref) o).get());
          return;
        }
      } catch (Throwable _e) {
      }
      throw e;
    }
  }

  volatile static public boolean conceptsAndBot_running = false;

  static public boolean conceptsAndBot_thinOnStart = true;

  static public void conceptsAndBot() {
    conceptsAndBot(null);
  }

  static public void conceptsAndBot(Integer autoSaveInterval) {
    if (conceptsAndBot_running)
      return;
    conceptsAndBot_running = true;
    Concepts cc = db_mainConcepts();
    cc.programID = getDBProgramID();
    try {
      if (cc.useFileLock) {
        if (!cc.fileLock().tryToLock()) {
          ensureDBNotRunning(dbBotStandardName());
          cc.fileLock().forceLock();
        }
      } else
        ensureDBNotRunning(dbBotStandardName());
    } catch (Throwable e) {
      printStackTrace(e);
      cc.dontSave = true;
      throw rethrow(e);
    }
    cc.persist(autoSaveInterval);
    dbBot(false);
    if (conceptsAndBot_thinOnStart) {
      try {
        thinAProgramsBackups(getDBProgramID(), true);
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }
  }

  static public String unquoteSingleOrDoubleQuotes(String s) {
    if (s == null)
      return null;
    if (s.length() > 1) {
      char c = s.charAt(0);
      if (c == '\"' || c == '\'') {
        int l = endsWith(s, c) ? s.length() - 1 : s.length();
        StringBuilder sb = new StringBuilder(l - 1);
        for (int i = 1; i < l; i++) {
          char ch = s.charAt(i);
          if (ch == '\\') {
            char nextChar = (i == l - 1) ? '\\' : s.charAt(i + 1);
            if (nextChar >= '0' && nextChar <= '7') {
              String code = "" + nextChar;
              i++;
              if ((i < l - 1) && s.charAt(i + 1) >= '0' && s.charAt(i + 1) <= '7') {
                code += s.charAt(i + 1);
                i++;
                if ((i < l - 1) && s.charAt(i + 1) >= '0' && s.charAt(i + 1) <= '7') {
                  code += s.charAt(i + 1);
                  i++;
                }
              }
              sb.append((char) Integer.parseInt(code, 8));
              continue;
            }
            switch(nextChar) {
              case '\"':
                ch = '\"';
                break;
              case '\\':
                ch = '\\';
                break;
              case 'b':
                ch = '\b';
                break;
              case 'f':
                ch = '\f';
                break;
              case 'n':
                ch = '\n';
                break;
              case 'r':
                ch = '\r';
                break;
              case 't':
                ch = '\t';
                break;
              case '\'':
                ch = '\'';
                break;
              case 'u':
                if (i >= l - 5) {
                  ch = 'u';
                  break;
                }
                int code = Integer.parseInt("" + s.charAt(i + 2) + s.charAt(i + 3) + s.charAt(i + 4) + s.charAt(i + 5), 16);
                sb.append(Character.toChars(code));
                i += 5;
                continue;
              default:
                ch = nextChar;
            }
            i++;
          }
          sb.append(ch);
        }
        return sb.toString();
      }
    }
    return s;
  }

  static public IMeta toIMeta(Object o) {
    return initIMeta(o);
  }

  static public IMeta initIMeta(Object o) {
    if (o == null)
      return null;
    if (o instanceof IMeta)
      return ((IMeta) o);
    if (o instanceof JComponent)
      return initMetaOfJComponent((JComponent) o);
    if (o instanceof BufferedImage)
      return optCast(IMeta.class, ((BufferedImage) o).getProperty("meta"));
    return null;
  }

  static public Map makeObjectMetaMap() {
    return new CompactHashMap();
  }

  static public IAutoCloseableF0 tempMetaMutex(IMeta o) {
    return o == null ? null : o._tempMetaMutex();
  }

  static public <A, B> void syncMapPut2(Map<A, B> map, A key, B value) {
    if (map != null && key != null)
      synchronized (collectionMutex(map)) {
        if (value != null)
          map.put(key, value);
        else
          map.remove(key);
      }
  }

  static public void addToContainer(Container a, Component... b) {
    if (a == null)
      return;
    {
      swing(() -> {
        for (Component c : unnullForIteration(b)) if (c != null)
          a.add(c);
      });
    }
  }

  static public String rep(int n, char c) {
    return repeat(c, n);
  }

  static public String rep(char c, int n) {
    return repeat(c, n);
  }

  static public <A> List<A> rep(A a, int n) {
    return repeat(a, n);
  }

  static public <A> List<A> rep(int n, A a) {
    return repeat(n, a);
  }

  static public String decimalFormatEnglish(String format, double d) {
    return decimalFormatEnglish(format).format(d);
  }

  static public java.text.DecimalFormat decimalFormatEnglish(String format) {
    return new java.text.DecimalFormat(format, new java.text.DecimalFormatSymbols(Locale.ENGLISH));
  }

  static public long clockToSysTimeDiff() {
    return sysNow() - now();
  }

  static public TreeSet<String> caseInsensitiveSet() {
    return caseInsensitiveSet_treeSet();
  }

  static public TreeSet<String> caseInsensitiveSet(Collection<String> c) {
    return caseInsensitiveSet_treeSet(c);
  }

  static public <A> void replaceLastElement(List<A> l, A a) {
    if (nempty(l))
      l.set(l(l) - 1, a);
  }

  static public String dropSuffix(String suffix, String s) {
    return nempty(suffix) && endsWith(s, suffix) ? s.substring(0, l(s) - l(suffix)) : s;
  }

  static public String repeat(char c, int n) {
    n = Math.max(n, 0);
    char[] chars = new char[n];
    for (int i = 0; i < n; i++) chars[i] = c;
    return new String(chars);
  }

  static public <A> List<A> repeat(A a, int n) {
    n = Math.max(n, 0);
    List<A> l = new ArrayList(n);
    for (int i = 0; i < n; i++) l.add(a);
    return l;
  }

  static public <A> List<A> repeat(int n, A a) {
    return repeat(a, n);
  }

  static public int indent_default = 2;

  static public String indent(int indent) {
    return repeat(' ', indent);
  }

  static public String indent(int indent, String s) {
    return indent(repeat(' ', indent), s);
  }

  static public String indent(String indent, String s) {
    return indent + replace(unnull(s), "\n", "\n" + indent);
  }

  static public String indent(String s) {
    return indent(indent_default, s);
  }

  static public List<String> indent(String indent, List<String> lines) {
    List<String> l = new ArrayList();
    if (lines != null)
      for (String s : lines) l.add(indent + s);
    return l;
  }

  static public String jreplace_dyn(String s, String in, Object out) {
    return jreplace_dyn(s, in, out, null);
  }

  static public String jreplace_dyn(String s, String in, Object out, Object condition) {
    List<String> tok = javaTok(s);
    jreplace_dyn(tok, in, out, condition);
    return join(tok);
  }

  static public boolean jreplace_dyn(List<String> tok, String in, Object out) {
    return jreplace_dyn(tok, in, out, false, true, null);
  }

  static public boolean jreplace_dyn(List<String> tok, String in, IF0<String> out) {
    return jreplace_dyn(tok, in, if0ToIF2(out));
  }

  static public boolean jreplace_dyn(List<String> tok, String in, ITokCondition cond, IF0<String> out) {
    return jreplace_dyn(tok, in, cond, if0ToIF2(out));
  }

  static public boolean jreplace_dyn(List<String> tok, String in, IF1<Integer, String> out) {
    return jreplace_dyn(tok, in, (_tok, cIdx) -> out.get(cIdx));
  }

  static public boolean jreplace_dyn(List<String> tok, String in, IF2<List<String>, Integer, String> out) {
    return jreplace_dyn(tok, in, (Object) out);
  }

  static public boolean jreplace_dyn(List<String> tok, String in, IF2<List<String>, Integer, String> out, IF2<List<String>, Integer, Boolean> condition) {
    return jreplace_dyn(tok, in, (Object) out, (Object) condition);
  }

  static public boolean jreplace_dyn(List<String> tok, String in, Object out, Object condition) {
    return jreplace_dyn(tok, in, out, false, true, condition);
  }

  static public boolean jreplace_dyn(List<String> tok, String in, Object out, boolean ignoreCase, boolean reTok, Object condition) {
    List<String> tokin = javaTok(in);
    jfind_preprocess(tokin);
    String[] toks = toStringArray(codeTokensOnly(tokin));
    boolean anyChange = false;
    for (int n = 0; n < 10000; n++) {
      int i = findCodeTokens(tok, 1, ignoreCase, toks, condition);
      if (i < 0)
        return anyChange;
      String expansion = (String) (callF(out, tok, i));
      int end = i + l(tokin) - 2;
      clearAllTokens(tok, i, end);
      tok.set(i, expansion);
      if (reTok)
        reTok(tok, i, end);
      anyChange = true;
    }
    throw fail("woot? 10000! " + quote(in) + " => " + quote(out));
  }

  static public int tok_conditionals(List<String> tok, String keyword, String keywordEnd, IF1<String, Boolean> pred, boolean reTokImmediately, boolean noReTok) {
    int changes = 0;
    if (tok instanceof IContentsIndexedList) {
      int[] l = ((IContentsIndexedList) tok).indicesOf(keyword);
      for (int j = l(l) - 1; j >= 0; j--) {
        int i = l[j];
        if (isIdentifier(get(tok, i + 2))) {
          tok_conditionals_processConditional(tok, i, keyword, keywordEnd, pred, reTokImmediately && !noReTok);
          ++changes;
        }
      }
    } else {
      if (!tok.contains(keyword))
        return changes;
      int i = l(tok);
      while ((i = rjfind(tok, 1, i - 1, keyword + " <id>")) >= 0) {
        ++changes;
        tok_conditionals_processConditional(tok, i, keyword, keywordEnd, pred, reTokImmediately && !noReTok);
      }
    }
    if (changes != 0 && !reTokImmediately && !noReTok)
      reTok(tok);
    return changes;
  }

  static public void tok_conditionals_processConditional(List<String> tok, int i, String keyword, String keywordEnd, IF1<String, Boolean> pred, boolean reTokImmediately) {
    int j = jfind(tok, i + 4, keywordEnd);
    if (j < 0)
      j = l(tok) - 1;
    String name = tok.get(i + 2);
    boolean has = pred.get(name);
    if (has) {
      clearTokens_maybeReTok(tok, j, j + 1, reTokImmediately);
      clearTokens_maybeReTok(tok, i, i + 3, reTokImmediately);
    } else
      clearTokens_maybeReTok(tok, i, j + 1, reTokImmediately);
  }

  static public List<String> replaceKeywordBlock(List<String> tok, String keyword, String beg, String end) {
    return replaceKeywordBlock(tok, keyword, beg, end, false, null);
  }

  static public List<String> replaceKeywordBlock(List<String> tok, String keyword, String beg, String end, Object cond) {
    return replaceKeywordBlock(tok, keyword, beg, end, false, cond);
  }

  static public List<String> replaceKeywordBlock(List<String> tok, String keyword, String beg, String end, boolean debug, Object cond) {
    for (int n = 0; n < 1000; n++) {
      int i = jfind(tok, keyword + " {", cond);
      if (i < 0)
        break;
      int idx = findCodeTokens(tok, i, false, "{");
      int j = findEndOfBracketPart(tok, idx);
      if (debug) {
        print(toUpper(keyword) + " BEFORE\n" + join(subList(tok, i, j)));
        print("  THEN " + join(subList(tok, j, j + 10)));
      }
      List<String> subList = subList(tok, i - 1, idx);
      tok.set(j - 1, jreplaceExpandRefs(end, subList));
      replaceTokens(tok, i, idx + 1, jreplaceExpandRefs(beg, subList));
      reTok(tok, i, j);
      if (debug)
        print(toUpper(keyword) + "\n" + join(subList(tok, i, j)) + "\n");
    }
    return tok;
  }

  static public int jfind(String s, String in) {
    return jfind(javaTok(s), in);
  }

  static public int jfind(List<String> tok, String in) {
    return jfind(tok, 1, in);
  }

  static public int jfind(List<String> tok, int startIdx, String in) {
    return jfind(tok, startIdx, in, (ITokCondition) null);
  }

  static public int jfind(List<String> tok, String in, Object condition) {
    return jfind(tok, 1, in, condition);
  }

  static public int jfind(List<String> tok, String in, IIntPred condition) {
    return jfind(tok, 1, in, condition);
  }

  static public int jfind(List<String> tok, int startIndex, String in, IIntPred condition) {
    return jfind(tok, startIndex, in, tokCondition(condition));
  }

  static public int jfind(List<String> tok, String in, ITokCondition condition) {
    return jfind(tok, 1, in, condition);
  }

  static public int jfind(List<String> tok, int startIndex, String in, ITokCondition condition) {
    return jfind(tok, startIndex, in, (Object) condition);
  }

  static public int jfind(List<String> tok, int startIdx, String in, Object condition) {
    return jfind(tok, startIdx, javaTokForJFind_array(in), condition);
  }

  static public int jfind(List<String> tok, List<String> tokin) {
    return jfind(tok, 1, tokin);
  }

  static public int jfind(List<String> tok, int startIdx, List<String> tokin) {
    return jfind(tok, startIdx, tokin, null);
  }

  static public int jfind(List<String> tok, int startIdx, String[] tokinC, Object condition) {
    return findCodeTokens(tok, startIdx, false, tokinC, condition);
  }

  static public int jfind(List<String> tok, int startIdx, List<String> tokin, Object condition) {
    return jfind(tok, startIdx, codeTokensAsStringArray(tokin), condition);
  }

  static public List<String> jfind_preprocess(List<String> tok) {
    for (String type : litlist("quoted", "id", "int")) replaceSublist(tok, ll("<", "", type, "", ">"), ll("<" + type + ">"));
    replaceSublist(tok, ll("\\", "", "*"), ll("\\*"));
    return tok;
  }

  static public String tok_script_scanType(List<String> tok, int iTypeStart) {
    int iEndOfType = tok_script_findEndOfType(tok, iTypeStart);
    return joinSubList_cToC(tok, iTypeStart, iEndOfType);
  }

  static public void replaceToken_reTok(List<String> tok, int i, String t) {
    tokSet_withReTok(tok, i, t);
  }

  static public Map<String, String[]> javaTokForJFind_array_cache = synchronizedMRUCache(1000);

  static public String[] javaTokForJFind_array(String s) {
    String[] tok = javaTokForJFind_array_cache.get(s);
    if (tok == null)
      javaTokForJFind_array_cache.put(s, tok = codeTokensAsStringArray(jfind_preprocess(javaTok(s))));
    return tok;
  }

  static public int findCodeTokens(List<String> tok, String... tokens) {
    return findCodeTokens(tok, 1, false, tokens);
  }

  static public int findCodeTokens(List<String> tok, boolean ignoreCase, String... tokens) {
    return findCodeTokens(tok, 1, ignoreCase, tokens);
  }

  static public int findCodeTokens(List<String> tok, int startIdx, boolean ignoreCase, String... tokens) {
    return findCodeTokens(tok, startIdx, ignoreCase, tokens, null);
  }

  static public HashSet<String> findCodeTokens_specials = lithashset("*", "<quoted>", "<id>", "<int>", "\\*");

  static public int findCodeTokens_bails, findCodeTokens_nonbails;

  static public interface findCodeTokens_Matcher {

    public boolean get(String token);
  }

  static public int findCodeTokens(List<String> tok, int startIdx, boolean ignoreCase, String[] tokens, Object condition) {
    int end = tok.size() - tokens.length * 2 + 2, nTokens = tokens.length;
    int i = startIdx | 1;
    findCodeTokens_Matcher[] matchers = new findCodeTokens_Matcher[nTokens];
    IContentsIndexedList2 indexedList = tok instanceof IContentsIndexedList2 ? (IContentsIndexedList2) tok : null;
    TreeSet<HasIndex> indices = null;
    int indicesOfs = 0;
    for (int j = 0; j < nTokens; j++) {
      String p = tokens[j];
      findCodeTokens_Matcher matcher;
      if (p.equals("*"))
        matcher = t -> true;
      else if (p.equals("<quoted>"))
        matcher = t -> isQuoted(t);
      else if (p.equals("<id>"))
        matcher = t -> isIdentifier(t);
      else if (p.equals("<int>"))
        matcher = t -> isInteger(t);
      else if (p.equals("\\*"))
        matcher = t -> t.equals("*");
      else if (ignoreCase)
        matcher = t -> eqic(p, t);
      else {
        matcher = t -> t.equals(p);
        if (indexedList != null) {
          TreeSet<HasIndex> indices2 = indexedList.indicesOf_treeSetOfHasIndex(p);
          if (indices2 == null)
            return -1;
          if (indices == null || indices2.size() < indices.size()) {
            indices = indices2;
            indicesOfs = j;
          }
        }
      }
      matchers[j] = matcher;
    }
    if (indices != null) {
      int min = i + indicesOfs * 2;
      SortedSet<HasIndex> tailSet = min == 1 ? indices : indices.tailSet(new HasIndex(min));
      outer: for (HasIndex h : tailSet) {
        int idx = h.idx - indicesOfs * 2;
        if (idx >= end)
          break;
        for (int j = 0; j < nTokens; j++) try {
          if (!matchers[j].get(tok.get(idx + j * 2)))
            continue outer;
        } catch (IndexOutOfBoundsException e) {
          print("fct indicesOfs=" + indicesOfs + ", h=" + h + ", idx=" + idx);
          throw e;
        }
        if (condition == null || checkTokCondition(condition, tok, idx - 1))
          return idx;
      }
      return -1;
    }
    outer: for (; i < end; i += 2) {
      for (int j = 0; j < nTokens; j++) if (!matchers[j].get(tok.get(i + j * 2)))
        continue outer;
      if (condition == null || checkTokCondition(condition, tok, i - 1))
        return i;
    }
    return -1;
  }

  static public String jreplaceExpandRefs(String s, List<String> tokref) {
    if (!contains(s, '$'))
      return s;
    List<String> tok = javaTok(s);
    for (int i = 1; i < l(tok); i += 2) {
      String t = tok.get(i);
      if (t.startsWith("$") && isInteger(t.substring(1))) {
        String x = tokref.get(-1 + parseInt(t.substring(1)) * 2);
        tok.set(i, x);
      } else if (t.equals("\\")) {
        tok.set(i, "");
        i += 2;
      }
    }
    return join(tok);
  }

  static public void clearAllTokens(List<String> tok) {
    for (int i = 0; i < tok.size(); i++) tok.set(i, "");
  }

  static public void clearAllTokens(List<String> tok, int i, int j) {
    for (; i < j; i++) tok.set(i, "");
  }

  static public List<String> reTok(List<String> tok) {
    replaceCollection(tok, javaTok(tok));
    return tok;
  }

  static public List<String> reTok(List<String> tok, int i) {
    return reTok(tok, i, i + 1);
  }

  static public List<String> reTok(List<String> tok, int i, int j) {
    i = max(i & ~1, 0);
    j = min(l(tok), j | 1);
    if (i >= j)
      return tok;
    List<String> t = javaTok(joinSubList(tok, i, j));
    replaceListPart(tok, i, j, t);
    return tok;
  }

  static public List<String> reTok(List<String> tok, IntRange r) {
    if (r != null)
      reTok(tok, r.start, r.end);
    return tok;
  }

  static public String strUnnull(Object o) {
    return o == null ? "" : str(o);
  }

  static public String jlabel_textAsHTML_center_ifNeeded(String text) {
    if (swic(text, "<html>") && ewic(text, "</html>"))
      return text;
    if (!containsNewLines(text))
      return text;
    return jlabel_textAsHTML_center(text);
  }

  static public List flattenCollections(Iterable a) {
    List l = new ArrayList();
    for (Object x : a) if (x instanceof Collection)
      l.addAll(flattenCollections((Collection) x));
    else
      l.add(x);
    return l;
  }

  static public <A, B> void copyMap(Map<? extends A, ? extends B> a, Map<A, B> b) {
    if (a == null || b == null)
      return;
    b.clear();
    b.putAll(a);
  }

  static public String assertIsIdentifier(String s) {
    if (!isIdentifier(s))
      throw fail("Not an identifier: " + quote(s));
    return s;
  }

  static public String assertIsIdentifier(String msg, String s) {
    if (!isIdentifier(s))
      throw fail(msg + " - Not an identifier: " + quote(s));
    return s;
  }

  static public boolean isJavaIdentifier(String s) {
    if (empty(s) || !Character.isJavaIdentifierStart(s.charAt(0)))
      return false;
    for (int i = 1; i < s.length(); i++) if (!Character.isJavaIdentifierPart(s.charAt(i)))
      return false;
    return true;
  }

  static public void printVars_str(Object... params) {
    print(renderVars_str(params));
  }

  static public void printShortenedFunctionCall(Object fname, Object... args) {
    printShortenedFunctionCall(100, fname, args);
  }

  static public void printShortenedFunctionCall(int len, Object fname, Object... args) {
    print(shorten(len, formatFunctionCall(fname, args)));
  }

  static public boolean isNormalQuoted(String s) {
    int l = l(s);
    if (!(l >= 2 && s.charAt(0) == '"' && lastChar(s) == '"'))
      return false;
    int j = 1;
    while (j < l) if (s.charAt(j) == '"')
      return j == l - 1;
    else if (s.charAt(j) == '\\' && j + 1 < l)
      j += 2;
    else
      ++j;
    return false;
  }

  static public boolean isMultilineQuoted(String s) {
    if (!startsWith(s, "["))
      return false;
    int i = 1, n = s.length();
    while (i < n && s.charAt(i) == '=') ++i;
    return i < n && s.charAt(i) == '[';
  }

  static public boolean startsWithIgnoreCase(String a, String b) {
    return regionMatchesIC(a, 0, b, 0, b.length());
  }

  static public int hexToInt(String s) {
    return Integer.parseInt(s, 16);
  }

  static public boolean longIsInt(long l) {
    return l == (int) l;
  }

  static public char lastChar(String s) {
    return empty(s) ? '\0' : s.charAt(l(s) - 1);
  }

  static public _MethodCache getMethodCache(Class c) {
    return callOpt_getCache(c);
  }

  static public Object fieldGet(Field f, Object o) {
    try {
      return f == null ? null : f.get(o);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Map<Class, Constructor[]> getDeclaredConstructors_cached_cache = newDangerousWeakHashMap();

  static public Constructor[] getDeclaredConstructors_cached(Class c) {
    Constructor[] ctors;
    synchronized (getDeclaredConstructors_cached_cache) {
      ctors = getDeclaredConstructors_cached_cache.get(c);
      if (ctors == null) {
        getDeclaredConstructors_cached_cache.put(c, ctors = c.getDeclaredConstructors());
        for (var ctor : ctors) makeAccessible(ctor);
      }
    }
    return ctors;
  }

  static public <A> A[] arrayOfType(Class<A> type, int n) {
    return makeArray(type, n);
  }

  static public <A> A[] arrayOfType(int n, Class<A> type) {
    return arrayOfType(type, n);
  }

  static public <A> List<A> withoutNulls(Iterable<A> l) {
    if (l instanceof List)
      if (!containsNulls((List) l))
        return ((List) l);
    List<A> l2 = new ArrayList();
    for (A a : l) if (a != null)
      l2.add(a);
    return l2;
  }

  static public <A, B> Map<A, B> withoutNulls(Map<A, B> map) {
    Map<A, B> map2 = similarEmptyMap(map);
    for (A a : keys(map)) if (a != null) {
      B b = map.get(a);
      if (b != null)
        map2.put(a, b);
    }
    return map2;
  }

  static public <A> List<A> withoutNulls(A[] l) {
    List<A> l2 = new ArrayList();
    if (l != null)
      for (A a : l) if (a != null)
        l2.add(a);
    return l2;
  }

  static public List mapNonNulls(Iterable l, Object f) {
    return mapNonNulls(f, l);
  }

  static public List mapNonNulls(Object f, Iterable l) {
    List x = new ArrayList();
    if (l != null)
      for (Object o : l) addIfNotNull(x, callF(f, o));
    return x;
  }

  static public List mapNonNulls(Object f, Object[] l) {
    List x = new ArrayList();
    if (l != null)
      for (Object o : l) addIfNotNull(x, callF(f, o));
    return x;
  }

  static public <A, B> List<B> mapNonNulls(Iterable<A> l, F1<A, B> f) {
    return mapNonNulls(f, l);
  }

  static public <A, B> List<B> mapNonNulls(F1<A, B> f, Iterable<A> l) {
    List x = new ArrayList();
    if (l != null)
      for (Object o : l) addIfNotNull(x, callF(f, o));
    return x;
  }

  static public <A, B> List<B> mapNonNulls(A[] l, IF1<A, B> f) {
    return mapNonNulls(f, l);
  }

  static public <A, B> List<B> mapNonNulls(Iterable<A> l, IF1<A, B> f) {
    List x = emptyList(l);
    if (l != null)
      for (A o : l) addIfNotNull(x, f.get(o));
    return x;
  }

  static public <A, B> List<B> mapNonNulls(IF1<A, B> f, Iterable<A> l) {
    return mapNonNulls(l, f);
  }

  static public <A> ArrayList<A> cloneListSynchronizingOn(Collection<A> l, Object mutex) {
    if (l == null)
      return new ArrayList();
    synchronized (mutex) {
      return new ArrayList<A>(l);
    }
  }

  static public <A> A[] newArray(Class<A> c, int n) {
    return typedArray(c, n);
  }

  static public <A, B> Iterator<B> valueIterator(Map<A, B> map) {
    return map == null ? emptyItIt() : map.values().iterator();
  }

  static public String longestPrefixInNavigableSet(String s, NavigableSet<String> set) {
    if (set == null || s == null)
      return null;
    while (licensed()) {
      String key = set.floor(s);
      if (key == null)
        break;
      int n = lCommonPrefix(key, s);
      if (n == l(key))
        return key;
      s = takeFirst(s, n);
    }
    return null;
  }

  static public List<String> notEndingWith(Collection<String> l, final String suffix) {
    return filter(unnull(l), new F1<String, Boolean>() {

      public Boolean get(String s) {
        try {
          return !endsWith(s, suffix);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "!endsWith(s, suffix)";
      }
    });
  }

  static public List<String> notEndingWith(String suffix, Collection<String> l) {
    return notEndingWith(l, suffix);
  }

  static public double frac_nonNeg(double d) {
    return mod(d, 1);
  }

  static public <A, B> int lKeys(MultiMap<A, B> mm) {
    return mm == null ? 0 : mm.keysSize();
  }

  static public Method findMethodNamed(Object obj, String method) {
    if (obj == null)
      return null;
    if (obj instanceof Class)
      return findMethodNamed((Class) obj, method);
    return findMethodNamed(obj.getClass(), method);
  }

  static public Method findMethodNamed(Class c, String method) {
    while (c != null) {
      for (Method m : c.getDeclaredMethods()) if (m.getName().equals(method)) {
        makeAccessible(m);
        return m;
      }
      c = c.getSuperclass();
    }
    return null;
  }

  static public int hashMap_internalHash(Object key) {
    int h;
    return (key == null) ? 0 : (h = key.hashCode()) ^ (h >>> 16);
  }

  static public boolean checkFields(Object x, Object... data) {
    for (int i = 0; i < l(data); i += 2) if (neq(getOpt(x, (String) data[i]), data[i + 1]))
      return false;
    return true;
  }

  static public String hfulltag(String tag) {
    return hfulltag(tag, "");
  }

  static public String hfulltag(String tag, Object contents, Object... params) {
    return hopeningTag(tag, params) + str(contents) + "</" + tag + ">";
  }

  static public String fulltag(String tag) {
    return hfulltag(tag);
  }

  static public String fulltag(String tag, Object contents, Object... params) {
    return hfulltag(tag, contents, params);
  }

  static public List flattenCollectionsAndArrays(Iterable a) {
    List l = new ArrayList();
    for (Object x : a) if (x instanceof Collection)
      l.addAll(flattenCollectionsAndArrays((Collection) x));
    else if (x instanceof Object[])
      l.addAll(flattenCollectionsAndArrays(asList((Object[]) x)));
    else
      l.add(x);
    return l;
  }

  static public List flattenCollectionsAndArrays(Object... whatever) {
    return flattenCollectionsAndArrays(ll(whatever));
  }

  static public Throwable getInnerException(Throwable e) {
    if (e == null)
      return null;
    while (e.getCause() != null) e = e.getCause();
    return e;
  }

  static public Throwable getInnerException(Runnable r) {
    return getInnerException(getException(r));
  }

  static public String baseClassName(String className) {
    return substring(className, className.lastIndexOf('.') + 1);
  }

  static public String baseClassName(Object o) {
    return baseClassName(getClassName(o));
  }

  static public String prependIfNempty(String prefix, String s) {
    return empty(s) ? unnull(s) : prefix + s;
  }

  static public <A> List<A> sortedByCalculatedField(Iterable<A> c, Object f) {
    return sortByCalculatedField(c, f);
  }

  static public <A> List<A> sortedByCalculatedField(Object f, Iterable<A> c) {
    return sortedByCalculatedField(c, f);
  }

  static public <A, B> List<A> sortedByCalculatedField(IF1<A, B> f, Iterable<A> c) {
    return sortedByCalculatedField(c, f);
  }

  static public <A, B> List<A> sortedByCalculatedField(Iterable<A> c, IF1<A, B> f) {
    List<A> l = cloneList(c);
    sort(l, new Comparator<A>() {

      public int compare(A a, A b) {
        return stdcompare(f.get(a), f.get(b));
      }
    });
    return l;
  }

  static public List<String> allMethodNames(Object o) {
    Class c = _getClass(o);
    TreeSet<String> names = new TreeSet();
    while (c != null) {
      for (Method m : c.getDeclaredMethods()) names.add(m.getName());
      c = c.getSuperclass();
    }
    return asList(names);
  }

  static public Map<Class, Set<String>> allFields_cache = weakHashMap();

  static public Set<String> allFields(Object o) {
    if (o == null)
      return emptySet();
    Class _c = _getClass(o);
    Set<String> fields = allFields_cache.get(_c);
    if (fields == null)
      allFields_cache.put(_c, fields = asTreeSet(keys(getOpt_getFieldMap(o))));
    return fields;
  }

  static public Color colorFromRGBA(int rgba) {
    return new Color(rgba, true);
  }

  static public int ubyteToInt(byte b) {
    return b & 0x0FF;
  }

  static public int ubyteToInt(char c) {
    return c & 0x0FF;
  }

  static public String newLinesToSpaces_trim(String s) {
    return s == null ? null : trim(s).replaceAll("\\s*\r?\n\\s*", " ");
  }

  static public String formatWithThousands(long l) {
    return formatWithThousandsSeparator(l);
  }

  static public double fraction(double d) {
    return d % 1;
  }

  static public String n_fancy2(long l, String singular, String plural) {
    return formatWithThousandsSeparator(l) + " " + trim(l == 1 ? singular : plural);
  }

  static public String n_fancy2(Collection l, String singular, String plural) {
    return n_fancy2(l(l), singular, plural);
  }

  static public String n_fancy2(Map m, String singular, String plural) {
    return n_fancy2(l(m), singular, plural);
  }

  static public String n_fancy2(Object[] a, String singular, String plural) {
    return n_fancy2(l(a), singular, plural);
  }

  static public String n_fancy2(MultiSet ms, String singular, String plural) {
    return n_fancy2(l(ms), singular, plural);
  }

  static public int methodApplicabilityScore_withPrimitiveWidening(Executable m, Object[] args) {
    Class<?>[] types = m.getParameterTypes();
    if (types.length != l(args))
      return Integer.MAX_VALUE;
    int score = 0;
    boolean widenings = false;
    for (int i = 0; i < types.length; i++) {
      Object a = args[i];
      Class c = types[i];
      if (a == null) {
        if (c.isPrimitive())
          return Integer.MAX_VALUE;
      } else {
        Class t = a.getClass();
        int s = typeConversionScoreWithUnboxing(t, c);
        if (s == Integer.MAX_VALUE)
          return Integer.MAX_VALUE;
        if (s < 0)
          widenings = true;
        score += abs(s);
      }
    }
    return widenings ? -score : score;
  }

  static public Object invokeConstructorWithWidening(Constructor m, Object... args) {
    try {
      try {
        Class<?>[] types = m.getParameterTypes();
        int n = types.length;
        Object[] args2 = new Object[n];
        for (int i = 0; i < n; i++) args2[i] = convertPrimitiveIfNecessary(args[i], types[i]);
        return m.newInstance(args2);
      } catch (IllegalArgumentException e) {
        throw new IllegalArgumentException(e.getMessage() + " - was calling: " + m + ", args: " + joinWithSpace(classNames(args)));
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String hostToIP(String host) {
    try {
      for (InetAddress a : InetAddress.getAllByName(host)) {
        String ip = a.getHostAddress();
        if (isIPv4(ip))
          return ip;
      }
      throw fail("No IP address found for " + host);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Object callWithVarargs(Object o, String method, Object... args) {
    return call_withVarargs(o, method, args);
  }

  static public int methodApplicabilityScore_withPrimitiveWidening_onTypes(Executable m, Class[] argTypes) {
    Class<?>[] types = m.getParameterTypes();
    if (types.length != l(argTypes))
      return Integer.MAX_VALUE;
    int score = 0;
    boolean widenings = false;
    for (int i = 0; i < types.length; i++) {
      Class t = argTypes[i];
      Class c = types[i];
      int s = typeConversionScoreWithUnboxing(t, c);
      if (s == Integer.MAX_VALUE)
        return Integer.MAX_VALUE;
      if (s < 0)
        widenings = true;
      score += abs(s);
    }
    return widenings ? -score : score;
  }

  static public Object callWithVarargs_sentinel(Object o, String methodName, Object methodNotFoundSentinel, Object... args) {
    try {
      if (o == null)
        return null;
      if (o instanceof Class) {
        Class c = (Class) o;
        _MethodCache cache = callOpt_getCache(c);
        Method me = cache.findStaticMethod(methodName, args);
        if (me != null)
          return invokeMethod(me, null, args);
        List<Method> methods = cache.cache.get(methodName);
        if (methods != null)
          methodSearch: for (Method m : methods) {
            {
              if (!(m.isVarArgs()))
                continue;
            }
            {
              if (!(isStaticMethod(m)))
                continue;
            }
            Object[] newArgs = massageArgsForVarArgsCall(m, args);
            if (newArgs != null)
              return invokeMethod(m, null, newArgs);
          }
        return methodNotFoundSentinel;
      } else {
        Class c = o.getClass();
        _MethodCache cache = callOpt_getCache(c);
        Method me = cache.findMethod(methodName, args);
        if (me != null)
          return invokeMethod(me, o, args);
        List<Method> methods = cache.cache.get(methodName);
        if (methods != null)
          methodSearch: for (Method m : methods) {
            {
              if (!(m.isVarArgs()))
                continue;
            }
            Object[] newArgs = massageArgsForVarArgsCall(m, args);
            if (newArgs != null)
              return invokeMethod(m, o, newArgs);
          }
        return methodNotFoundSentinel;
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A> A[] singlePlusArray(A a, A[] l) {
    A[] out = newObjectArrayOfSameType(l, l(l) + 1);
    out[0] = a;
    arraycopy(l, 0, out, 1, l(l));
    return out;
  }

  static public Method findSingleInterfaceMethod(Class intrface) {
    return singletonOpt(findNonDefaultInterfaceMethods(intrface));
  }

  static public Object convertPrimitiveIfNecessary(Object o, Class b) {
    if (b.isPrimitive()) {
      if (o instanceof Character) {
        char x = (char) (((Character) o));
        if (b == int.class)
          return Integer.valueOf(x);
        if (b == long.class)
          return Long.valueOf(x);
        if (b == float.class)
          return Float.valueOf(x);
        if (b == double.class)
          return Double.valueOf(x);
      } else if (o instanceof Number) {
        if (b == char.class)
          return Character.valueOf((char) ((Number) o).intValue());
        if (b == short.class)
          return ((Number) o).shortValue();
        if (b == int.class)
          return ((Number) o).intValue();
        if (b == long.class)
          return ((Number) o).longValue();
        if (b == float.class)
          return ((Number) o).floatValue();
      }
    }
    return o;
  }

  static public <A> IterableIterator<A> emptyItIt() {
    return emptyIterableIterator();
  }

  static public <A> IterableIterator<A> arrayIterator(A[] l) {
    return l == null ? null : new IterableIterator<A>() {

      public int i = 0;

      public boolean hasNext() {
        return i < l.length;
      }

      public A next() {
        return l[i++];
      }
    };
  }

  static public <A> IterableIterator<A> iff(Object f) {
    return iteratorFromFunction_withEndMarker(f);
  }

  static public IterableIterator iff(F0 f) {
    return iteratorFromFunction_withEndMarker(f);
  }

  static public <A> IterableIterator iff(IF0 f) {
    return iteratorFromFunction_withEndMarker(f);
  }

  static public Object endMarker() {
    return iteratorFromFunction_endMarker;
  }

  static public List<String> javaTok_noMLS(String s) {
    ArrayList<String> tok = new ArrayList();
    int l = s == null ? 0 : s.length();
    int i = 0, n = 0;
    while (i < l) {
      int j = i;
      char c, d;
      while (j < l) {
        c = s.charAt(j);
        d = j + 1 >= l ? '\0' : s.charAt(j + 1);
        if (c == ' ' || c == '\t' || c == '\r' || c == '\n')
          ++j;
        else if (c == '/' && d == '*') {
          do ++j; while (j < l && !s.substring(j, Math.min(j + 2, l)).equals("*/"));
          j = Math.min(j + 2, l);
        } else if (c == '/' && d == '/') {
          do ++j; while (j < l && "\r\n".indexOf(s.charAt(j)) < 0);
        } else
          break;
      }
      tok.add(javaTok_substringN(s, i, j));
      ++n;
      i = j;
      if (i >= l)
        break;
      c = s.charAt(i);
      d = i + 1 >= l ? '\0' : s.charAt(i + 1);
      if (c == '\'' || c == '"') {
        char opener = c;
        ++j;
        while (j < l) {
          int c2 = s.charAt(j);
          if (c2 == opener || c2 == '\n' && opener == '\'') {
            ++j;
            break;
          } else if (c2 == '\\' && j + 1 < l)
            j += 2;
          else
            ++j;
        }
      } else if (Character.isJavaIdentifierStart(c))
        do ++j; while (j < l && Character.isJavaIdentifierPart(s.charAt(j)));
      else if (Character.isDigit(c)) {
        do ++j; while (j < l && Character.isDigit(s.charAt(j)));
        if (j < l && s.charAt(j) == 'L')
          ++j;
      } else
        ++j;
      tok.add(javaTok_substringC(s, i, j));
      ++n;
      i = j;
    }
    if ((tok.size() % 2) == 0)
      tok.add("");
    return tok;
  }

  static public Object swingCall(final Object o, final String method, final Object... args) {
    return swing(new F0<Object>() {

      public Object get() {
        try {
          return call(o, method, args);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return call(o, method, args);";
      }
    });
  }

  static public ListIterator emptyListIterator() {
    return Collections.emptyListIterator();
  }

  static public AutoCloseable tempSetField(Object o, String field, Object value) {
    final Object oldValue = get(o, field);
    set(o, field, value);
    return () -> set(o, field, oldValue);
  }

  static public <A> AutoCloseable tempSetField(ISetAndGet<A> gs, A value) {
    if (gs == null)
      return null;
    A oldValue = gs.get();
    gs.set(value);
    return () -> gs.set(oldValue);
  }

  static public <A> AutoCloseable tempSetField(A value, ISetAndGet<A> gs) {
    return tempSetField(gs, value);
  }

  static public int identityHash(Object o) {
    return identityHashCode(o);
  }

  static public ClassLoader getClassLoader(Object o) {
    return o == null ? null : _getClass(o).getClassLoader();
  }

  static public boolean dirOrZipContainsPath(File location, String subPath) {
    try {
      if (location.isDirectory()) {
        return new File(location, subPath).exists();
      } else if (location.isFile()) {
        return zipFileContains_falseOnError(location, subPath);
      }
      return false;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public File[] listFiles(File dir) {
    File[] files = dir == null ? null : dir.listFiles();
    return files == null ? new File[0] : files;
  }

  static public File[] listFiles(String dir) {
    return listFiles(new File(dir));
  }

  static public String dropPrefixOrNull(String prefix, String s) {
    return s != null && s.startsWith(prefix) ? s.substring(l(prefix)) : null;
  }

  static public List<String> loadedJigsawModuleNames() {
    var moduleLayer = ModuleLayer.boot();
    var modules = moduleLayer.modules();
    return map(modules, mod -> mod.getName());
  }

  static public List<String> classNamesInJigsawModule(String moduleName) {
    return classNamesInJigsawModule(moduleName, javaHome());
  }

  static public List<String> classNamesInJigsawModule(String moduleName, File javaHome) {
    return classNamesInJarOrDir(jigsawModuleFile(moduleName, javaHome), "classes/");
  }

  static public Runnable _topLevelErrorHandling(Runnable r) {
    if (r == null)
      return null;
    Object info = _threadInfo();
    Object mod = dm_current_generic();
    Runnable r2 = r;
    if (info != null || mod == null)
      r2 = new Runnable() {

        public void run() {
          try {
            AutoCloseable __1 = (AutoCloseable) (rcall("enter", mod));
            try {
              _threadInheritInfo(info);
              r.run();
            } finally {
              _close(__1);
            }
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "temp (AutoCloseable) rcall enter(mod);\r\n      _threadInheritInfo(info);\r\n    ...";
        }
      };
    r2 = rPcall(r2);
    return r2;
  }

  static public String defaultThreadName_name;

  static public String defaultThreadName() {
    if (defaultThreadName_name == null)
      defaultThreadName_name = "A thread by " + programID();
    return defaultThreadName_name;
  }

  static public <A> List<A> cloneSubList(List<A> l, int startIndex, int endIndex) {
    return newSubList(l, startIndex, endIndex);
  }

  static public <A> List<A> cloneSubList(List<A> l, int startIndex) {
    return newSubList(l, startIndex);
  }

  static public void removeSubList(List l, int from, int to) {
    if (l != null)
      subList(l, from, to).clear();
  }

  static public void removeSubList(List l, int from) {
    if (l != null)
      subList(l, from).clear();
  }

  static public <A, B> LinkedHashMap<A, B> cloneLinkedHashMap(Map<A, B> map) {
    return map == null ? new LinkedHashMap() : new LinkedHashMap(map);
  }

  static public <A> A swingNu(final Class<A> c, final Object... args) {
    return swingConstruct(c, args);
  }

  static public void imageSurface_unpixelated(ImageSurface imageSurface) {
    if (imageSurface == null)
      return;
    imageSurface.interpolationMode = RenderingHints.VALUE_INTERPOLATION_BILINEAR;
    repaint(imageSurface);
  }

  static public File programDir_mine;

  static public File programDir() {
    return programDir(getProgramID());
  }

  static public File programDir(String snippetID) {
    boolean me = sameSnippetID(snippetID, programID());
    if (programDir_mine != null && me)
      return programDir_mine;
    File dir = new File(javaxDataDir(), formatSnippetIDOpt(snippetID));
    if (me) {
      String c = caseID();
      if (nempty(c))
        dir = newFile(dir, c);
    }
    return dir;
  }

  static public File programDir(String snippetID, String subPath) {
    return new File(programDir(snippetID), subPath);
  }

  static public String dbProgramID() {
    return getDBProgramID();
  }

  static public List<BufferedImage> allToBufferedImage(Iterable l) {
    return map(__93 -> toBufferedImage(__93), l);
  }

  static public BufferedImage toBufferedImageOpt(Object o) {
    if (o instanceof BufferedImage)
      return ((BufferedImage) o);
    if (o instanceof Image)
      return copyImage((Image) o);
    if (o instanceof MakesBufferedImage)
      return ((MakesBufferedImage) o).getBufferedImage();
    String c = getClassName(o);
    if (eqOneOf(c, "main$BWImage", "main$RGBImage"))
      return (BufferedImage) call(o, "getBufferedImage");
    return null;
  }

  static public boolean removeFile(File file) {
    return deleteFile(file);
  }

  static public FileOutputStream newFileOutputStream(File path) throws IOException {
    return newFileOutputStream(path.getPath());
  }

  static public FileOutputStream newFileOutputStream(String path) throws IOException {
    return newFileOutputStream(path, false);
  }

  static public FileOutputStream newFileOutputStream(File path, boolean append) throws IOException {
    return newFileOutputStream(path.getPath(), append);
  }

  static public FileOutputStream newFileOutputStream(String path, boolean append) throws IOException {
    mkdirsForFile(path);
    FileOutputStream f = new FileOutputStream(path, append);
    _registerIO(f, path, true);
    return f;
  }

  static public List<String> toLinesFullTrim(String s) {
    List<String> l = new ArrayList();
    for (String line : toLines(s)) if (nempty(line = trim(line)))
      l.add(line);
    return l;
  }

  static public List<String> toLinesFullTrim(File f) {
    List<String> l = new ArrayList();
    for (String line : linesFromFile(f)) if (nempty(line = trim(line)))
      l.add(line);
    return l;
  }

  static public ThreadLocal<VF1<File>> checkFileNotTooBigToRead_tl = new ThreadLocal();

  static public void checkFileNotTooBigToRead(File f) {
    callF(checkFileNotTooBigToRead_tl.get(), f);
  }

  static public <A extends Component> A jPreferHeight(int h, A c) {
    Dimension size = c.getPreferredSize();
    c.setPreferredSize(new Dimension(size.width, max(h, size.height)));
    return c;
  }

  static public boolean odd(int i) {
    return (i & 1) != 0;
  }

  static public boolean odd(long i) {
    return (i & 1) != 0;
  }

  static public boolean odd(BigInteger i) {
    return odd(toInt(i));
  }

  static public boolean isSpaceEtc(char c) {
    return c == ' ' || c == '\t' || c == '\r' || c == '\n';
  }

  static public File fileAppendToName(File f, String suffix) {
    return newFile(f.getPath() + suffix);
  }

  static public <A extends Concept> A uniqueConcept(Class<A> c, Object... params) {
    return uniqueConcept(db_mainConcepts(), c, params);
  }

  static public <A extends Concept> A uniqueConcept(Concepts cc, Class<A> c, Object... params) {
    AutoCloseable __1 = tempDBLock(cc);
    try {
      params = expandParams(c, params);
      A x = findConceptWhere(cc, c, params);
      if (x == null) {
        x = unlisted(c);
        csetAll(x, params);
        cc.register(x);
      } else {
      }
      return x;
    } finally {
      _close(__1);
    }
  }

  static public AutoCloseable tempDBLock(Concepts concepts) {
    return tempLock(concepts.lock);
  }

  static public AutoCloseable tempDBLock() {
    return tempDBLock(db_mainConcepts());
  }

  static public <A extends Concept> Object[] expandParams(Class<A> c, Object[] params) {
    if (l(params) == 1)
      params = new Object[] { singleFieldName(c), params[0] };
    else
      warnIfOddCount(params);
    return params;
  }

  static public <A extends Concept> A findConceptWhereCI(Class<A> c, Object... params) {
    return findConceptWhereCI(db_mainConcepts(), c, params);
  }

  static public <A extends Concept> A findConceptWhereCI(Concepts concepts, Class<A> c, Object... params) {
    params = expandParams(c, params);
    Lowest<IF0<Collection<A>>> bestIndex = new Lowest();
    if (concepts.ciFieldIndices != null)
      for (int i = 0; i < l(params); i += 2) {
        ping();
        Object val = params[i + 1];
        IFieldIndex<A, Object> index = concepts.getCIFieldIndex(c, (String) params[i]);
        if (index != null) {
          Collection<A> l = index.getAll(val);
          bestIndex.put(() -> l, l(l));
        }
        if (concepts.useBackRefsForSearches && val instanceof Concept) {
          bestIndex.put(() -> findBackRefs(((Concept) val), c), ((Concept) val)._backRefCount());
        }
      }
    if (bestIndex.has()) {
      Collection<A> l = bestIndex.get().get();
      if (l(params) == 2)
        return first(l);
      for (A x : l) {
        ping();
        if (checkConceptFieldsIC(x, params))
          return x;
      }
      return null;
    } else {
      for (A x : concepts.list(c)) {
        ping();
        if (checkConceptFieldsIC(x, params))
          return x;
      }
      return null;
    }
  }

  static public Concept findConceptWhereCI(Concepts concepts, String c, Object... params) {
    for (Concept x : concepts.list(c)) {
      ping();
      if (checkConceptFieldsIC(x, params))
        return x;
    }
    return null;
  }

  static public String conceptsFileName() {
    return "concepts.structure.gz";
  }

  static public List<File> listDirs(File dir) {
    if (dir == null)
      return emptyList();
    File[] files = dir.listFiles();
    List<File> l = new ArrayList();
    if (files != null)
      for (File f : files) if (f.isDirectory())
        l.add(f);
    return l;
  }

  static public List<File> listDirs(String dir) {
    return listDirs(newFile(dir));
  }

  static public void close_pcall(AutoCloseable c) {
    if (c != null) {
      try {
        c.close();
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }
  }

  static public <A, B> List<B> valuesList(Map<A, B> map) {
    return cloneListSynchronizingOn(values(map), map);
  }

  static public <A, B> List<B> valuesList(MultiMap<A, B> mm) {
    return mm == null ? emptyList() : concatLists(values(mm.data));
  }

  static public void preCleanUp(Object c) {
    if (c instanceof Collection) {
      for (Object o : ((Collection) c)) preCleanUp(o);
      return;
    }
    callOpt(c, "licensed_off");
    setOpt_raw(c, "ping_anyActions", true);
    setOpt_raw(c, "cleaningUp_flag", true);
  }

  static public void setOpt_raw(Object o, String field, Object value) {
    try {
      if (o == null)
        return;
      if (o instanceof Class)
        setOpt_raw((Class) o, field, value);
      else {
        Field f = setOpt_raw_findField(o.getClass(), field);
        if (f != null) {
          makeAccessible(f);
          smartSet(f, o, value);
        }
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void setOpt_raw(Class c, String field, Object value) {
    try {
      if (c == null)
        return;
      Field f = setOpt_raw_findStaticField(c, field);
      if (f != null) {
        makeAccessible(f);
        smartSet(f, null, value);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Field setOpt_raw_findStaticField(Class<?> c, String field) {
    Class _c = c;
    do {
      for (Field f : _c.getDeclaredFields()) if (f.getName().equals(field) && (f.getModifiers() & java.lang.reflect.Modifier.STATIC) != 0)
        return f;
      _c = _c.getSuperclass();
    } while (_c != null);
    return null;
  }

  static public Field setOpt_raw_findField(Class<?> c, String field) {
    Class _c = c;
    do {
      for (Field f : _c.getDeclaredFields()) if (f.getName().equals(field))
        return f;
      _c = _c.getSuperclass();
    } while (_c != null);
    return null;
  }

  static public void innerCleanUp(Object c) {
    if (!isFalse(pcallOpt(c, "cleanMeUp")))
      for (String name : sorted(methodsStartingWith(c, "cleanMeUp_"))) try {
        callOpt(c, name);
      } catch (Throwable e) {
        print("Error cleaning up: " + programID(c));
        _handleException(e);
      }
  }

  static public void innerCleanUp() {
    innerCleanUp(mc());
  }

  static public Object pcallOpt(Object o, String method, Object... args) {
    try {
      return callOpt(o, method, args);
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    return null;
  }

  static public List<Thread> registeredThreads(Object o) {
    Map<Thread, Boolean> map = (Map<Thread, Boolean>) (getOpt(o, "_registerThread_threads"));
    if (map == null)
      return ll();
    map.size();
    synchronized (map) {
      return asList(keys(map));
    }
  }

  static public List<Thread> registeredThreads() {
    _registerThread_threads.size();
    return asList(keys(_registerThread_threads));
  }

  static public void interruptThreads(Collection<Thread> threads) {
    for (Thread t : unnull(threads)) interruptThread(t);
  }

  static public void interruptThreads(Class mainClass) {
    interruptThreads(registeredThreads(mainClass));
  }

  static public void retireClassLoader(ClassLoader cl) {
    try {
      if (isJavaXClassLoader(cl))
        setOptAll(cl, "retired", true, "retiredMarker", new DefunctClassLoader());
    } catch (Throwable __e) {
      pcallFail(__e);
    }
  }

  static public List collectField(Iterable c, String field) {
    List l = new ArrayList();
    if (c != null)
      for (Object a : c) l.add(getOpt(a, field));
    return l;
  }

  static public List collectField(String field, Iterable c) {
    return collectField(c, field);
  }

  static public double positiveInfinity() {
    return Double.POSITIVE_INFINITY;
  }

  static public AutoCloseable tempOnChange(IHasChangeListeners src, Runnable listener) {
    if (src == null || listener == null)
      return null;
    src.onChange(listener);
    return () -> src.removeChangeListener(listener);
  }

  static public <A extends Concept> Collection<A> findConceptsWhere(Class<A> c, Object... params) {
    return findConceptsWhere(db_mainConcepts(), c, params);
  }

  static public Collection<Concept> findConceptsWhere(String c, Object... params) {
    return findConceptsWhere(db_mainConcepts(), c, params);
  }

  static public <A extends Concept> Collection<A> findConceptsWhere(Concepts concepts, Class<A> c, Object... params) {
    ping();
    params = expandParams(c, params);
    if (concepts.fieldIndices != null)
      for (int i = 0; i < l(params); i += 2) {
        IFieldIndex<A, Object> index = concepts.getFieldIndex(c, (String) params[i]);
        if (index != null) {
          Collection<A> rawList = index.getAll(params[i + 1]);
          params = dropEntryFromParams(params, i);
          if (params == null)
            return rawList;
          List<A> l = new ArrayList();
          for (A x : rawList) if (checkConceptFields(x, params))
            l.add(x);
          return l;
        }
      }
    return filterConcepts(concepts.list(c), params);
  }

  static public Collection<Concept> findConceptsWhere(Concepts concepts, String c, Object... params) {
    return filterConcepts(concepts.list(c), params);
  }

  static public boolean isInstance(Class type, Object arg) {
    return type.isInstance(arg);
  }

  static public double toSeconds(long ms) {
    return ms / 1000.0;
  }

  static public String toSeconds(long ms, int digits) {
    return formatDouble(toSeconds(ms), digits);
  }

  static public double toSeconds(double ms) {
    return ms / 1000.0;
  }

  static public String toSeconds(double ms, int digits) {
    return formatDouble(toSeconds(ms), digits);
  }

  static public Set<Thread> evalWithTimeout_inTime = synchroSet();

  static public Set<Thread> evalWithTimeout_allThreads = newWeakHashSet();

  static public ThreadLocal<String> evalWithTimeout_threadName = new ThreadLocal();

  static public <A> Either<A, Thread> evalWithTimeout(double timeoutSeconds, IF0<A> r) {
    return (Either) evalWithTimeout(timeoutSeconds, (Object) r);
  }

  static public Either<Object, Thread> evalWithTimeout(int timeoutMS, Object r) {
    return evalWithTimeout(toSeconds(timeoutMS), r);
  }

  static public Either<Object, Thread> evalWithTimeout(double timeoutSeconds, Object r) {
    final Flag done = new Flag();
    final Flag doneWaiting = new Flag();
    final Var var = new Var();
    final Var<Throwable> error = new Var();
    var printer = print_byThread().get();
    Thread t = newThread(getAndClearThreadLocal(evalWithTimeout_threadName), new Runnable() {

      public void run() {
        try {
          try {
            AutoCloseable __1 = tempSetTL(print_byThread(), printer);
            try {
              try {
                var.set(callF(r));
              } finally {
                evalWithTimeout_allThreads.remove(currentThread());
              }
            } finally {
              _close(__1);
            }
          } catch (Throwable e) {
            error.set(e);
            if (doneWaiting.isUp())
              printStackTrace_inPossiblyCancelledThread(e);
          } finally {
            done.raise();
          }
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "try {\r\n      temp tempSetTL(print_byThread(), printer);\r\n      \r\n      try {\r...";
      }
    });
    beforeDelegatingToThread(t);
    try {
      startThread(t);
      evalWithTimeout_inTime.add(t);
      evalWithTimeout_allThreads.add(t);
      try {
        done.waitUntilUp(timeoutSeconds);
        doneWaiting.raise();
      } finally {
        evalWithTimeout_inTime.remove(t);
      }
      if (!done.isUp()) {
        print("Cancelling thread (timeout)");
        cancelAndInterruptThread(t);
        return either2(t);
      }
      if (error.get() != null)
        rethrow(error.get());
      return either1(var.get());
    } finally {
      afterDelegatingToThread(t);
    }
  }

  static public Runnable wrapAsActivity(Object r) {
    if (r == null)
      return null;
    Runnable r2 = toRunnable(r);
    Object mod = dm_current_generic();
    if (mod == null)
      return r2;
    return new Runnable() {

      public void run() {
        try {
          AutoCloseable c = (AutoCloseable) (rcall("enter", mod));
          AutoCloseable __1 = c;
          try {
            r2.run();
          } finally {
            _close(__1);
          }
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "AutoCloseable c =  (AutoCloseable) (rcall enter(mod));\r\n    temp c;\r\n    r2.r...";
      }
    };
  }

  static public Map<Thread, Boolean> _registerThread_threads;

  static public Object _onRegisterThread;

  static public Thread _registerThread(Thread t) {
    if (_registerThread_threads == null)
      _registerThread_threads = newWeakHashMap();
    _registerThread_threads.put(t, true);
    vm_generalWeakSubMap("thread2mc").put(t, weakRef(mc()));
    callF(_onRegisterThread, t);
    return t;
  }

  static public void _registerThread() {
    _registerThread(Thread.currentThread());
  }

  static public boolean isString(Object o) {
    return o instanceof String;
  }

  static public IF0 mainFunctionToIF0(final String fname) {
    return (IF0) () -> callMC(fname);
  }

  static public WeakReference<Object> creator_class;

  static public Object creator() {
    return creator_class == null ? null : creator_class.get();
  }

  static public <A extends Concept> A conceptWhere(Class<A> c, Object... params) {
    return findConceptWhere(c, params);
  }

  static public <A extends Concept> A conceptWhere(Concepts cc, Class<A> c, Object... params) {
    return findConceptWhere(cc, c, params);
  }

  static public URI uri(String uri) {
    try {
      return new URI(uri);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String loadTextFileResource(ClassLoader cl, String name) {
    return inputStreamToString(cl.getResourceAsStream(name));
  }

  static public ClassLoader classLoader(Object o) {
    return classLoaderForObject(o);
  }

  static public Producer<String> javaTokC_noMLS_iterator(final String s) {
    return javaTokC_noMLS_iterator(s, 0);
  }

  static public Producer<String> javaTokC_noMLS_iterator(final String s, final int startIndex) {
    return new Producer<String>() {

      final public int l = s.length();

      public int i = startIndex;

      public String next() {
        if (i >= l)
          return null;
        int j = i;
        char c, d;
        while (j < l) {
          c = s.charAt(j);
          d = j + 1 >= l ? '\0' : s.charAt(j + 1);
          if (c == ' ' || c == '\t' || c == '\r' || c == '\n')
            ++j;
          else if (c == '/' && d == '*') {
            do ++j; while (j < l && !s.substring(j, Math.min(j + 2, l)).equals("*/"));
            j = Math.min(j + 2, l);
          } else if (c == '/' && d == '/') {
            do ++j; while (j < l && "\r\n".indexOf(s.charAt(j)) < 0);
          } else
            break;
        }
        i = j;
        if (i >= l)
          return null;
        c = s.charAt(i);
        d = i + 1 >= l ? '\0' : s.charAt(i + 1);
        if (c == '\'' || c == '"') {
          char opener = c;
          ++j;
          while (j < l) {
            if (s.charAt(j) == opener || s.charAt(j) == '\n') {
              ++j;
              break;
            } else if (s.charAt(j) == '\\' && j + 1 < l)
              j += 2;
            else
              ++j;
          }
        } else if (Character.isJavaIdentifierStart(c))
          do ++j; while (j < l && Character.isJavaIdentifierPart(s.charAt(j)));
        else if (Character.isDigit(c)) {
          do ++j; while (j < l && Character.isDigit(s.charAt(j)));
          if (j < l && s.charAt(j) == 'L')
            ++j;
        } else
          ++j;
        String t = quickSubstring(s, i, j);
        i = j;
        return t;
      }
    };
  }

  static public Producer<String> javaTokC_noMLS_onReader(final BufferedReader r) {
    final class X implements Producer<String> {

      public StringBuilder buf = new StringBuilder();

      public char c, d, e = 'x';

      public X() {
        nc();
        nc();
        nc();
      }

      public void nc() {
        try {
          c = d;
          d = e;
          if (e == '\0')
            return;
          int i = r.read();
          e = i < 0 ? '\0' : i == '\0' ? '_' : (char) i;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public void ncSave() {
        if (c != '\0') {
          buf.append(c);
          nc();
        }
      }

      public String next() {
        while (c != '\0') {
          if (c == ' ' || c == '\t' || c == '\r' || c == '\n')
            nc();
          else if (c == '/' && d == '*') {
            do nc(); while (c != '\0' && !(c == '*' && d == '/'));
            nc();
            nc();
          } else if (c == '/' && d == '/') {
            do nc(); while (c != '\0' && "\r\n".indexOf(c) < 0);
          } else
            break;
        }
        if (c == '\0')
          return null;
        if (c == '\'' || c == '"') {
          char opener = c;
          ncSave();
          while (c != '\0') {
            if (c == opener || c == '\n') {
              ncSave();
              break;
            } else if (c == '\\') {
              ncSave();
              ncSave();
            } else
              ncSave();
          }
        } else if (Character.isJavaIdentifierStart(c))
          do ncSave(); while (Character.isJavaIdentifierPart(c) || c == '\'');
        else if (Character.isDigit(c)) {
          do ncSave(); while (Character.isDigit(c));
          if (c == 'L')
            ncSave();
        } else
          ncSave();
        String t = buf.toString();
        buf.setLength(0);
        return t;
      }
    }
    return new X();
  }

  static public String actualMCDollar() {
    return actualMC().getName() + "$";
  }

  static public BigInteger parseBigInt(String s) {
    return new BigInteger(s);
  }

  static public String trivialUnquote(String s) {
    return dropPrefixSuffix("\"", s);
  }

  static public short[] shortArrayFromBytes(byte[] a) {
    return shortArrayFromBytes(a, 0, l(a));
  }

  static public short[] shortArrayFromBytes(byte[] a, int from, int to) {
    short[] b = new short[(to - from) / 2];
    for (int i = 0; i < b.length; i++) b[i] = shortFromBytes(a, from + i * 2);
    return b;
  }

  static public byte[] hexToBytes(String s) {
    if (odd(l(s)))
      throw fail("Hex string has odd length: " + quote(shorten(10, s)));
    int n = l(s) / 2;
    byte[] bytes = new byte[n];
    for (int i = 0; i < n; i++) {
      int a = parseHexChar(s.charAt(i * 2));
      int b = parseHexChar(s.charAt(i * 2 + 1));
      if (a < 0 || b < 0)
        throw fail("Bad hex byte: " + quote(substring(s, i * 2, i * 2 + 2)) + " at " + i * 2 + "/" + l(s));
      bytes[i] = (byte) ((a << 4) | b);
    }
    return bytes;
  }

  static public long[] longArrayFromBytes(byte[] a) {
    return longArrayFromBytes(a, 0, l(a));
  }

  static public long[] longArrayFromBytes(byte[] a, int from, int to) {
    long[] b = new long[(to - from) / 8];
    for (int i = 0; i < b.length; i++) b[i] = longFromBytes_bigEndian(a, from + i * 8);
    return b;
  }

  static public HashMap<String, Class> findClass_fullName_cache = new HashMap();

  static public Class findClass_fullName(String name) {
    synchronized (findClass_fullName_cache) {
      if (findClass_fullName_cache.containsKey(name))
        return findClass_fullName_cache.get(name);
      Class c;
      try {
        c = Class.forName(name);
      } catch (ClassNotFoundException e) {
        c = null;
      }
      findClass_fullName_cache.put(name, c);
      return c;
    }
  }

  static public String unquoteUsingCharArray(String s, char[] buf) {
    if (s == null)
      return null;
    if (startsWith(s, '[')) {
      int i = 1;
      while (i < s.length() && s.charAt(i) == '=') ++i;
      if (i < s.length() && s.charAt(i) == '[') {
        String m = s.substring(1, i);
        if (s.endsWith("]" + m + "]"))
          return s.substring(i + 1, s.length() - i - 1);
      }
    }
    if (s.length() > 1) {
      char c = s.charAt(0);
      if (c == '\"' || c == '\'') {
        int l = endsWith(s, c) ? s.length() - 1 : s.length();
        if (l > buf.length)
          return unquote(s);
        int n = 0;
        for (int i = 1; i < l; i++) {
          char ch = s.charAt(i);
          if (ch == '\\') {
            char nextChar = (i == l - 1) ? '\\' : s.charAt(i + 1);
            if (nextChar >= '0' && nextChar <= '7') {
              String code = "" + nextChar;
              i++;
              if ((i < l - 1) && s.charAt(i + 1) >= '0' && s.charAt(i + 1) <= '7') {
                code += s.charAt(i + 1);
                i++;
                if ((i < l - 1) && s.charAt(i + 1) >= '0' && s.charAt(i + 1) <= '7') {
                  code += s.charAt(i + 1);
                  i++;
                }
              }
              buf[n++] = (char) Integer.parseInt(code, 8);
              continue;
            }
            switch(nextChar) {
              case '\"':
                ch = '\"';
                break;
              case '\\':
                ch = '\\';
                break;
              case 'b':
                ch = '\b';
                break;
              case 'f':
                ch = '\f';
                break;
              case 'n':
                ch = '\n';
                break;
              case 'r':
                ch = '\r';
                break;
              case 't':
                ch = '\t';
                break;
              case '\'':
                ch = '\'';
                break;
              case 'u':
                if (i >= l - 5) {
                  ch = 'u';
                  break;
                }
                int code = Integer.parseInt("" + s.charAt(i + 2) + s.charAt(i + 3) + s.charAt(i + 4) + s.charAt(i + 5), 16);
                char[] x = Character.toChars(code);
                int lx = x.length;
                for (int j = 0; j < lx; j++) buf[n++] = x[j];
                i += 5;
                continue;
              default:
                ch = nextChar;
            }
            i++;
          }
          buf[n++] = ch;
        }
        return new String(buf, 0, n);
      }
    }
    return s;
  }

  static public boolean structure_isMarker(String s, int i, int j) {
    if (i >= j)
      return false;
    if (s.charAt(i) != 'm')
      return false;
    ++i;
    while (i < j) {
      char c = s.charAt(i);
      if (c < '0' || c > '9')
        return false;
      ++i;
    }
    return true;
  }

  static public String internIfLongerThan(String s, int l) {
    return s == null ? null : l(s) >= l ? intern(s) : s;
  }

  static public char unquoteCharacter(String s) {
    assertTrue(s.startsWith("'") && s.length() > 1);
    return unquote("\"" + s.substring(1, s.endsWith("'") ? s.length() - 1 : s.length()) + "\"").charAt(0);
  }

  static public boolean isLongConstant(String s) {
    if (!s.endsWith("L"))
      return false;
    s = s.substring(0, l(s) - 1);
    return isInteger(s);
  }

  static public <A> TreeMap<String, A> ciMap() {
    return caseInsensitiveMap();
  }

  static public List parseList(String s) {
    return (List) safeUnstructure(s);
  }

  static public <A> List<A> synchroLinkedList() {
    return synchroList(new LinkedList<A>());
  }

  static public <A, B> NavigableMap<A, B> synchroNavigableMap(NavigableMap<A, B> map) {
    return new SynchronizedNavigableMap(map);
  }

  static public <A, B> SortedMap<A, B> synchroSortedMap(SortedMap<A, B> map) {
    return new SynchronizedSortedMap(map);
  }

  static public boolean[] boolArrayFromBytes(byte[] a, int n) {
    boolean[] b = new boolean[n];
    int m = min(n, l(a) * 8);
    for (int i = 0; i < m; i++) b[i] = (a[i / 8] & 1 << (i & 7)) != 0;
    return b;
  }

  static public <A> Constructor nuStubInnerObject_findConstructor(Class<A> c) {
    return nuStubInnerObject_findConstructor(c, null);
  }

  static public <A> Constructor nuStubInnerObject_findConstructor(Class<A> c, Object classFinder) {
    try {
      Class outerType = getOuterClass(c, classFinder);
      Constructor m = c.getDeclaredConstructor(outerType);
      makeAccessible(m);
      return m;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Map<Class, Constructor> nuEmptyObject_cache = newDangerousWeakHashMap();

  static public <A> A nuEmptyObject(Class<A> c) {
    try {
      Constructor ctr;
      synchronized (nuEmptyObject_cache) {
        ctr = nuEmptyObject_cache.get(c);
        if (ctr == null) {
          nuEmptyObject_cache.put(c, ctr = nuEmptyObject_findConstructor(c));
          makeAccessible(ctr);
        }
      }
      try {
        return (A) ctr.newInstance();
      } catch (InstantiationException e) {
        if (empty(e.getMessage()))
          if ((c.getModifiers() & Modifier.ABSTRACT) != 0)
            throw fail("Can't instantiate abstract class " + className(c), e);
          else
            throw fail("Can't instantiate " + className(c), e);
        else
          throw rethrow(e);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Constructor nuEmptyObject_findConstructor(Class c) {
    for (Constructor m : getDeclaredConstructors_cached(c)) if (m.getParameterTypes().length == 0)
      return m;
    throw fail("No default constructor declared in " + c.getName());
  }

  static public void setOptAllDyn_pcall(DynamicObject o, Map<String, Object> fields) {
    if (fields == null || o == null)
      return;
    HashMap<String, Field> fieldMap = instanceFieldsMap(o);
    for (Map.Entry<String, Object> e : fields.entrySet()) {
      try {
        String field = e.getKey();
        Object val = e.getValue();
        Field f = fieldMap.get(field);
        if (f != null)
          smartSet(f, o, val);
        else {
          dynamicObject_setRawFieldValue(o, intern(field), val);
        }
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }
  }

  static public void setOptAll_pcall(Object o, Map<String, Object> fields) {
    if (fields == null)
      return;
    for (String field : keys(fields)) try {
      setOpt(o, field, fields.get(field));
    } catch (Throwable __e) {
      print(exceptionToStringShort(__e));
    }
  }

  static public void setOptAll_pcall(Object o, Object... values) {
    warnIfOddCount(values);
    for (int i = 0; i + 1 < l(values); i += 2) {
      String field = (String) values[i];
      Object value = values[i + 1];
      try {
        setOpt(o, field, value);
      } catch (Throwable __e) {
        print(exceptionToStringShort(__e));
      }
    }
  }

  static public void fixOuterRefs(Object o) {
    try {
      if (o == null)
        return;
      Field[] l = thisDollarOneFields(o.getClass());
      if (l.length <= 1)
        return;
      Object father = null;
      for (Field f : l) {
        father = f.get(o);
        if (father != null)
          break;
      }
      if (father == null)
        return;
      for (Field f : l) f.set(o, father);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void setDynObjectValue(DynamicObject o, String field, Object value) {
    dynamicObject_setRawFieldValue(o, field, value);
  }

  static public String intern(String s) {
    return fastIntern(s);
  }

  static public void pcallOpt_noArgs(Object o, String method) {
    try {
      callOpt_noArgs(o, method);
    } catch (Throwable __e) {
      pcallFail(__e);
    }
  }

  static public RuntimeException todo() {
    throw new RuntimeException("TODO");
  }

  static public RuntimeException todo(Object msg) {
    throw new RuntimeException("TODO: " + msg);
  }

  static public Object newMultiDimensionalOuterArray(Class elementType, int dimensions, int length) {
    int[] dims = new int[dimensions];
    dims[0] = length;
    return Array.newInstance(elementType, dims);
  }

  static public int[] toIntArray(Collection<Integer> l) {
    int[] a = new int[l(l)];
    int i = 0;
    if (a.length != 0)
      for (int x : l) a[i++] = x;
    return a;
  }

  static public double[] toDoubleArray(Collection<Double> l) {
    double[] a = new double[l(l)];
    int i = 0;
    if (a.length != 0)
      for (double x : l) a[i++] = x;
    return a;
  }

  static public double[] toDoubleArray(IntBuffer b) {
    int n = l(b);
    double[] a = new double[n];
    for (int i = 0; i < n; i++) a[i] = b.get(i);
    return a;
  }

  static public double[] toDoubleArray(float... l) {
    double[] a = new double[l(l)];
    for (int i = 0; i < a.length; i++) a[i] = l[i];
    return a;
  }

  static public double[] toDoubleArray(int... l) {
    double[] a = new double[l(l)];
    for (int i = 0; i < a.length; i++) a[i] = l[i];
    return a;
  }

  static public void dynamicObject_setRawFieldValue(DynamicObject o, Object key, Object value) {
    if (o == null)
      return;
    synchronized (o) {
      o.fieldValues = syncMapPut2_createLinkedHashMap((LinkedHashMap) o.fieldValues, key, value);
    }
  }

  static public boolean jmatch(String pat, String s) {
    return jmatch(pat, s, null);
  }

  static public boolean jmatch(String pat, String s, Matches matches) {
    if (s == null)
      return false;
    return jmatch(pat, javaTok(s), matches);
  }

  static public boolean jmatch(String pat, List<String> toks) {
    return jmatch(pat, toks, null);
  }

  static public boolean jmatch(String pat, List<String> toks, Matches matches) {
    List<String> tokpat = javaTok(pat);
    String[] m = match2(tokpat, toks);
    if (m == null)
      return false;
    else {
      if (matches != null)
        matches.m = m;
      return true;
    }
  }

  static public Object nuObject(String className, Object... args) {
    try {
      return nuObject(classForName(className), args);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A> A nuObject(Class<A> c, Object... args) {
    try {
      if (args == null || args.length == 0)
        return nuObjectWithoutArguments(c);
      Constructor m = nuObject_findConstructor(c, args);
      makeAccessible(m);
      return (A) m.newInstance(args);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Constructor nuObject_findConstructor(Class c, Object... args) {
    for (Constructor m : getDeclaredConstructors_cached(c)) {
      if (!nuObject_checkArgs(m.getParameterTypes(), args, false))
        continue;
      return m;
    }
    throw fail("Constructor " + c.getName() + getClasses(args) + " not found" + (args.length == 0 && (c.getModifiers() & java.lang.reflect.Modifier.STATIC) == 0 ? " - hint: it's a non-static class!" : ""));
  }

  static public boolean nuObject_checkArgs(Class[] types, Object[] args, boolean debug) {
    if (types.length != args.length) {
      if (debug)
        System.out.println("Bad parameter length: " + args.length + " vs " + types.length);
      return false;
    }
    for (int i = 0; i < types.length; i++) if (!(args[i] == null || isInstanceX(types[i], args[i]))) {
      if (debug)
        System.out.println("Bad parameter " + i + ": " + args[i] + " vs " + types[i]);
      return false;
    }
    return true;
  }

  static public <A> A popLast(List<A> l) {
    return liftLast(l);
  }

  static public <A> List<A> popLast(int n, List<A> l) {
    return liftLast(n, l);
  }

  static public <A> AutoCloseable tempSetTL(ThreadLocal<A> tl, A a) {
    return tempSetThreadLocal(tl, a);
  }

  static public <A> AutoCloseable tempSetTL(BetterThreadLocal<A> tl, A a) {
    return tempSetThreadLocalIfNecessary(tl, a);
  }

  static public List<String> javaTokC(String s) {
    if (s == null)
      return null;
    int l = s.length();
    ArrayList<String> tok = new ArrayList();
    int i = 0;
    while (i < l) {
      int j = i;
      char c, d;
      while (j < l) {
        c = s.charAt(j);
        d = j + 1 >= l ? '\0' : s.charAt(j + 1);
        if (c == ' ' || c == '\t' || c == '\r' || c == '\n')
          ++j;
        else if (c == '/' && d == '*') {
          do ++j; while (j < l && !s.substring(j, Math.min(j + 2, l)).equals("*/"));
          j = Math.min(j + 2, l);
        } else if (c == '/' && d == '/') {
          do ++j; while (j < l && "\r\n".indexOf(s.charAt(j)) < 0);
        } else
          break;
      }
      i = j;
      if (i >= l)
        break;
      c = s.charAt(i);
      d = i + 1 >= l ? '\0' : s.charAt(i + 1);
      if (c == '\'' || c == '"') {
        char opener = c;
        ++j;
        while (j < l) {
          if (s.charAt(j) == opener || s.charAt(j) == '\n') {
            ++j;
            break;
          } else if (s.charAt(j) == '\\' && j + 1 < l)
            j += 2;
          else
            ++j;
        }
      } else if (Character.isJavaIdentifierStart(c))
        do ++j; while (j < l && (Character.isJavaIdentifierPart(s.charAt(j)) || "'".indexOf(s.charAt(j)) >= 0));
      else if (Character.isDigit(c)) {
        do ++j; while (j < l && Character.isDigit(s.charAt(j)));
        if (j < l && s.charAt(j) == 'L')
          ++j;
      } else if (c == '[' && d == '[') {
        do ++j; while (j + 1 < l && !s.substring(j, j + 2).equals("]]"));
        j = Math.min(j + 2, l);
      } else if (c == '[' && d == '=' && i + 2 < l && s.charAt(i + 2) == '[') {
        do ++j; while (j + 2 < l && !s.substring(j, j + 3).equals("]=]"));
        j = Math.min(j + 3, l);
      } else
        ++j;
      tok.add(javaTok_substringC(s, i, j));
      i = j;
    }
    return tok;
  }

  static public String stringIf(boolean b, String s) {
    return stringIfTrue(b, s);
  }

  static public String stringIf(String s, boolean b) {
    return stringIf(b, s);
  }

  static public boolean isJavaXClassName(String s) {
    return isJavaXClassName(s, "main$");
  }

  static public boolean isJavaXClassName(String s, String mcDollar) {
    return startsWithOneOf(s, mcDollar, "loadableUtils.");
  }

  static public void quoteToPrintWriter(String s, PrintWriter out) {
    if (s == null) {
      out.print("null");
      return;
    }
    out.print('"');
    int l = s.length();
    for (int i = 0; i < l; i++) {
      char c = s.charAt(i);
      if (c == '\\' || c == '"') {
        out.print('\\');
        out.print(c);
      } else if (c == '\r')
        out.print("\\r");
      else if (c == '\n')
        out.print("\\n");
      else if (c == '\0')
        out.print("\\0");
      else
        out.print(c);
    }
    out.print('"');
  }

  static public boolean isSubClassOf(Class a, Class b) {
    return isSubclass(a, b);
  }

  static public boolean isSyntheticOrAnonymous(Class c) {
    return c != null && (c.isSynthetic() || isAnonymousClassName(c.getName()));
  }

  static public <A> List<A> unwrapSynchronizedList(List<A> l) {
    if (l instanceof SynchronizedList)
      return ((SynchronizedList) l).list;
    if (eqOneOf(className(l), "java.util.Collections$SynchronizedList", "java.util.Collections$SynchronizedRandomAccessList"))
      return (List) get_raw(l, "list");
    return l;
  }

  static public String shortDynClassNameForStructure(Object o) {
    if (o instanceof DynamicObject && ((DynamicObject) o).className != null)
      return ((DynamicObject) o).className;
    if (o == null)
      return null;
    Class c = o instanceof Class ? (Class) o : o.getClass();
    String name = c.getName();
    return name.startsWith("dyn.") ? classNameToVM(name) : shortenClassName(name);
  }

  static public boolean isPersistableClass(Class c) {
    String name = c.getName();
    if (isSubtypeOf(c, TransientObject.class))
      return false;
    if (isAnonymousClassName(name))
      return false;
    if (isBoxedType(c))
      return true;
    if (isArrayType(c))
      return true;
    if (c == Class.class || c == String.class || c == File.class || c == Color.class)
      return true;
    if (name.startsWith("java.util.Collections$Synchronized"))
      return true;
    if (hasThisDollarFields(c))
      return hasSingleArgumentConstructor(c);
    else
      return getDefaultConstructor(c) != null;
  }

  static public Constructor getDefaultConstructor(Class c) {
    if (c != null)
      for (Constructor m : getDeclaredConstructors_cached(c)) if (empty(m.getParameterTypes()))
        return m;
    return null;
  }

  static public int countDots(String s) {
    int n = l(s), count = 0;
    for (int i = 0; i < n; i++) if (s.charAt(i) == '.')
      ++count;
    return count;
  }

  static public boolean isCIMap_gen(Map map) {
    return map instanceof TreeMap && className(((TreeMap) map).comparator()).contains("CIComp");
  }

  static public <A, B> Map<A, B> unwrapSynchronizedMap(Map<A, B> map) {
    if (eqOneOf(shortClassName(map), "SynchronizedMap", "SynchronizedSortedMap", "SynchronizedNavigableMap"))
      return (Map) get_raw(map, "m");
    return map;
  }

  static public String renderVars(Object... params) {
    return renderVars_str(params);
  }

  static public boolean isCISet_gen(Iterable<String> l) {
    return l instanceof TreeSet && className(((TreeSet) l).comparator()).contains("CIComp");
  }

  static public String quoteCharacter(char c) {
    if (c == '\'')
      return "'\\''";
    if (c == '\\')
      return "'\\\\'";
    if (c == '\r')
      return "'\\r'";
    if (c == '\n')
      return "'\\n'";
    if (c == '\t')
      return "'\\t'";
    return "'" + c + "'";
  }

  public static String bytesToHex(byte[] bytes) {
    return bytesToHex(bytes, 0, bytes.length);
  }

  public static String bytesToHex(byte[] bytes, int ofs, int len) {
    StringBuilder stringBuilder = new StringBuilder(len * 2);
    for (int i = 0; i < len; i++) {
      String s = "0" + Integer.toHexString(bytes[ofs + i]);
      stringBuilder.append(s.substring(s.length() - 2, s.length()));
    }
    return stringBuilder.toString();
  }

  static public String boolArrayToHex(boolean[] a) {
    return bytesToHex(boolArrayToBytes(a));
  }

  static public String shortArrayToHex_bigEndian(short[] a) {
    return bytesToHex(byteArrayFromShorts_bigEndian(a));
  }

  static public String longArrayToHex_bigEndian(long[] a) {
    return bytesToHex(byteArrayFromLongs_bigEndian(a));
  }

  static public Pair<Class, Integer> arrayTypeAndDimensions(Object o) {
    return arrayTypeAndDimensions(_getClass(o));
  }

  static public Pair<Class, Integer> arrayTypeAndDimensions(Class c) {
    if (c == null || !c.isArray())
      return null;
    Class elem = c.getComponentType();
    if (elem.isArray())
      return mapPairB(arrayTypeAndDimensions(elem), dim -> dim + 1);
    return pair(elem, 1);
  }

  static public int stdcompare(Number a, Number b) {
    return cmp(a, b);
  }

  static public int stdcompare(String a, String b) {
    return cmp(a, b);
  }

  static public int stdcompare(long a, long b) {
    return a < b ? -1 : a > b ? 1 : 0;
  }

  static public int stdcompare(Object a, Object b) {
    return cmp(a, b);
  }

  static public Map<Class, Field[]> getDeclaredFields_cache = newDangerousWeakHashMap();

  static public Field[] getDeclaredFields_cached(Class c) {
    Field[] fields;
    synchronized (getDeclaredFields_cache) {
      fields = getDeclaredFields_cache.get(c);
      if (fields == null) {
        getDeclaredFields_cache.put(c, fields = c.getDeclaredFields());
        for (Field f : fields) makeAccessible(f);
      }
    }
    return fields;
  }

  static public Method findInstanceMethod(Class c, String method, Object... args) {
    while (c != null) {
      for (Method m : c.getDeclaredMethods()) if (m.getName().equals(method) && findMethod_checkArgs(m, args, false))
        return m;
      c = c.getSuperclass();
    }
    return null;
  }

  static public Set<Field> fieldObjectsInFieldOrder(Class c, Set<Field> fields) {
    try {
      var byName = mapToKey(f -> f.getName(), fields);
      LinkedHashSet<Field> out = new LinkedHashSet();
      for (String name : unnullForIteration(getFieldOrder(c))) {
        Field f = byName.get(name);
        if (f != null) {
          byName.remove(name);
          out.add(f);
        }
      }
      addAll(out, fields);
      return out;
    } catch (Throwable __0) {
      printStackTrace(__0);
      return fields;
    }
  }

  static public String quoted(Object o) {
    return quote(o);
  }

  static public String quoted(String s) {
    return quote(s);
  }

  static public <A extends JComponent> A setOpaqueBackground(final Color color, final A a) {
    if (a != null) {
      swing(() -> {
        a.setBackground(color);
        a.setOpaque(true);
        a.putClientProperty("substancelaf.colorizationFactor", 1.0);
      });
    }
    return a;
  }

  static public JLabel jimage(Image img) {
    return jImageLabel(img);
  }

  static public JLabel jimage(String imageID) {
    return jImageLabel(imageID);
  }

  static public String gazelleLogoImageID() {
    return "#1102967";
  }

  static public boolean containsIgnoreCase(Collection<String> l, String s) {
    if (l != null)
      for (String x : l) if (eqic(x, s))
        return true;
    return false;
  }

  static public boolean containsIgnoreCase(String[] l, String s) {
    if (l != null)
      for (String x : l) if (eqic(x, s))
        return true;
    return false;
  }

  static public boolean containsIgnoreCase(String s, char c) {
    return indexOfIgnoreCase(s, String.valueOf(c)) >= 0;
  }

  static public boolean containsIgnoreCase(String a, String b) {
    return indexOfIgnoreCase(a, b) >= 0;
  }

  static public JScrollPane borderlessScrollPane(JScrollPane sp) {
    return setBorder(null, withoutViewportBorder(sp));
  }

  static public JScrollPane jscroll_centered(Component c) {
    return c instanceof JScrollPane ? ((JScrollPane) c) : jscroll(jFullCenter(c));
  }

  static public <A extends Component> A _recordNewSwingComponent(A c) {
    if (c != null)
      callF((Object) vm_generalMap_get("newSwingComponentRegistry"), (Object) c);
    return c;
  }

  static public JComponent componentToJComponent(Component c) {
    if (c instanceof JComponent)
      return (JComponent) c;
    if (c instanceof JFrame)
      return ((JFrame) c).getRootPane();
    if (c == null)
      return null;
    throw fail("boohoo " + getClassName(c));
  }

  static public int imageIcon_cacheSize = 10;

  static public boolean imageIcon_verbose = false;

  static public Map<String, ImageIcon> imageIcon_cache;

  static public Lock imageIcon_lock = lock();

  static public ThreadLocal<Boolean> imageIcon_fixGIF = new ThreadLocal();

  static public ImageIcon imageIcon(String imageID) {
    try {
      if (imageID == null)
        return null;
      Lock __0 = imageIcon_lock;
      lock(__0);
      try {
        if (imageIcon_cache == null)
          imageIcon_cache = new MRUCache(imageIcon_cacheSize);
        imageID = fsI(imageID);
        ImageIcon ii = imageIcon_cache.get(imageID);
        if (ii == null) {
          if (imageIcon_verbose)
            print("Loading image icon: " + imageID);
          File f = loadBinarySnippet(imageID);
          Boolean b = imageIcon_fixGIF.get();
          if (!isFalse(b))
            ii = new ImageIcon(loadBufferedImageFixingGIFs(f));
          else
            ii = new ImageIcon(f.toURI().toURL());
        } else
          imageIcon_cache.remove(imageID);
        imageIcon_cache.put(imageID, ii);
        return ii;
      } finally {
        unlock(__0);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public ImageIcon imageIcon(File f) {
    try {
      return new ImageIcon(f.toURI().toURL());
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public ImageIcon imageIcon(Image img) {
    return img == null ? null : new ImageIcon(img);
  }

  static public ImageIcon imageIcon(RGBImage img) {
    return imageIcon(img.getBufferedImage());
  }

  static public JButton setButtonImage(Icon img, JButton btn) {
    btn.setIcon(img);
    return btn;
  }

  static public JButton setButtonImage(Image img, JButton btn) {
    btn.setIcon(imageIcon(img));
    return btn;
  }

  static public <A extends AbstractButton> A setButtonImage(Image img, A btn) {
    btn.setIcon(imageIcon(img));
    return btn;
  }

  static public <A extends AbstractButton> A setButtonImage(A btn, Image img) {
    return setButtonImage(img, btn);
  }

  static public <A extends AbstractButton> A setButtonImage(A btn, String imageID) {
    btn.setIcon(imageIcon(imageID));
    return btn;
  }

  static public JButton setButtonImage(JButton btn, Image img) {
    return setButtonImage(img, btn);
  }

  static public JButton setButtonImage(JButton btn, Icon img) {
    return setButtonImage(img, btn);
  }

  static public boolean addLibraryToCurrentProgram(String libID) {
    return addLibraryToCurrentProgram(loadLibrary(libID));
  }

  static public boolean addLibraryToCurrentProgram(File f) {
    try {
      if (f == null || currentProgramHasLibrary(f))
        return false;
      ClassLoader cl = myClassLoader();
      return isTrue(call(cl, "addFile", f));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public JComponent jSmallErrorView(Throwable e) {
    var btn = jimageButtonScaledToWidth(32, errorIconID(), "Show error details", () -> showErrorFrame(e));
    String text = exceptionToStringShort(e);
    var label = jlabel_noAutoToolTip(text);
    return jline(btn, label);
  }

  static public <A> A printHidingCredentials(A o) {
    print(hideCredentials(str(o)));
    return o;
  }

  static public void logQuotedWithDate(String s) {
    logQuotedWithTime(s);
  }

  static public void logQuotedWithDate(String logFile, String s) {
    logQuotedWithTime(logFile, s);
  }

  static public void logQuotedWithDate(File logFile, String s) {
    logQuotedWithTime(logFile, s);
  }

  static public File infoBoxesLogFile() {
    return new File(javaxDataDir(), "Logs/infoBoxes.txt");
  }

  static public JWindow makeWindow(final Component c) {
    return swing(new F0<JWindow>() {

      public JWindow get() {
        try {
          JWindow w = new JWindow();
          w.add(wrap(c));
          return w;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "new JWindow w;\r\n    w.add(wrap(c));\r\n    ret w;";
      }
    });
  }

  static public JPanel infoMessage_makePanel(String text) {
    final JTextArea ta = wrappedTextArea(text);
    onClick(ta, new Runnable() {

      public void run() {
        try {
          disposeWindow(ta);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "disposeWindow(ta)";
      }
    });
    int size = 14;
    if (l(text) <= 50)
      size *= 2;
    else if (l(text) < 100)
      size = iround(size * 1.5);
    ta.setFont(typeWriterFont(size));
    JScrollPane sp = jscroll(ta);
    return withMargin(sp);
  }

  static public int moveToTopRightCorner_inset = 20;

  static public <A extends Component> A moveToTopRightCorner(A a) {
    return moveToTopRightCorner(moveToTopRightCorner_inset, moveToTopRightCorner_inset, a);
  }

  static public <A extends Component> A moveToTopRightCorner(int insetX, int insetY, A a) {
    {
      swing(() -> {
        Window w = getWindow(a);
        if (w != null) {
          var bounds = preferredScreenBounds();
          w.setLocation(bounds.x2() - w.getWidth() - insetX, bounds.y1() + insetY);
        }
      });
    }
    return a;
  }

  static public boolean vmBus_noObjections(String msg, Object... args) {
    return !vmBus_anyFalse(msg, args);
  }

  static public <A extends Window> A disposeWindowAfter(int delay, final A w) {
    if (w != null)
      swingLater(delay, new Runnable() {

        public void run() {
          try {
            w.dispose();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "w.dispose();";
        }
      });
    return w;
  }

  static public <A extends Window> A disposeWindowAfter(A w, double seconds) {
    return disposeWindowAfter(toMS_int(seconds), w);
  }

  static public <A extends Window> A disposeWindowAfter(double seconds, A w) {
    return disposeWindowAfter(w, seconds);
  }

  static public boolean confirmOKCancel(final Component owner, final String msg) {
    return isTrue(swingAndWait(new F0<Object>() {

      public Object get() {
        try {
          return JOptionPane.showConfirmDialog(owner, msg, "JavaX", JOptionPane.OK_CANCEL_OPTION) == JOptionPane.OK_OPTION;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return JOptionPane.showConfirmDialog(owner,\r\n      msg, \"JavaX\", JOptionPane....";
      }
    }));
  }

  static public boolean confirmOKCancel(String msg) {
    return confirmOKCancel(null, msg);
  }

  static public File computerIDFile() {
    return javaxDataDir("Basic Info/computer-id.txt");
  }

  static public String makeRandomID(int length) {
    return makeRandomID(length, defaultRandomGenerator());
  }

  static public String makeRandomID(int length, Random random) {
    char[] id = new char[length];
    for (int i = 0; i < id.length; i++) id[i] = (char) ((int) 'a' + random.nextInt(26));
    return new String(id);
  }

  static public String makeRandomID(Random r, int length) {
    return makeRandomID(length, r);
  }

  static public String ymd_minus_hms() {
    return ymd_minus_hms(now());
  }

  static public String ymd_minus_hms(long now) {
    return ymd(now) + "-" + hms(now);
  }

  static public boolean renameFile(File a, File b) {
    mkdirsForFile(b);
    return a.renameTo(b);
  }

  static public boolean renameFile(File a, String newName) {
    return renameFile(a, fileInSameDir(a, newName));
  }

  static public void stream2file(InputStream in, File out) {
    try {
      mkdirsForFile(out);
      FileOutputStream fos = new FileOutputStream(out);
      copyStream(in, fos);
      in.close();
      fos.close();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String commonPrefix(String a, String b) {
    int i = 0, nb = b.length(), na = a.length(), n = min(na, nb);
    while (i < n && a.charAt(i) == b.charAt(i)) ++i;
    return i == nb ? b : substring(a, 0, i);
  }

  static public String commonPrefix(List<String> l) {
    if (empty(l))
      return "";
    String s = first(l);
    for (int i = 1; i < l(l); i++) {
      if (empty(s))
        return s;
      s = commonPrefix(s, l.get(i));
    }
    return s;
  }

  static public List<String> listZip(File inZip) {
    return listZipFile(inZip);
  }

  static public List<String> listZip(String inZip) {
    return listZipFile(inZip);
  }

  static public void swingLater(long delay, final Object r) {
    javax.swing.Timer timer = new javax.swing.Timer(toInt(delay), actionListener(wrapAsActivity(r)));
    timer.setRepeats(false);
    timer.start();
  }

  static public void swingLater(Object r) {
    var runnable = toRunnable(r);
    executingSwingCode(runnable);
    SwingUtilities.invokeLater(runnable);
  }

  static public String joinNemptiesWithVBar(String... strings) {
    return joinNempties(" | ", strings);
  }

  static public String joinNemptiesWithVBar(Collection<String> strings) {
    return joinNempties(" | ", strings);
  }

  static public String programNameOrNull() {
    return replaceIfEqual(programName(), "?", null);
  }

  static public void callF_thread(final Object f, final Object... args) {
    if (f != null) {
      startThread(new Runnable() {

        public void run() {
          try {
            callF(f, args);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "callF(f, args);";
        }
      });
    }
  }

  static public String regexpReplace(String s, String pat, IF1<Matcher, String> f) {
    return regexReplace(s, pat, f);
  }

  static public String regexpReplace(String s, String pat, String replacement) {
    return regexpReplace_direct(s, pat, replacement);
  }

  static public BufferedImage scaleImageToWidth(BufferedImage img, int newW) {
    return resizeImage(img, newW);
  }

  static public BufferedImage scaleImageToWidth(int newW, BufferedImage img) {
    return scaleImageToWidth(img, newW);
  }

  static public BufferedImage scaleImageToWidth(int newW, String imageID) {
    return scaleImageToWidth(newW, loadImage2(imageID));
  }

  static public <A> List<A> collectInstances(Iterable i, Class<A> c) {
    List l = new ArrayList();
    if (i == null)
      return l;
    c = primitiveToBoxedTypeOpt(c);
    for (Object o : i) if (isInstance(c, o))
      l.add(o);
    return l;
  }

  static public <A> List<A> collectInstances(Class<A> c, Iterable i) {
    return collectInstances(i, c);
  }

  static public JPanel centerAndEastWithMarginInbetween(Component c, final Component e) {
    return centerAndEast(c, withLeftMargin(e));
  }

  static public Object[] asArray(List l) {
    return toObjectArray(l);
  }

  static public <A> A[] asArray(Class<A> type, List l) {
    return (A[]) l.toArray((Object[]) Array.newInstance(type, l.size()));
  }

  static public JButton basicJButton(String text) {
    return swing(() -> new JButton(text));
  }

  static public ActionListener actionListenerInNewThread(final Object runnable) {
    return actionListenerInNewThread(runnable, null);
  }

  static public ActionListener actionListenerInNewThread(final Object runnable, final Object instanceToHold) {
    if (runnable instanceof ActionListener)
      return (ActionListener) runnable;
    return new java.awt.event.ActionListener() {

      public void actionPerformed(java.awt.event.ActionEvent _evt) {
        try {
          startThread("Action Listener", new Runnable() {

            public void run() {
              try {
                AutoCloseable __1 = holdInstance(instanceToHold);
                try {
                  callF(runnable);
                } finally {
                  _close(__1);
                }
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "AutoCloseable __1 = holdInstance(instanceToHold); try {\r\n      callF(runnable...";
            }
          });
        } catch (Throwable __e) {
          messageBox(__e);
        }
      }
    };
  }

  static public <A, B> List<A> uniquifyBy(IF1<A, B> f, Collection<A> l) {
    if (l == null)
      return null;
    if (l(l) < 2)
      return asList(l);
    HashSet<B> set = new HashSet();
    List<A> out = new ArrayList();
    for (A a : l) if (set.add(f.get(a)))
      out.add(a);
    return out;
  }

  static public <A, B> List<A> uniquifyBy(Collection<A> l, IF1<A, B> f) {
    return uniquifyBy(f, l);
  }

  static public Object dm_current_generic() {
    return getWeakRef(dm_current_generic_tl().get());
  }

  static public Object dm_getStem(Object moduleOrID) {
    if (isString(moduleOrID) && isIdentifier(((String) moduleOrID)))
      moduleOrID = dm_getService(((String) moduleOrID));
    if (isStringOrIntOrLong(moduleOrID))
      return dm_getStemByID(moduleOrID);
    return or(getOpt(dm_getModule(moduleOrID), "_host"), moduleOrID);
  }

  static public URLConnection openConnection(String url) {
    try {
      return openConnection(new URL(url));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public URLConnection openConnection(URL url) {
    try {
      ping();
      callOpt(javax(), "recordOpenURLConnection", str(url));
      return url.openConnection();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void setHeaders(URLConnection con) throws IOException {
    String computerID = getComputerID_quick();
    if (computerID != null)
      try {
        con.setRequestProperty("X-ComputerID", computerID);
        con.setRequestProperty("X-OS", System.getProperty("os.name") + " " + System.getProperty("os.version"));
      } catch (Throwable e) {
      }
  }

  static public void loadBinaryPageToFile(String url, File file) {
    try {
      print("Loading " + url);
      loadBinaryPageToFile(openConnection(new URL(url)), file);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void loadBinaryPageToFile(URLConnection con, File file) {
    try {
      setHeaders(con);
      loadBinaryPageToFile_noHeaders(con, file);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void loadBinaryPageToFile_noHeaders(URLConnection con, File file) {
    try {
      assertNotNull(file);
      File ftemp = new File(f2s(file) + "_temp");
      FileOutputStream buf = newFileOutputStream(mkdirsFor(ftemp));
      try {
        InputStream inputStream = con.getInputStream();
        long len = 0;
        try {
          len = con.getContentLength();
        } catch (Throwable e) {
          printStackTrace(e);
        }
        String pat = "  {*}" + (len != 0 ? "/" + len : "") + " bytes loaded.";
        copyStreamWithPrints(inputStream, buf, pat);
        inputStream.close();
        buf.close();
        file.delete();
        renameFile_assertTrue(ftemp, file);
      } finally {
        if (buf != null)
          buf.close();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Map<Object, Object> castMapToMapO(Map map) {
    return map;
  }

  static public String urlencode(String x) {
    try {
      return URLEncoder.encode(unnull(x), "UTF-8");
    } catch (UnsupportedEncodingException e) {
      throw new RuntimeException(e);
    }
  }

  static public byte[] isJAR_magic = bytesFromHex("504B0304");

  static public boolean isJAR(byte[] data) {
    return byteArrayStartsWith(data, isJAR_magic);
  }

  static public boolean isJAR(File f) {
    return isJAR(loadBeginningOfBinaryFile(f, l(isJAR_magic)));
  }

  static public String fileInfo(File f) {
    return renderFileInfo(f);
  }

  static public String fileInfo(String f) {
    return renderFileInfo(newFile(f));
  }

  static public byte[] md5AsByteArray(byte[] data) {
    try {
      return MessageDigest.getInstance("MD5").digest(data);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public byte[] toUtf8(String s) {
    try {
      return s.getBytes(utf8charset());
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public boolean md5OfFile_verbose = false;

  static public String md5OfFile(String path) {
    return md5OfFile(newFile(path));
  }

  static public String md5OfFile(File f) {
    try {
      if (!f.exists())
        return "-";
      if (md5OfFile_verbose)
        print("Getting MD5 of " + f);
      MessageDigest md5 = MessageDigest.getInstance("MD5");
      FileInputStream in = new FileInputStream(f);
      try {
        byte[] buf = new byte[65536];
        int l;
        while (true) {
          l = in.read(buf);
          if (l <= 0)
            break;
          md5.update(buf, 0, l);
        }
        return bytesToHex(md5.digest());
      } finally {
        _close(in);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Class getRawTypeClass(Type t) {
    return typeToClass(t);
  }

  static public String classNameToByteCodeFormat(String className) {
    return "L" + className.replace('.', '/');
  }

  static public String classNameToByteCodeFormat(Class c) {
    return classNameToByteCodeFormat(className(c));
  }

  static public String joinMap(Object f, Iterable l) {
    return join(map(f, l));
  }

  static public String joinMap(Iterable l, Object f) {
    return joinMap(f, l);
  }

  static public <A> String joinMap(Iterable<A> l, IF1<A, String> f) {
    return joinMap(f, l);
  }

  static public <A> String joinMap(A[] l, IF1<A, String> f) {
    return joinMap(f, l);
  }

  static public <A> String joinMap(IF1<A, String> f, Iterable<A> l) {
    return join(map(f, l));
  }

  static public <A> String joinMap(IF1<A, String> f, A[] l) {
    return join(map(f, l));
  }

  static public <A, B> String joinMap(String separator, Map<A, B> map, IF2<A, B, String> f) {
    return join(separator, map(map, f));
  }

  static public boolean isArrayType(Class type) {
    return type != null && type.isArray();
  }

  static public Object[] mapToObjectArray(Map map) {
    List l = new ArrayList();
    for (Object o : keys(map)) {
      l.add(o);
      l.add(map.get(o));
    }
    return toObjectArray(l);
  }

  static public Object[] mapToObjectArray(Object f, Collection l) {
    int n = l(l);
    Object[] array = new Object[n];
    if (n != 0) {
      Iterator it = iterator(l);
      for (int i = 0; i < n; i++) array[i] = callF(f, it.next());
    }
    return array;
  }

  static public Object[] mapToObjectArray(Object f, Object[] l) {
    int n = l(l);
    Object[] array = new Object[n];
    for (int i = 0; i < n; i++) array[i] = callF(f, l[i]);
    return array;
  }

  static public <A> Object[] mapToObjectArray(Collection<A> l, IF1<A, Object> f) {
    return mapToObjectArray(f, l);
  }

  static public <A> Object[] mapToObjectArray(A[] l, IF1<A, Object> f) {
    return mapToObjectArray(f, l);
  }

  static public <A> Object[] mapToObjectArray(IF1<A, Object> f, A[] l) {
    int n = l(l);
    Object[] array = new Object[n];
    for (int i = 0; i < n; i++) array[i] = f.get(l[i]);
    return array;
  }

  static public <A> Object[] mapToObjectArray(IF1<A, Object> f, Collection<A> l) {
    int n = l(l);
    Object[] array = new Object[n];
    if (n != 0) {
      Iterator it = iterator(l);
      for (int i = 0; i < n; i++) array[i] = callF(f, it.next());
    }
    return array;
  }

  static public Object[] arrayrep(Object a, int n) {
    Object[] array = new Object[n];
    for (int i = 0; i < n; i++) array[i] = a;
    return array;
  }

  static public <A> A[] arrayrep(Class<A> type, A a, int n) {
    A[] array = newArray(type, n);
    for (int i = 0; i < n; i++) array[i] = a;
    return array;
  }

  static public <A extends DynamicObject> A setDyn(A o, String key, Object value) {
    setDynObjectValue(o, key, value);
    return o;
  }

  static public void setDyn(IMeta o, String key, Object value) {
    metaMapPut(o, key, value);
  }

  static public boolean regionMatches(String a, int offsetA, String b, int offsetB, int len) {
    return a != null && b != null && a.regionMatches(offsetA, b, offsetB, len);
  }

  static public boolean regionMatches(String a, int offsetA, String b) {
    return regionMatches(a, offsetA, b, 0, l(b));
  }

  static public String javaTok_substringN(String s, int i, int j) {
    if (i == j)
      return "";
    if (j == i + 1 && s.charAt(i) == ' ')
      return " ";
    return s.substring(i, j);
  }

  static public String javaTok_substringC(String s, int i, int j) {
    return s.substring(i, j);
  }

  static public List<String> javaTokWithExisting(String s, List<String> existing) {
    ++javaTok_n;
    int nExisting = javaTok_opt && existing != null ? existing.size() : 0;
    ArrayList<String> tok = existing != null ? new ArrayList(nExisting) : new ArrayList();
    int l = s.length();
    int i = 0, n = 0;
    while (i < l) {
      int j = i;
      char c, d;
      while (j < l) {
        c = s.charAt(j);
        d = j + 1 >= l ? '\0' : s.charAt(j + 1);
        if (c == ' ' || c == '\t' || c == '\r' || c == '\n')
          ++j;
        else if (c == '/' && d == '*') {
          do ++j; while (j < l && !s.substring(j, Math.min(j + 2, l)).equals("*/"));
          j = Math.min(j + 2, l);
        } else if (c == '/' && d == '/') {
          do ++j; while (j < l && "\r\n".indexOf(s.charAt(j)) < 0);
        } else
          break;
      }
      if (n < nExisting && javaTokWithExisting_isCopyable(existing.get(n), s, i, j))
        tok.add(existing.get(n));
      else
        tok.add(javaTok_substringN(s, i, j));
      ++n;
      i = j;
      if (i >= l)
        break;
      c = s.charAt(i);
      d = i + 1 >= l ? '\0' : s.charAt(i + 1);
      if (c == '\'' && Character.isJavaIdentifierStart(d) && i + 2 < l && "'\\".indexOf(s.charAt(i + 2)) < 0) {
        j += 2;
        while (j < l && Character.isJavaIdentifierPart(s.charAt(j))) ++j;
      } else if (c == '\'' || c == '"') {
        char opener = c;
        ++j;
        while (j < l) {
          if (s.charAt(j) == opener) {
            ++j;
            break;
          } else if (s.charAt(j) == '\\' && j + 1 < l)
            j += 2;
          else
            ++j;
        }
      } else if (Character.isJavaIdentifierStart(c))
        do ++j; while (j < l && (Character.isJavaIdentifierPart(s.charAt(j)) || "'".indexOf(s.charAt(j)) >= 0));
      else if (Character.isDigit(c)) {
        do ++j; while (j < l && Character.isDigit(s.charAt(j)));
        if (j < l && s.charAt(j) == 'L')
          ++j;
      } else if (c == '[' && d == '[') {
        do ++j; while (j + 1 < l && !s.substring(j, j + 2).equals("]]"));
        j = Math.min(j + 2, l);
      } else if (c == '[' && d == '=' && i + 2 < l && s.charAt(i + 2) == '[') {
        do ++j; while (j + 2 < l && !s.substring(j, j + 3).equals("]=]"));
        j = Math.min(j + 3, l);
      } else
        ++j;
      if (n < nExisting && javaTokWithExisting_isCopyable(existing.get(n), s, i, j))
        tok.add(existing.get(n));
      else
        tok.add(javaTok_substringC(s, i, j));
      ++n;
      i = j;
    }
    if ((tok.size() % 2) == 0)
      tok.add("");
    javaTok_elements += tok.size();
    return tok;
  }

  static public boolean javaTokWithExisting_isCopyable(String t, String s, int i, int j) {
    return t.length() == j - i && s.regionMatches(i, t, 0, j - i);
  }

  static public <A> boolean addToCollection(Collection<A> c, A a) {
    return c != null && c.add(a);
  }

  static public TimerTask timerTask(final Object r, final java.util.Timer timer) {
    return new TimerTask() {

      public void run() {
        if (!licensed())
          timer.cancel();
        else
          pcallF(r);
      }
    };
  }

  static public <A> A vmBus_timerStarted(A timer) {
    vmBus_send("timerStarted", timer, costCenter());
    return timer;
  }

  static public ChangeListener changeListener(final Object r) {
    return new ChangeListener() {

      public void stateChanged(ChangeEvent e) {
        pcallF(r);
      }
    };
  }

  static public ItemListener itemListener(final Object r) {
    return new ItemListener() {

      public void itemStateChanged(ItemEvent e) {
        pcallF(r);
      }
    };
  }

  static public boolean isEditableComboBox(final JComboBox cb) {
    return cb != null && swing(new F0<Boolean>() {

      public Boolean get() {
        try {
          return cb.isEditable();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return cb.isEditable();";
      }
    });
  }

  static public JTextField textFieldFromComboBox(JComboBox cb) {
    return (JTextField) cb.getEditor().getEditorComponent();
  }

  static public JComboBox onSelectedItem(final JComboBox cb, final VF1<String> f) {
    addActionListener(cb, new Runnable() {

      public void run() {
        try {
          pcallF(f, selectedItem(cb));
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "pcallF(f, selectedItem(cb))";
      }
    });
    return cb;
  }

  static public JComboBox onSelectedItem(final JComboBox cb, IVF1<String> f) {
    addActionListener(cb, new Runnable() {

      public void run() {
        try {
          pcallF(f, selectedItem(cb));
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "pcallF(f, selectedItem(cb))";
      }
    });
    return cb;
  }

  static public void onUpdateAndNow(JComponent c, final Object r) {
    onUpdate(c, r);
    callF(r);
  }

  static public void onUpdateAndNow(JTextComponent c, IVF1<String> r) {
    swing(() -> {
      if (c == null)
        return;
      onUpdate(c, r);
      callF(r, c.getText());
    });
  }

  static public void onUpdateAndNow(List<? extends JComponent> l, Object r) {
    for (JComponent c : l) onUpdate(c, r);
    callF(r);
  }

  static public <A extends IMeta> A setMetaSrc(A a, Object src) {
    setMetaAndVerify(a, "src", src);
    return a;
  }

  static public <A> A setMetaSrc(A a, Object src) {
    setMetaAndVerify(a, "src", src);
    return a;
  }

  static public long fileSize(String path) {
    return getFileSize(path);
  }

  static public long fileSize(File f) {
    return getFileSize(f);
  }

  static public JPanel jSection(Component c) {
    return jSection("", c);
  }

  static public JPanel jSection(final String title, final Component c) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          Border border = BorderFactory.createBevelBorder(BevelBorder.LOWERED);
          border = BorderFactory.createTitledBorder(border, title);
          JSection panel = new JSection(c);
          panel.setBorder(border);
          return panel;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "Border border = BorderFactory.createBevelBorder(BevelBorder.LOWERED);\r\n    bo...";
      }
    });
  }

  static public JPanel jSection(String title) {
    return jSection(title, jpanel());
  }

  static public JPanel jSection(LiveValue<?> lv, Component c) {
    return jLiveValueSection(lv, c);
  }

  static public JSplitPane setSplitPaneOnFirstShowing(Component c, double value) {
    return setSplitPaneOnFirstShowing(c, value, 0);
  }

  static public JSplitPane setSplitPaneOnFirstShowing(Component c, double value, int delay) {
    final JSplitPane sp = first(childrenOfType(c, JSplitPane.class));
    if (sp != null)
      onFirstResize(sp, new Runnable() {

        public void run() {
          try {
            if (delay == 0)
              sp.setDividerLocation(value);
            else
              awtLater(delay, new Runnable() {

                public void run() {
                  try {
                    sp.setDividerLocation(value);
                  } catch (Exception __e) {
                    throw rethrow(__e);
                  }
                }

                public String toString() {
                  return "sp.setDividerLocation(value);";
                }
              });
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "ifdef setSplitPaneOnFirstShowing_debug\r\n        printVars setSplitPaneOnFirst...";
        }
      });
    return sp;
  }

  static public <A extends JComponent> A bindHasChangeListenersToComponent(A component, IHasChangeListeners hcl, Runnable listener) {
    if (hcl != null)
      bindToComponent(component, () -> hcl.onChangeAndNow(listener), () -> hcl.removeChangeListener(listener));
    return component;
  }

  static public String regexpN2() {
    return "\\d+(?:,\\d+)*";
  }

  static public List<String> regexpLastGroupsIC(String pat, String s) {
    if (s == null)
      return null;
    Matcher m = regexpIC(pat, s);
    List<String> groups = null;
    while (m.find()) groups = regexpGetGroups(m);
    return groups;
  }

  static public int parseIntN2(String s) {
    return parseInt(replace(s, ",", ""));
  }

  static public <A> A second(List<A> l) {
    return get(l, 1);
  }

  static public <A> A second(Iterable<A> l) {
    if (l == null)
      return null;
    Iterator<A> it = iterator(l);
    if (!it.hasNext())
      return null;
    it.next();
    return it.hasNext() ? it.next() : null;
  }

  static public <A> A second(A[] bla) {
    return bla == null || bla.length <= 1 ? null : bla[1];
  }

  static public <A, B> B second(Pair<A, B> p) {
    return p == null ? null : p.b;
  }

  static public <A, B, C> B second(T3<A, B, C> t) {
    return t == null ? null : t.b;
  }

  static public <A> A second(Producer<A> p) {
    if (p == null)
      return null;
    if (p.next() == null)
      return null;
    return p.next();
  }

  static public char second(String s) {
    return charAt(s, 1);
  }

  static public <A, B> B second(Either<A, B> e) {
    return e == null ? null : e.bOpt();
  }

  static public Object getOptMC(String field) {
    return getOpt(mc(), field);
  }

  static public void readLocally(String progID, String varNames) {
    readLocally2(mc(), progID, varNames);
  }

  static public void readLocally(String varNames) {
    readLocally2(mc(), programID(), varNames);
  }

  static public void readLocally2(Object obj, String varNames) {
    readLocally2(obj, programID(), varNames);
  }

  static public int readLocally_stringLength;

  static public ThreadLocal<Boolean> readLocally2_allDynamic = new ThreadLocal();

  static public ThreadLocal readLocally2_classFinder = new ThreadLocal();

  static public void readLocally2(Object obj, String progID, String varNames) {
    try {
      boolean allDynamic = isTrue(getAndClearThreadLocal(readLocally2_allDynamic));
      for (String variableName : javaTokC(varNames)) {
        File textFile = new File(programDir(progID), variableName + ".text");
        String value = loadTextFile(textFile);
        if (value != null)
          set(main.class, variableName, value);
        else {
          File structureFile = new File(programDir(progID), variableName + ".structure");
          value = loadTextFile(structureFile);
          if (value == null) {
            File structureGZFile = new File(programDir(progID), variableName + ".structure.gz");
            if (!structureGZFile.isFile())
              return;
            InputStream fis = new FileInputStream(structureGZFile);
            try {
              GZIPInputStream gis = newGZIPInputStream(fis);
              InputStreamReader reader = new InputStreamReader(gis, "UTF-8");
              BufferedReader bufferedReader = new BufferedReader(reader);
              Object o = unstructure_tok(javaTokC_noMLS_onReader(bufferedReader), allDynamic, readLocally2_classFinder.get());
              readLocally_set(obj, variableName, o);
              return;
            } finally {
              _close(fis);
            }
          }
          readLocally_stringLength = l(value);
          if (nempty(value))
            readLocally_set(obj, variableName, unstructure(value, allDynamic, readLocally2_classFinder.get()));
        }
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void readLocally_set(Object c, String varName, Object value) {
    Object oldValue = get(c, varName);
    if (oldValue instanceof List && !(oldValue instanceof ArrayList) && value != null) {
      value = synchroList((List) value);
    }
    set(c, varName, value);
  }

  static public Class<?> hotwire(String src) {
    return hotwire(src, __1 -> mainClassNameForClassLoader(__1));
  }

  static public Class<?> hotwire(String src, IF1<ClassLoader, String> calculateMainClass) {
    assertFalse(_inCore());
    Class j = getJavaX();
    if (isAndroid()) {
      synchronized (j) {
        List<File> libraries = new ArrayList<File>();
        File srcDir = (File) call(j, "transpileMain", src, libraries);
        if (srcDir == null)
          throw fail("transpileMain returned null (src=" + quote(src) + ")");
        Object androidContext = get(j, "androidContext");
        return (Class) call(j, "loadx2android", srcDir, src);
      }
    } else {
      Class c = (Class) (call(j, "hotwire", src));
      hotwire_copyOver(c);
      return c;
    }
  }

  static public <A> A callMain(A c, String... args) {
    callOpt(c, "main", new Object[] { args });
    return c;
  }

  static public void callMain() {
    callMain(mc());
  }

  static public Map<Thread, Object> vm_threadInterruptionReasonsMap() {
    return vm_generalWeakSubMap("Thread interruption reasons");
  }

  static public Map vm_generalSubMap(Object name) {
    synchronized (vm_generalMap()) {
      Map map = (Map) (vm_generalMap_get(name));
      if (map == null)
        vm_generalMap_put(name, map = synchroMap());
      return map;
    }
  }

  static public int randomID_defaultLength = 12;

  static public String randomID(int length) {
    return makeRandomID(length);
  }

  static public String randomID(Random r, int length) {
    return makeRandomID(r, length);
  }

  static public String randomID() {
    return randomID(randomID_defaultLength);
  }

  static public String randomID(Random r) {
    return randomID(r, randomID_defaultLength);
  }

  static public int globalIDLength() {
    return 16;
  }

  static public ThreadLocal<MouseEvent> componentPopupMenu_mouseEvent;

  static public void componentPopupMenu_init() {
    {
      swing(() -> {
        if (componentPopupMenu_mouseEvent == null)
          componentPopupMenu_mouseEvent = (ThreadLocal<MouseEvent>) vm_generalMap_get("mouseEvent");
        if (componentPopupMenu_mouseEvent == null)
          vm_generalMap_put("componentPopupMenu_mouseEvent", componentPopupMenu_mouseEvent = new ThreadLocal());
      });
    }
  }

  static public void componentPopupMenu(final JComponent component, IVF1<JPopupMenu> menuMaker) {
    componentPopupMenu(component, (Object) menuMaker);
  }

  static public void componentPopupMenu(final JComponent component, final Object menuMaker) {
    if (component == null || menuMaker == null)
      return;
    {
      swing(() -> {
        Object adapter = componentPopupMenu_initForComponent(component);
        ((List) _get(adapter, "maker")).add(menuMaker);
      });
    }
  }

  static public Object componentPopupMenu_initForComponent(final JComponent component) {
    return component == null ? null : swing(new F0<Object>() {

      public Object get() {
        try {
          componentPopupMenu_init();
          Object adapter = findComponentPopupMenuListener_gen(component);
          if (adapter == null) {
            componentPopupMenu_Adapter a = new componentPopupMenu_Adapter();
            component.addMouseListener(a);
            adapter = a;
          }
          return adapter;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "componentPopupMenu_init();\r\n    O adapter = findComponentPopupMenuListener_ge...";
      }
    });
  }

  static public class componentPopupMenu_Adapter extends MouseAdapter {

    public List maker = new ArrayList();

    public boolean internalFrameLeftButtonMagic = false;

    public boolean allowScrolling = true;

    public Point pressedAt;

    public void mousePressed(MouseEvent e) {
      displayMenu(e);
      pressedAt = internalFrameLeftButtonMagic && e.getClickCount() == 1 && internalFrameActive(e.getComponent()) ? e.getLocationOnScreen() : null;
    }

    public void mouseReleased(MouseEvent e) {
      if (internalFrameLeftButtonMagic && eq(pressedAt, e.getLocationOnScreen()))
        displayMenu2(e);
      else
        displayMenu(e);
    }

    public void displayMenu(MouseEvent e) {
      if (e.getSource() instanceof JInternalFrame)
        return;
      if (e.isPopupTrigger())
        displayMenu2(e);
    }

    public void populate(JPopupMenu menu, MouseEvent e) {
      AutoCloseable __1 = tempSetTL(componentPopupMenu_mouseEvent, e);
      try {
        for (Object menuMaker : maker) pcallF(menuMaker, menu);
        vmBus_send("showingPopupMenu", e.getComponent(), menu);
      } finally {
        _close(__1);
      }
    }

    public void displayMenu2(MouseEvent e) {
      new PopupMenuMaker(e, menu -> populate(menu, e)).allowScrolling(allowScrolling).run();
    }
  }

  static public boolean isURL(String s) {
    return startsWithOneOf(s, "http://", "https://", "file:");
  }

  static public BufferedImage imageIO_readURL(String url) {
    try {
      return ImageIO.read(new URL(url));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  public static long parseSnippetID(String snippetID) {
    long id = Long.parseLong(shortenSnippetID(snippetID));
    if (id == 0)
      throw fail("0 is not a snippet ID");
    return id;
  }

  static public IResourceLoader vm_getResourceLoader() {
    return proxy(IResourceLoader.class, vm_generalMap_get("_officialResourceLoader"));
  }

  static public File imageSnippetsCacheDir() {
    return javaxCachesDir("Image-Snippets");
  }

  static public String snippetImageURL_http(String snippetID) {
    return snippetImageURL_http(snippetID, "png");
  }

  static public String snippetImageURL_http(String snippetID, String contentType) {
    return replacePrefix("https://", "http://", snippetImageURL(snippetID, contentType)).replace(":8443", ":8080");
  }

  static public BufferedImage loadBufferedImageFile(File file) {
    try {
      if (!isFile(file))
        return null;
      return ImageIO.read(file);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A> VF1<A> toVF1(IVF1<A> f) {
    return ivf1ToVF1(f);
  }

  static public void setChecked(JCheckBox checkBox, boolean b) {
    if (checkBox != null) {
      swing(() -> {
        if (isChecked(checkBox) != b)
          checkBox.setSelected(b);
      });
    }
  }

  static public void setChecked(JCheckBoxMenuItem mi, boolean b) {
    if (mi != null) {
      swing(() -> {
        mi.setSelected(b);
      });
    }
  }

  static public boolean jmenuItem_newThreads = false;

  static public JMenuItem jmenuItem(final String text) {
    return jMenuItem(text, null);
  }

  static public JMenuItem jmenuItem(final String text, final Object r) {
    return swing(new F0<JMenuItem>() {

      public JMenuItem get() {
        try {
          Pair<String, Integer> p = jmenu_autoMnemonic(dropPrefix("[disabled] ", text));
          JMenuItem mi = new JMenuItem(p.a);
          if (startsWith(text, "[disabled] "))
            disableMenuItem(mi);
          if (p.b != 0)
            mi.setMnemonic(p.b);
          mi.addActionListener(jmenuItem_newThreads ? actionListenerInNewThread(r) : actionListener(r));
          return mi;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "Pair<S, Int> p = jmenu_autoMnemonic(dropPrefix(\"[disabled] \", text));\r\n    JM...";
      }
    });
  }

  static public MenuItem menuItem(String text, final Object r) {
    MenuItem mi = new MenuItem(text);
    mi.addActionListener(actionListener(r));
    return mi;
  }

  static public MenuItem menuItem(String text, Runnable r) {
    MenuItem mi = new MenuItem(text);
    mi.addActionListener(actionListener(r));
    return mi;
  }

  static public void addDirectMenuItem(JMenuBar mb, String text, Object action) {
    if (mb != null) {
      swing(() -> {
        addDirectMenuItem(mb, directJMenuItem(text, action));
      });
    }
  }

  static public void addDirectMenuItem(Component c, String text, Object action) {
    addDirectMenuItem(addMenuBar(c), text, action);
  }

  static public void addDirectMenuItem(JMenuBar mb, JMenuItem menuItem) {
    if (mb != null) {
      swing(() -> {
        mb.add(menuItem);
        revalidate(mb);
      });
    }
  }

  static public String defaultFrameTitle() {
    return autoFrameTitle();
  }

  static public void defaultFrameTitle(String title) {
    autoFrameTitle_value = title;
  }

  static public void registerEscape(JFrame frame, final Runnable r) {
    registerEscape_rootPane(frame.getRootPane(), r);
  }

  static public void disposeWindow(final Window window) {
    if (window != null) {
      swing(() -> {
        window.dispatchEvent(new WindowEvent(window, WindowEvent.WINDOW_CLOSING));
        myFrames_list.remove(window);
        window.dispose();
      });
    }
  }

  static public void disposeWindow(final Component c) {
    disposeWindow(getWindow(c));
  }

  static public void disposeWindow(Object o) {
    if (o != null)
      disposeWindow(((Component) o));
  }

  static public void disposeWindow() {
    disposeWindow(heldInstance(Component.class));
  }

  static public void inputFilePath(final String msg, final Object action) {
    inputFilePath(msg, userDir(), action);
  }

  static public void inputFilePath(final String msg, final File defaultFile, final Object action) {
    swingLater(new Runnable() {

      public void run() {
        try {
          final JTextField tfPath = jtextfield(f2s(or(defaultFile, userDir())));
          String title = joinStrings(" | ", msg, programName());
          JComponent form = showFormTitled(title, unnull(msg), centerAndEast(tfPath, jbutton("Browse...", new Runnable() {

            public void run() {
              try {
                JFileChooser fileChooser = new JFileChooser(getTextTrim(tfPath));
                if (fileChooser.showOpenDialog(tfPath) == JFileChooser.APPROVE_OPTION) {
                  tfPath.setText(fileChooser.getSelectedFile().getAbsolutePath());
                  tfPath.requestFocus();
                }
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "JFileChooser fileChooser = new JFileChooser(getTextTrim(tfPath));\r\n        if...";
            }
          })), new Runnable() {

            public void run() {
              try {
                callF(action, new File(getTextTrim(tfPath)));
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "callF(action, new File(getTextTrim(tfPath)))";
            }
          });
          renameSubmitButton(form, "OK");
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "final JTextField tfPath = jtextfield(f2s(or(defaultFile, userDir())));\r\n    S...";
      }
    });
  }

  static public boolean hasJPEGExtension(File f) {
    return ewicOneOf(fileName(f), ".jpg", ".jpeg");
  }

  static public void saveJPG(BufferedImage img, File file) {
    try {
      if (!ImageIO.write(img, "jpeg", mkdirsFor(file))) {
        print("Reconstructing image for saving JPEG");
        img = reconstructBufferedImage(img);
        if (!ImageIO.write(img, "jpeg", file))
          throw fail("Couldn't write JPEG: " + file + " (" + img + ")");
      }
      vmBus_send("wroteFile", file);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void saveJPG(File file, BufferedImage img) {
    try {
      saveJPG(img, file);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void savePNG(BufferedImage img, File file) {
    try {
      File tempFile = new File(file.getPath() + "_temp");
      CriticalAction ca = beginCriticalAction("Save " + f2s(file));
      try {
        ImageIO.write(img, "png", mkdirsFor(tempFile));
        file.delete();
        tempFile.renameTo(file);
      } finally {
        ca.done();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void savePNG(String file, BufferedImage img) {
    savePNG(toFile(file), img);
  }

  static public void savePNG(File file, BufferedImage img) {
    savePNG(img, file);
  }

  static public void savePNG(File file, RGBImage img) {
    savePNG(file, img.getBufferedImage());
  }

  static public JComponent selectSnippetID_v1(final VF1<String> onSelect) {
    return selectSnippetID_v1("#", onSelect);
  }

  static public JComponent selectSnippetID_v1(String defaultID, final VF1<String> onSelect) {
    final JTextField tfSnippetID = jtextfield(defaultID);
    if (eq(defaultID, "#"))
      moveCaretToEnd(tfSnippetID);
    JComponent panel;
    renameSubmitButton(panel = showTitledForm("Select Snippet", "Snippet ID:", tfSnippetID, runnableThread(new Runnable() {

      public void run() {
        try {
          callF(onSelect, fsI(getTextTrim(tfSnippetID)));
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "callF(onSelect, fsI(getTextTrim(tfSnippetID)));";
      }
    })), "Select snippet");
    return panel;
  }

  static public BufferedImage cloneBufferedImage(BufferedImage image) {
    return copyImage(image);
  }

  static public BufferedImage clipBufferedImage(BufferedImage src, Rectangle clip) {
    return clipBufferedImage(src, new Rect(clip));
  }

  static public BufferedImage clipBufferedImage(BufferedImage src, Rect r) {
    if (src == null || r == null)
      return null;
    r = intersectRects(r, new Rect(0, 0, src.getWidth(), src.getHeight()));
    if (rectEmpty(r))
      return null;
    return src.getSubimage(r.x, r.y, r.w, r.h);
  }

  static public BufferedImage clipBufferedImage(BufferedImage src, int x, int y, int w, int h) {
    return clipBufferedImage(src, new Rect(x, y, w, h));
  }

  static public Transferable rawClipboardContents() {
    try {
      return Toolkit.getDefaultToolkit().getSystemClipboard().getContents(null);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Object getTransferData(Transferable t, DataFlavor flavor) {
    try {
      return t != null && t.isDataFlavorSupported(flavor) ? t.getTransferData(flavor) : null;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public BufferedImage imageFromDataURL(String url) {
    return decodeImage(bytesFromDataURL(url));
  }

  static public String getTextFromClipboard() {
    return (String) getTransferData(rawClipboardContents(), DataFlavor.stringFlavor);
  }

  static public void popupError(final Throwable throwable) {
    throwable.printStackTrace();
    SwingUtilities.invokeLater(new Runnable() {

      public void run() {
        String text = throwable.toString();
        JOptionPane.showMessageDialog(null, text);
      }
    });
  }

  static public <A> A printIf(boolean b, A a) {
    if (b)
      print(a);
    return a;
  }

  static public <A> A printIf(boolean b, String s, A a) {
    if (b)
      print(s, a);
    return a;
  }

  static public ImageSurface jImageSurface() {
    return swingNu(ImageSurface.class);
  }

  static public ImageSurface jImageSurface(MakesBufferedImage img) {
    return swingNu(ImageSurface.class, img.getBufferedImage());
  }

  static public ImageSurface jImageSurface(BufferedImage img) {
    return swingNu(ImageSurface.class, img);
  }

  static public <A extends JComponent> A disposeFrameOnClick(final A c) {
    onClick(c, new Runnable() {

      public void run() {
        try {
          disposeFrame(c);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "disposeFrame(c)";
      }
    });
    return c;
  }

  static public int countLines(String s) {
    return l(toLines(s));
  }

  static public Lock appendToFile_lock = lock();

  static public boolean appendToFile_keepOpen = false;

  static public HashMap<String, Writer> appendToFile_writers = new HashMap();

  static public void appendToFile(String path, String s) {
    try {
      Lock __0 = appendToFile_lock;
      lock(__0);
      try {
        mkdirsForFile(new File(path));
        path = getCanonicalPath(path);
        Writer writer = appendToFile_writers.get(path);
        if (writer == null) {
          writer = new BufferedWriter(new OutputStreamWriter(newFileOutputStream(path, true), "UTF-8"));
          if (appendToFile_keepOpen)
            appendToFile_writers.put(path, writer);
        }
        writer.write(s);
        if (!appendToFile_keepOpen)
          writer.close();
      } finally {
        unlock(__0);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void appendToFile(File path, String s) {
    if (path != null)
      appendToFile(path.getPath(), s);
  }

  static public void cleanMeUp_appendToFile() {
    AutoCloseable __3 = tempCleaningUp();
    try {
      Lock __1 = appendToFile_lock;
      lock(__1);
      try {
        closeAllWriters(values(appendToFile_writers));
        appendToFile_writers.clear();
      } finally {
        unlock(__1);
      }
    } finally {
      _close(__3);
    }
  }

  static public File programFile(String name) {
    return prepareProgramFile(name);
  }

  static public File programFile(String progID, String name) {
    return prepareProgramFile(progID, name);
  }

  static public SimpleDateFormat simpleDateFormat_UTC(String format) {
    SimpleDateFormat sdf = new SimpleDateFormat(format);
    sdf.setTimeZone(TimeZone.getTimeZone("UTC"));
    return sdf;
  }

  static public String formatUTCWithMS_24() {
    return formatUTCWithMS_24(now());
  }

  static public String formatUTCWithMS_24(long time) {
    var sdf = new SimpleDateFormat("HH:mm:ss.SSSS");
    sdf.setTimeZone(TimeZone.getTimeZone("UTC"));
    return sdf.format(time) + " UTC";
  }

  static public String intToHex(int i) {
    return bytesToHex(intToBytes(i));
  }

  static public <A extends JComponent> A setToolTipText(final A c, final Object toolTip) {
    if (c == null)
      return null;
    {
      swing(() -> {
        String s = str_nullIfEmpty(toolTip);
        if (neq(s, c.getToolTipText()))
          c.setToolTipText(s);
      });
    }
    return c;
  }

  static public <A extends JComponent> A setToolTipText(Object toolTip, A c) {
    return setToolTipText(c, toolTip);
  }

  static public void setTrayIconToolTip(TrayIcon trayIcon, String toolTip) {
    if (trayIcon != null)
      trayIcon.setToolTip(toolTip);
  }

  static public int methodApplicabilityScore_onTypes(Method m, Class[] argTypes) {
    return methodApplicabilityScore_onTypes((Executable) m, argTypes);
  }

  static public int methodApplicabilityScore_onTypes(Executable m, Class[] argTypes) {
    Class<?>[] types = m.getParameterTypes();
    if (types.length != argTypes.length)
      return Integer.MAX_VALUE;
    int score = 0;
    for (int i = 0; i < types.length; i++) {
      Class a = argTypes[i];
      Class c = types[i];
      if (c == a) {
      } else if (isSubclassOf(a, c))
        ++score;
      else
        return Integer.MAX_VALUE;
    }
    return score;
  }

  static public List<Method> findNonDefaultInterfaceMethods(Class intrface) {
    if (!isInterface(intrface))
      return null;
    List<Method> l = new ArrayList();
    _MethodCache cache = getMethodCache(intrface);
    Class c = intrface;
    do {
      for (Method m : c.getDeclaredMethods()) if (m.getDeclaringClass() != Object.class && !m.isDefault() && !isStaticMethod(m))
        l.add(m);
      c = c.getSuperclass();
    } while (c != null);
    return l;
  }

  static public TreeMap descTreeMap() {
    return revTreeMap();
  }

  static public <A> A optParam(ThreadLocal<A> tl, A defaultValue) {
    return optPar(tl, defaultValue);
  }

  static public <A> A optParam(ThreadLocal<A> tl) {
    return optPar(tl);
  }

  static public Object optParam(String name, Map params) {
    return mapGet(params, name);
  }

  static public <A> A optParam(Object[] opt, String name, A defaultValue) {
    int n = l(opt);
    if (n == 1 && opt[0] instanceof Map) {
      Map map = (Map) (opt[0]);
      return map.containsKey(name) ? (A) map.get(name) : defaultValue;
    }
    if (!even(l(opt)))
      throw fail("Odd parameter length");
    for (int i = 0; i < l(opt); i += 2) if (eq(opt[i], name))
      return (A) opt[i + 1];
    return defaultValue;
  }

  static public Object optParam(Object[] opt, String name) {
    return optParam(opt, name, null);
  }

  static public Object optParam(String name, Object[] params) {
    return optParam(params, name);
  }

  static public String replacePlusWithSpace(String s) {
    return replace(s, '+', ' ');
  }

  static public int scoredSearch_score_single(String s, String query) {
    int i = indexOfIC_underscore(s, query);
    if (i < 0)
      return 0;
    if (i > 0)
      return 1;
    return l(s) == l(query) ? 3 : 2;
  }

  static public <A, B> List<B> secondOfPairs(Collection<Pair<A, B>> l) {
    return lambdaMap(__94 -> secondOfPair(__94), l);
  }

  static public class mapI_It extends IterableIterator {

    public Object f;

    public Iterator i;

    public mapI_It() {
    }

    public mapI_It(Object f, Iterator i) {
      this.i = i;
      this.f = f;
    }

    public boolean hasNext() {
      return i.hasNext();
    }

    public Object next() {
      return callF(f, i.next());
    }

    public String toString() {
      return formatFunctionCall("mapI", f, i);
    }
  }

  static public IterableIterator mapI(final Object f, final Iterator i) {
    return new mapI_It(f, i);
  }

  static public IterableIterator mapI(IterableIterator i, Object f) {
    return mapI((Iterator) i, f);
  }

  static public IterableIterator mapI(Object f, IterableIterator i) {
    return mapI((Iterator) i, f);
  }

  static public IterableIterator mapI(Iterator i, Object f) {
    return mapI(f, i);
  }

  static public <A, B> IterableIterator<B> mapI(Iterable<A> i, IF1<A, B> f) {
    return new MapI(f, iterator(i));
  }

  static public <A, B> IterableIterator<B> mapI(Iterator<A> i, IF1<A, B> f) {
    return new MapI(f, i);
  }

  static public <A, B> IterableIterator<B> mapI(IterableIterator<A> i, IF1<A, B> f) {
    return new MapI(f, i);
  }

  static public <A, B> IterableIterator<B> mapI(IF1<A, B> f, Iterable<A> i) {
    return new MapI(f, iterator(i));
  }

  static public IterableIterator mapI(Iterable i, Object f) {
    return mapI(f, i.iterator());
  }

  static public IterableIterator mapI(Object f, Iterable i) {
    return mapI(i, f);
  }

  static public String strOr(Object o, String ifNull) {
    return o == null ? ifNull : str(o);
  }

  static public void lockOrFail(Lock lock, long timeout) {
    try {
      ping();
      vmBus_send("locking", lock, "thread", currentThread());
      if (!lock.tryLock(timeout, TimeUnit.MILLISECONDS)) {
        String s = "Couldn't acquire lock after " + timeout + " ms.";
        if (lock instanceof ReentrantLock) {
          ReentrantLock l = (ReentrantLock) lock;
          s += " Hold count: " + l.getHoldCount() + ", owner: " + call(l, "getOwner");
        }
        throw fail(s);
      }
      vmBus_send("locked", lock, "thread", currentThread());
      ping();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public ReentrantLock fairLock() {
    return new ReentrantLock(true);
  }

  static public String nohup_sanitize(String s) {
    return empty(s) ? s : takeFirst(50, s.replaceAll("[^.a-zA-Z0-9\\-_]", ""));
  }

  static public File tempFileFor(File f) {
    return new File(f.getPath() + "_temp");
  }

  static public <A, B> WeakIdentityHashMap<A, B> weakIdentityHashMap() {
    return new WeakIdentityHashMap();
  }

  static public long done2_always(long startTime, String desc) {
    long time = sysNow() - startTime;
    saveTiming_noPrint(time);
    print(desc + " [" + time + " ms]");
    return time;
  }

  static public long done2_always(String desc, long startTime) {
    return done2_always(startTime, desc);
  }

  static public long done2_always(long startTime) {
    return done2_always(startTime, "");
  }

  static public IF0 runnableToIF0(Runnable r) {
    return r == null ? null : () -> {
      r.run();
      return null;
    };
  }

  static public DynamicObject dynamicObject(String className, Object... x) {
    DynamicObject d = new DynamicObject(className);
    for (int i = 0; i < x.length - 1; i += 2) if (x[i + 1] != null)
      setDyn(d, (String) x[i], x[i + 1]);
    return d;
  }

  static public <A, B> B syncGetOrCreate(Map<A, B> map, A key, Class<? extends B> c) {
    try {
      synchronized (map) {
        return getOrCreate(map, key, c);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A, B> B syncGetOrCreate(Map<A, B> map, A key, Object f) {
    synchronized (map) {
      return getOrCreate(map, key, f);
    }
  }

  static public <A, B> B syncGetOrCreate(Class<? extends B> c, Map<A, B> map, A key) {
    return syncGetOrCreate(map, key, c);
  }

  static public <A, B> B syncGetOrCreate(Map<A, B> map, A key, IF0<B> f) {
    synchronized (map) {
      return getOrCreate(map, key, f);
    }
  }

  static public BufferedImage drawableToImage(WidthAndHeight size, G2Drawable drawable) {
    var img = whiteImage(size);
    {
      if (drawable != null)
        drawable.drawOn(img);
    }
    return img;
  }

  static public List<String> sortedIgnoreCase(Collection<String> c) {
    List<String> l = cloneList(c);
    Collections.sort(l, caseInsensitiveComparator());
    return l;
  }

  static public double nanosToMicroseconds(double ns) {
    return ns / 1000;
  }

  static public <A> OKOrError<A> OKOrError_ok(A a) {
    return new OKOrError(a);
  }

  static public OKOrError OKOrError_error(Throwable e) {
    return new OKOrError(false, e);
  }

  static public <A> List<A> getComboBoxItems(JComboBox<A> cb) {
    return cb == null ? null : swing(() -> {
      ComboBoxModel<A> model = cb.getModel();
      int n = model.getSize();
      List<A> l = emptyList(n);
      for (int i = 0; i < n; i++) l.add(model.getElementAt(i));
      return l;
    });
  }

  static public <A> void setComboBoxItems(JComboBox<A> cb, Collection<A> items) {
    if (cb != null) {
      swing(() -> {
        cb.setModel(new DefaultComboBoxModel(new Vector(items)));
      });
    }
  }

  static public String joinStrings(String sep, Object... strings) {
    return joinStrings(sep, Arrays.asList(strings));
  }

  static public String joinStrings(String sep, Iterable strings) {
    StringBuilder buf = new StringBuilder();
    for (Object o : unnull(strings)) {
      String s = strOrNull(o);
      if (nempty(s)) {
        if (nempty(buf))
          buf.append(sep);
        buf.append(s);
      }
    }
    return str(buf);
  }

  static public Map<String, String> parseColonProperties(String text) {
    return parseColonProperties(text, new LinkedHashMap());
  }

  static public Map<String, String> parseColonProperties(String text, Map<String, String> map) {
    for (String s : tlft(text)) {
      int i = indexOf(s, ':');
      if (i > 0)
        map.put(trimSubstring(s, 0, i), trimSubstring(s, i + 1));
    }
    return map;
  }

  static public String joinPairWithColon(Pair p) {
    return p == null ? "" : str(p.a) + ": " + str(p.b);
  }

  static public <A> List<Pair<A, A>> paramsToPairs(A... params) {
    if (l(params) == 1 && params[0] instanceof Map)
      return mapToPairs((Map) params[0]);
    List<Pair<A, A>> l = emptyList(l(params) / 2);
    for (int i = 0; i + 1 < l(params); i += 2) l.add(pair(params[i], params[i + 1]));
    return l;
  }

  static public <T> void sort(T[] a, Comparator<? super T> c) {
    if (a != null)
      Arrays.sort(a, c);
  }

  static public <T> void sort(T[] a) {
    if (a != null)
      Arrays.sort(a);
  }

  static public void sort(int[] a) {
    if (a != null)
      Arrays.sort(a);
  }

  static public <T> void sort(List<T> a, Comparator<? super T> c) {
    if (a != null)
      Collections.sort(a, c);
  }

  static public void sort(List a) {
    if (a != null)
      Collections.sort(a);
  }

  static public int cmpAlphanumIC(String a, String b) {
    return cmpAlphaNum(a, b);
  }

  static public <A> A heldInstance(Class<A> c) {
    List<Object> l = holdInstance_l.get();
    for (int i = l(l) - 1; i >= 0; i--) {
      Object o = l.get(i);
      if (isInstanceOf(o, c))
        return (A) o;
    }
    throw fail("No instance of " + className(c) + " held");
  }

  static public void setProgressBarTotal(JProgressBar bar, int total) {
    swingCall(bar, "setMaximum", total);
  }

  static public void scrollTextAreaToLineAndCol(JTextArea ta, LineAndColumn lac) {
    try {
      swing(() -> {
        try {
          int pos = ta.getLineStartOffset(lac.line - 1) + lac.col - 1;
          Rectangle viewRect = ta.modelToView(pos);
          printVars("scrollTextAreaToLineAndCol", "lac", lac, "pos", pos, "viewRect", viewRect);
          if (viewRect != null)
            setEnclosingViewPosition(ta, viewRect.x, viewRect.y);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      });
    } catch (Throwable __e) {
      pcallFail(__e);
    }
  }

  static public MouseAdapter leftClickMouseAdapter(final Object r) {
    return new MouseAdapter() {

      public void mouseClicked(MouseEvent e) {
        if (e.getButton() == 1)
          pcallF(r, new Pt(e.getPoint()));
      }
    };
  }

  static public MouseAdapter leftClickMouseAdapter_noPt(final Object r) {
    return new MouseAdapter() {

      public void mouseClicked(MouseEvent e) {
        if (e.getButton() == 1)
          pcallF(r);
      }
    };
  }

  static public void fillJMenu(final JMenu m, Object... x) {
    if (x == null)
      return;
    for (int i = 0; i < l(x); i++) {
      Object o = x[i], y = get(x, i + 1);
      if (o instanceof List)
        fillJMenu(m, asArray((List) o));
      else if (isMenuSeparatorIndicator(o)) {
        if (menuItemCount(m) != 0)
          m.addSeparator();
      } else if (o instanceof LiveValue && ((LiveValue) o).getType() == String.class && isRunnableX(y)) {
        final LiveValue<String> lv = (LiveValue<String>) o;
        final JMenuItem mi = jmenuItem(or2(unCurlyBracket(lv.get()), "..."), y);
        bindLiveValueListenerToComponent(mi, lv, new Runnable() {

          public void run() {
            try {
              String s = lv.get();
              if (isCurlyBracketed(s)) {
                setEnabled(mi, false);
                s = unCurlyBracket(s);
              } else
                setEnabled(mi, true);
              setText(mi, s);
              revalidate(m);
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "String s = lv!;\r\n        if (isCurlyBracketed(s)) {\r\n          setEnabled(mi,...";
          }
        });
        print("bound live value " + lv + " to menu item " + mi);
        m.add(mi);
        ++i;
      } else if (o instanceof String && isRunnableX(y)) {
        m.add(jmenuItem((String) o, y));
        ++i;
      } else if (o instanceof JMenuItem)
        m.add((JMenuItem) o);
      else if (o instanceof String || o instanceof Action || o instanceof Component)
        call(m, "add", o);
      else if (o == null && y instanceof Runnable)
        ++i;
      else if (o != null)
        print("Unknown menu item: " + o);
    }
  }

  static public JTextArea showWrappedText(final String title, final String text) {
    return (JTextArea) swingAndWait(new F0<Object>() {

      public Object get() {
        try {
          JTextArea textArea = wrappedTextArea(text);
          caretToHome(textArea);
          textArea.setFont(typeWriterFont());
          makeFrame(title, new JScrollPane(textArea));
          return textArea;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JTextArea textArea = wrappedTextArea(text);\r\n    caretToHome(textArea);\r\n    ...";
      }
    });
  }

  static public JTextArea showWrappedText(Object text) {
    return showWrappedText(autoFrameTitle(), str(text));
  }

  static public JScrollPane jHigherScrollPane(final JComponent c) {
    return swing(() -> new JScrollPane(c) {

      public Dimension getPreferredSize() {
        Component view = getViewport().getView();
        if (view == null)
          return super.getPreferredSize();
        int pref_width = view.getPreferredSize().width;
        setHorizontalScrollBarPolicy(JScrollPane.HORIZONTAL_SCROLLBAR_ALWAYS);
        Dimension dim = new Dimension(pref_width, super.getPreferredSize().height + getHorizontalScrollBar().getSize().height);
        setHorizontalScrollBarPolicy(JScrollPane.HORIZONTAL_SCROLLBAR_AS_NEEDED);
        return dim;
      }
    });
  }

  static public JPanel jFullCenter(final Component c) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel panel = new JPanel(new GridBagLayout());
          panel.add(c);
          return panel;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel panel = new JPanel(new GridBagLayout);\r\n    panel.add(c);\r\n    ret panel;";
      }
    });
  }

  static public <A extends JComponent> A onFirstShow(A component, Runnable onShow) {
    return onFirstComponentShow(component, onShow);
  }

  static public <A extends JComponent> A onFirstShow(Runnable onShow, A component) {
    return onFirstShow(component, onShow);
  }

  static public void clearTextComponentUndoList(JTextComponent c) {
    swing(() -> {
      if (c instanceof RSyntaxTextArea) {
        ((RSyntaxTextArea) c).discardAllEdits();
        return;
      }
      UndoManager undo = (UndoManager) (metaGet(c, "UndoManager"));
      if (undo != null)
        undo.discardAllEdits();
    });
  }

  static public <A extends JTextComponent> A bindTextComponentToVarWithNotify(A tc, IVarWithNotify<String> lv) {
    bindHasChangeListenersToComponent(tc, lv, new Runnable() {

      public void run() {
        try {
          setTextKeepCaret(tc, lv.get());
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "setTextKeepCaret(tc, lv!)";
      }
    });
    onChange(tc, new Runnable() {

      public void run() {
        try {
          lv.set(getText(tc));
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "lv.set(getText(tc))";
      }
    });
    return tc;
  }

  static public int charToKeyCode(char c) {
    c = lower(c);
    assertTrue(c >= 'a' && c <= 'z');
    return charDiff(c, 'a') + KeyEvent.VK_A;
  }

  static public SingleThread awtCalcRegularly(JComponent component, int delay, int firstDelay, Object runnable) {
    final SingleThread thread = new SingleThread();
    final Runnable r2 = addThreadInfoToRunnable(runnable);
    final Object info = _threadInfo();
    installTimer(component, delay, firstDelay, new Runnable() {

      public void run() {
        if (!licensed())
          return;
        _threadInheritInfo(info);
        thread.go(r2);
      }
    });
    return thread;
  }

  static public SingleThread awtCalcRegularly(JFrame frame, int delay, int firstDelay, final Object runnable) {
    return awtCalcRegularly(getRootPane(frame), delay, firstDelay, runnable);
  }

  static public boolean newButton_autoToolTip = true;

  static public boolean newButton_autoToolTip() {
    return newButton_autoToolTip;
  }

  static public JButton newButton(final String text, final Object action) {
    return swing(new F0<JButton>() {

      public JButton get() {
        try {
          String text2 = dropPrefix("[disabled] ", text);
          JButton btn = basicJButton(text2);
          if (l(text2) < l(text))
            btn.setEnabled(false);
          if (newButton_autoToolTip) {
            btn.setToolTipText(btn.getText());
          }
          if (action != null)
            btn.addActionListener(actionListener(action, btn));
          return btn;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "S text2 = dropPrefix(\"[disabled] \", text);\r\n    JButton btn = basicJButton(te...";
      }
    });
  }

  static public int defaultMargin() {
    return withMargin_defaultWidth;
  }

  static public JPanel marginPanel() {
    return jtransparent(borderLayoutPanel());
  }

  static public <A extends Component> A activateFrameAndReturnComponent(A c) {
    activateFrame(c);
    return c;
  }

  static public <A> A setFrameTitle(A c, final String title) {
    final Frame f = getAWTFrame(c);
    if (f != null) {
      swing(() -> {
        f.setTitle(title);
      });
    }
    return c;
  }

  static public <A extends Component> A setFrameTitle(String title, A c) {
    return setFrameTitle(c, title);
  }

  static public JFrame setFrameTitle(String title) {
    Object f = getOpt(mc(), "frame");
    if (f instanceof JFrame)
      return setFrameTitle((JFrame) f, title);
    return null;
  }

  static public JTextArea newTypeWriterTextArea() {
    return newTypeWriterTextArea("");
  }

  static public JTextArea newTypeWriterTextArea(String text) {
    return withTypeWriterFont(jTextArea(text));
  }

  static public String makeFrame_defaultIcon;

  static public boolean makeFrame_hideConsole = false;

  static public ThreadLocal<VF1<JFrame>> makeFrame_post = new ThreadLocal();

  static public JFrame makeFrame() {
    return makeFrame((Component) null);
  }

  static public JFrame makeFrame(Object content) {
    return makeFrame(programTitle(), content);
  }

  static public JFrame makeFrame(String title) {
    return makeFrame(title, null);
  }

  static public JFrame makeFrame(String title, Object content) {
    return makeFrame(title, content, true);
  }

  static public JFrame makeFrame(final String title, final Object content, final boolean showIt) {
    final VF1<JFrame> post = optParam(makeFrame_post);
    return swing(new F0<JFrame>() {

      public JFrame get() {
        try {
          if (getFrame(content) != null)
            return getFrame(setFrameTitle((Component) content, title));
          final JFrame frame = new JFrame(title);
          if (makeFrame_defaultIcon != null)
            setFrameIconLater(frame, makeFrame_defaultIcon);
          _initFrame(frame);
          Component wrapped = wrap(content);
          if (wrapped != null)
            frame.getContentPane().add(wrapped);
          frame.setBounds(defaultNewFrameBounds());
          callF(post, frame);
          if (showIt)
            frame.setVisible(true);
          if (showIt && makeFrame_hideConsole) {
            hideConsole();
            makeFrame_hideConsole = false;
          }
          return frame;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "if (getFrame(content) != null)\r\n      ret getFrame(setFrameTitle((Component) ...";
      }
    });
  }

  static public String autoFrameTitle_value;

  static public String autoFrameTitle() {
    return autoFrameTitle_value != null ? autoFrameTitle_value : getProgramTitle();
  }

  static public void autoFrameTitle(Component c) {
    setFrameTitle(getFrame(c), autoFrameTitle());
  }

  static public String hijackPrint(Runnable r) {
    StringBuilder buf = new StringBuilder();
    Object old = interceptPrintInThisThread(new F1<String, Boolean>() {

      public Boolean get(String s) {
        buf.append(s);
        return false;
      }
    });
    try {
      {
        if (r != null)
          r.run();
      }
      return str(buf);
    } finally {
      interceptPrintInThisThread(old);
    }
  }

  static public <A, B> Map<A, List<B>> multiMapToMap(MultiMap<A, B> m) {
    return m == null ? null : m.data;
  }

  static public <B> TreeMap<String, B> asCIMap(Map<String, B> map) {
    return asCaseInsensitiveMap(map);
  }

  static public JWindow makeUnimportantWindow(final Component c) {
    return swing(new F0<JWindow>() {

      public JWindow get() {
        try {
          Map map = (Map) (vm_generalMap_get("unimportant windows"));
          if (map == null)
            vm_generalMap_put("unimportant windows", map = (Map) callJavaX("newWeakHashMap"));
          JWindow w = makeWindow(c);
          map.put(w, true);
          return w;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "Map map = cast vm_generalMap_get(\"unimportant windows\");\r\n    if (map == null...";
      }
    });
  }

  static public JLabel flatInfoBox_makePanel(String text) {
    return jlabel(text);
  }

  static public void showConsole() {
    callOpt(get(javax(), "console"), "showConsole");
  }

  static public boolean isStandardFunction(String name) {
    return isIdentifier(name) && stdFunctions_cached().containsKey(name);
  }

  static public boolean isStandardClass(String name) {
    return isIdentifier(name) && standardClassesMap_cached().containsKey(name);
  }

  static public <A> String resolveKeyIC(Map<String, A> map, String key) {
    return resolveKeyCI(map, key);
  }

  static public Map<String, String> stdFunctions_cached_map;

  static public Lock stdFunctions_cached_lock = lock();

  static public Map<String, String> stdFunctions_cached() {
    Lock __0 = stdFunctions_cached_lock;
    lock(__0);
    try {
      if (stdFunctions_cached_map == null)
        stdFunctions_cached_map = stdFunctions_uncached();
      return stdFunctions_cached_map;
    } finally {
      unlock(__0);
    }
  }

  static synchronized public void stdFunctions_clearCache() {
    stdFunctions_cached_map = null;
  }

  static public Map<String, String> stdClasses_cached() {
    return standardClassesMap_cached();
  }

  static public String sfSnippet(String function) {
    return stdFunctions_cached().get(function);
  }

  static public String scSnippet(String name) {
    return stdClasses_cached().get(name);
  }

  static public String snippetLink(String id) {
    return empty(id) ? id : snippetLink(parseSnippetID(id));
  }

  static public String snippetLink(long id) {
    return "https://code.botcompany.de/" + id;
  }

  static public boolean isComponentShowing(final Component c) {
    return c != null && swing(new F0<Boolean>() {

      public Boolean get() {
        try {
          return c.isShowing();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.isShowing();";
      }
    });
  }

  static public double nanoSecondsToSeconds(double nanos) {
    return nanos * 1e-9;
  }

  static public <A> A swingConstruct(final Class<A> c, final Object... args) {
    return swing(new F0<A>() {

      public A get() {
        try {
          return nuObject(c, args);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return nuObject(c, args);";
      }
    });
  }

  static public JPanel smartAdd(JPanel panel, List parts) {
    for (Object o : parts) addToContainer(panel, wrapForSmartAdd(o));
    return panel;
  }

  static public JPanel smartAdd(JPanel panel, Object... parts) {
    return smartAdd(panel, asList(parts));
  }

  static public <A extends JComponent> A applyDefaultMargin(final A c) {
    if (c != null) {
      swing(() -> {
        c.setBorder(BorderFactory.createEmptyBorder(withMargin_defaultWidth, withMargin_defaultWidth, withMargin_defaultWidth, withMargin_defaultWidth));
      });
    }
    return c;
  }

  static public int withBottomMargin_defaultWidth = 6;

  static public JPanel withBottomMargin(Swingable c) {
    return withBottomMargin(toComponent(c));
  }

  static public JPanel withBottomMargin(Component c) {
    return withBottomMargin(withBottomMargin_defaultWidth, c);
  }

  static public JPanel withBottomMargin(int w, Swingable c) {
    return withBottomMargin(w, toComponent(c));
  }

  static public JPanel withBottomMargin(int w, Component c) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel p = new JPanel(new BorderLayout());
          p.setBorder(BorderFactory.createEmptyBorder(0, 0, w, 0));
          p.add(c);
          return p;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel p = new JPanel(new BorderLayout);\r\n    p.setBorder(BorderFactory.creat...";
      }
    });
  }

  static public <A extends JComponent> A applyMargin(int top, int left, int bottom, int right, A c) {
    return addMargin(top, left, bottom, right, c);
  }

  static public <A extends JComponent> A applyMargin(int w, A c) {
    return addMargin(w, c);
  }

  static public JComponent jVerticalCenter(Component c) {
    return c == null ? null : customLayoutPanel(new VerticalCenterLayout(), c);
  }

  static public JTextArea wrappedTextArea(final JTextArea ta) {
    enableWordWrapForTextArea(ta);
    return ta;
  }

  static public JTextArea wrappedTextArea() {
    return wrappedTextArea(jtextarea());
  }

  static public JTextArea wrappedTextArea(String text) {
    JTextArea ta = wrappedTextArea();
    setText(ta, text);
    return ta;
  }

  static public JTextArea uneditableWordWrappedTextArea() {
    return uneditableWordWrappedTextArea("");
  }

  static public JTextArea uneditableWordWrappedTextArea(String text) {
    return enableWordWrapForTextArea(uneditableTextArea(text));
  }

  static public <A extends JLabel> A centerLabel(A l) {
    if (l != null)
      l.setHorizontalAlignment(SwingConstants.CENTER);
    return l;
  }

  static public JLabel jnarrowLabel() {
    return jnarrowLabel(50);
  }

  static public JLabel jnarrowLabel(int width) {
    return jnarrowLabel(width, "");
  }

  static public JLabel jnarrowLabel(String text) {
    return jnarrowLabel(50, text);
  }

  static public JLabel jnarrowLabel(int width, String text) {
    return jMinWidth_pure(width, jlabel(text));
  }

  static public JLabel jnarrowLabel(JLabel lbl) {
    return jnarrowLabel(50, lbl);
  }

  static public JLabel jnarrowLabel(int width, JLabel lbl) {
    return jMinWidth_pure(width, lbl);
  }

  static public <A extends JLabel> A setHorizontalAlignment(final int pos, final A a) {
    swingCall(a, "setHorizontalAlignment", pos);
    return a;
  }

  static public <A extends AbstractButton> A setHorizontalAlignment(final int pos, final A a) {
    swingCall(a, "setHorizontalAlignment", pos);
    return a;
  }

  static public <A extends JTextField> A setHorizontalAlignment(final int pos, final A a) {
    swingCall(a, "setHorizontalAlignment", pos);
    return a;
  }

  static public JLabel jLabel(String text) {
    return jlabel(text);
  }

  static public JLabel jLabel() {
    return jlabel();
  }

  static public <A> List<A> wrapObjectArrayAsImmutableList(A[] array) {
    if (array == null)
      return null;
    int n = Array.getLength(array);
    return new RandomAccessAbstractList<A>() {

      public int size() {
        return n;
      }

      public A get(int i) {
        return array[i];
      }
    };
  }

  static public List wrapPrimitiveArrayAsImmutableList(Object array) {
    int n = Array.getLength(array);
    return new RandomAccessAbstractList() {

      public int size() {
        return n;
      }

      public Object get(int i) {
        return Array.get(array, i);
      }
    };
  }

  static public Object[] flattenArray2(Object... a) {
    List l = new ArrayList();
    if (a != null)
      for (Object x : a) if (x instanceof Object[])
        l.addAll(asList((Object[]) x));
      else if (x instanceof Collection)
        l.addAll((Collection) x);
      else
        l.add(x);
    return asObjectArray(l);
  }

  static public Component wrapForSmartAdd(Object o) {
    if (o == null)
      return jpanel();
    if (o instanceof String)
      return jlabel((String) o);
    return wrap(o);
  }

  static public JPanel smartAddWithLayout(JPanel panel, Object layout, List parts) {
    for (Object o : parts) panel.add(wrapForSmartAdd(o), layout);
    return panel;
  }

  static public JPanel smartAddWithLayout(JPanel panel, Object layout, Object... parts) {
    return smartAddWithLayout(panel, layout, asList(flattenArray2(parts)));
  }

  static public Object evalWithTimeoutOrException(final Object f, int timeoutMS) {
    return evalWithTimeoutOrException(timeoutMS, f);
  }

  static public Object evalWithTimeoutOrException(int timeoutMS, final Object f) {
    return eitherAOpt(evalWithTimeout(timeoutMS, f));
  }

  static public Object evalWithTimeoutOrException(double timeoutSeconds, final Object f) {
    return eitherAOpt(evalWithTimeout(timeoutSeconds, f));
  }

  static public <A> A evalWithTimeoutOrException(int timeoutMS, F0<A> f) {
    Either<Object, Thread> e = evalWithTimeout(timeoutMS, f);
    if (e.isA())
      return (A) e.a();
    throw fail(trim("Timeout after " + timeoutMS + " ms. " + unnull(stackTraceForThread(e.b()))));
  }

  static public <A> A evalWithTimeoutOrException(double timeoutSeconds, F0<A> f) {
    return evalWithTimeoutOrException(toMS_int(timeoutSeconds), f);
  }

  static public <A> A evalWithTimeoutOrException(int timeoutMS, IF0<A> f) {
    return evalWithTimeoutOrException(timeoutMS, if0ToF0(f));
  }

  static public <A> A evalWithTimeoutOrException(double timeoutSeconds, IF0<A> f) {
    return evalWithTimeoutOrException(timeoutSeconds, if0ToF0(f));
  }

  static public F0 runnableToF0(Runnable r) {
    return r == null ? null : new F0<Object>() {

      public Object get() {
        try {
          r.run();
          return null;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "r.run(); null;";
      }
    };
  }

  static public <A, B> List<B> lookupAllOpt(Map<A, B> map, Collection<A> l) {
    List<B> out = new ArrayList();
    if (l != null)
      for (A a : l) addIfNotNull(out, map.get(a));
    return out;
  }

  static public <A, B> List<B> lookupAllOpt(Collection<A> l, Map<A, B> map) {
    return lookupAllOpt(map, l);
  }

  static public <A, B extends IF0<A>> List<A> getVars(Iterable<B> l) {
    return lambdaMap(__95 -> getVar(__95), l);
  }

  static public Object defaultDefaultClassFinder() {
    return new F1<String, Class>() {

      public Class get(String name) {
        name = replacePrefix("main$main$", "main$", name);
        Class c = get2(name);
        return c;
      }

      public Class get2(String name) {
        if (eq(name, "<main>"))
          return mc();
        {
          Class c = findClass_fullName(name);
          if (c != null)
            return c;
        }
        if (startsWithAny(name, "loadableUtils.utils$", "main$", mcDollar()))
          for (String pkg : ll("loadableUtils.utils$", mcDollar())) {
            String newName = pkg + afterDollar(name);
            {
              Class c = findClass_fullName(newName);
              if (c != null)
                return c;
            }
          }
        return null;
      }
    };
  }

  static public <A extends Concept> A findConceptWhere(Class<A> c, Object... params) {
    return findConceptWhere(db_mainConcepts(), c, params);
  }

  static public <A extends Concept> A findConceptWhere(Concepts concepts, Class<A> c, Object... params) {
    ping();
    params = expandParams(c, params);
    if (concepts.fieldIndices != null)
      for (int i = 0; i < l(params); i += 2) {
        IFieldIndex<A, Object> index = concepts.getFieldIndex(c, (String) params[i]);
        if (index != null) {
          for (A x : index.getAll(params[i + 1])) if (checkConceptFields(x, params))
            return x;
          return null;
        }
      }
    for (A x : concepts.list(c)) if (checkConceptFields(x, params))
      return x;
    return null;
  }

  static public Concept findConceptWhere(Concepts concepts, String c, Object... params) {
    for (Concept x : concepts.list(c)) if (checkConceptFields(x, params))
      return x;
    return null;
  }

  static public String programIDWithCase() {
    return nempty(caseID()) ? programID() + "/" + quoteUnlessIdentifierOrInteger(caseID()) : programID();
  }

  static public String getInnerMessage(Throwable e) {
    if (e == null)
      return null;
    return getInnerException(e).getMessage();
  }

  static public String programID;

  static public String getProgramID() {
    return nempty(programID) ? formatSnippetIDOpt(programID) : "?";
  }

  static public String getProgramID(Class c) {
    String id = (String) getOpt(c, "programID");
    if (nempty(id))
      return formatSnippetID(id);
    return "?";
  }

  static public String getProgramID(Object o) {
    return getProgramID(getMainClass(o));
  }

  static public List callF_all(Collection l, Object... args) {
    return map(l, f -> callF(f, args));
  }

  static public double toM_double(long l) {
    return l / (1024 * 1024.0);
  }

  public static String rtrimSpaces(String s) {
    if (s == null)
      return null;
    int i = s.length();
    while (i > 0 && " \t".indexOf(s.charAt(i - 1)) >= 0) --i;
    return i < s.length() ? s.substring(0, i) : s;
  }

  static public int year() {
    return localYear();
  }

  static public int year(Timestamp now) {
    return localYear(toLong(now));
  }

  static public int year(long now) {
    return localYear(now);
  }

  static public int year(long now, TimeZone tz) {
    return parseInt(simpleDateFormat("y", tz).format(now));
  }

  static public int month() {
    return localMonth();
  }

  static public int month(Timestamp now) {
    return localMonth(toLong(now));
  }

  static public int month(long now) {
    return localMonth(now);
  }

  static public int month(long now, TimeZone tz) {
    return parseInt(simpleDateFormat("M", tz).format(now));
  }

  static public int dayOfMonth() {
    return localDayOfMonth();
  }

  static public int dayOfMonth(long now) {
    return localDayOfMonth(now);
  }

  static public int dayOfMonth(long now, TimeZone tz) {
    return parseInt(simpleDateFormat("d", tz).format(now));
  }

  static public String padLeft(String s, char c, int n) {
    return rep(c, n - l(s)) + s;
  }

  static public String padLeft(String s, int n) {
    return padLeft(s, ' ', n);
  }

  static public java.util.Calendar calendarFromTime(long time, TimeZone tz) {
    java.util.Calendar c = java.util.Calendar.getInstance(tz);
    c.setTimeInMillis(time);
    return c;
  }

  static public java.util.Calendar calendarFromTime(long time) {
    java.util.Calendar c = java.util.Calendar.getInstance();
    c.setTimeInMillis(time);
    return c;
  }

  static public int roundDownTo(int n, int x) {
    return x / n * n;
  }

  static public long roundDownTo(long n, long x) {
    return x / n * n;
  }

  static public double roundDownTo(double n, double x) {
    return floor(x / n) * n;
  }

  static public void copyStream(InputStream in, OutputStream out) {
    try {
      byte[] buf = new byte[65536];
      while (true) {
        int n = in.read(buf);
        if (n <= 0)
          return;
        out.write(buf, 0, n);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Map<String, String> singular_specials = litmap("children", "child", "images", "image", "chess", "chess");

  static public Set<String> singular_specials2 = litciset("time", "machine", "line", "rule");

  static public String singular(String s) {
    if (s == null)
      return null;
    {
      String __1 = singular_specials.get(s);
      if (!empty(__1))
        return __1;
    }
    if (singular_specials2.contains(dropSuffix("s", afterLastSpace(s))))
      return dropSuffix("s", s);
    if (s.endsWith("ness"))
      return s;
    if (s.endsWith("ges"))
      return dropSuffix("s", s);
    if (endsWith(s, "bases"))
      return dropLast(s);
    s = dropSuffix("es", s);
    s = dropSuffix("s", s);
    return s;
  }

  static public Set<String> getPlural_specials = litciset("sheep", "fish");

  static public String getPlural(String s) {
    if (contains(getPlural_specials, s))
      return s;
    if (ewic(s, "y"))
      return dropSuffixIgnoreCase("y", s) + "ies";
    if (ewicOneOf(s, "ss", "ch"))
      return s + "es";
    if (ewic(s, "s"))
      return s;
    return s + "s";
  }

  static public String defaultTimerName_name;

  static public String defaultTimerName() {
    if (defaultTimerName_name == null)
      defaultTimerName_name = "A timer by " + programID();
    return defaultTimerName_name;
  }

  static public TimerTask smartTimerTask(Object r, java.util.Timer timer, long delay) {
    return new SmartTimerTask(r, timer, delay, _threadInfo());
  }

  static public class SmartTimerTask extends TimerTask implements IFieldsToList {

    public Object r;

    public java.util.Timer timer;

    public long delay;

    public Object threadInfo;

    public SmartTimerTask() {
    }

    public SmartTimerTask(Object r, java.util.Timer timer, long delay, Object threadInfo) {
      this.threadInfo = threadInfo;
      this.delay = delay;
      this.timer = timer;
      this.r = r;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + r + ", " + timer + ", " + delay + ", " + threadInfo + ")";
    }

    public Object[] _fieldsToList() {
      return new Object[] { r, timer, delay, threadInfo };
    }

    public long lastRun;

    public void run() {
      if (!licensed())
        timer.cancel();
      else {
        _threadInheritInfo(threadInfo);
        AutoCloseable __1 = tempActivity(r);
        try {
          lastRun = fixTimestamp(lastRun);
          long now = now();
          if (now >= lastRun + delay * 0.9) {
            lastRun = now;
            if (eq(false, pcallF(r)))
              timer.cancel();
          }
        } finally {
          _close(__1);
        }
      }
    }
  }

  static public String dynamicClassName(Object o) {
    if (o instanceof DynamicObject && ((DynamicObject) o).className != null)
      return "main$" + ((DynamicObject) o).className;
    return className(o);
  }

  static public boolean instanceOf(Object o, String className) {
    if (o == null)
      return false;
    String c = o.getClass().getName();
    return eq(c, className) || eq(c, "main$" + className);
  }

  static public boolean instanceOf(Object o, Class c) {
    if (c == null)
      return false;
    return c.isInstance(o);
  }

  static public boolean instanceOf(Class c, Object o) {
    return instanceOf(o, c);
  }

  static public HashMap<String, Class> findClass_cache = new HashMap();

  static public Class findClass(String name) {
    synchronized (findClass_cache) {
      if (findClass_cache.containsKey(name))
        return findClass_cache.get(name);
      if (!isJavaIdentifier(name))
        return null;
      Class c;
      try {
        c = Class.forName("main$" + name);
      } catch (ClassNotFoundException e) {
        c = null;
      }
      findClass_cache.put(name, c);
      return c;
    }
  }

  static public void warnIfOddCount(Object... list) {
    if (odd(l(list)))
      printStackTrace("Odd list size: " + list);
  }

  static public boolean _csetField(Concept c, String field, Object value) {
    try {
      Field f = setOpt_findField(c.getClass(), field);
      if (value instanceof RC)
        value = c._concepts.getConcept((RC) value);
      value = deref(value);
      if (value instanceof String && l((String) value) >= concepts_internStringsLongerThan)
        value = intern((String) value);
      if (f == null) {
        assertIdentifier(field);
        Object oldVal = mapGet(c.fieldValues, field);
        if (value instanceof Concept) {
          if (oldVal instanceof Concept.Ref)
            return ((Concept.Ref) oldVal).set((Concept) value);
          else {
            dynamicObject_setRawFieldValue(c, field, c.new Ref((Concept) value));
            c.change();
            return true;
          }
        } else {
          if (oldVal instanceof Concept.Ref)
            ((Concept.Ref) oldVal).unindexAndDrop();
          if (eq(oldVal, value))
            return false;
          if (isConceptList(value) && nempty(((List) value))) {
            dynamicObject_setRawFieldValue(c, field, c.new RefL(((List) value)));
            c.change();
            return true;
          }
          if (value == null) {
            dynamicObject_dropRawField(c, field);
          } else {
            if (!isPersistable(value))
              throw fail("Can't persist: " + c + "." + field + " = " + value);
            dynamicObject_setRawFieldValue(c, field, value);
          }
          c.change();
          return true;
        }
      } else if (isSubtypeOf(f.getType(), Concept.Ref.class)) {
        ((Concept.Ref) f.get(c)).set((Concept) derefRef(value));
        c.change();
        return true;
      } else if (isSubtypeOf(f.getType(), Concept.RefL.class)) {
        ((Concept.RefL) f.get(c)).replaceWithList(lmap(__96 -> derefRef(__96), (List) value));
        c.change();
        return true;
      } else {
        Object old = f.get(c);
        if (neq(value, old)) {
          boolean isTransient = isTransient(f);
          if (!isTransient && !isPersistable(value))
            throw fail("Can't persist: " + c + "." + field + " = " + value);
          f.set(c, value);
          if (!isTransient)
            c.change();
          return true;
        }
      }
      return false;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Object derefRef(Object o) {
    if (o instanceof Concept.Ref)
      o = ((Concept.Ref) o).get();
    return o;
  }

  static public <A extends Concept> A derefRef(Concept.Ref<A> r) {
    return r == null ? null : r.get();
  }

  static public String loadTextFilePossiblyGZipped(String fileName) {
    return loadTextFilePossiblyGZipped(fileName, null);
  }

  static public String loadTextFilePossiblyGZipped(String fileName, String defaultContents) {
    File gz = new File(fileName + ".gz");
    return gz.exists() ? loadGZTextFile(gz) : loadTextFile(fileName, defaultContents);
  }

  static public String loadTextFilePossiblyGZipped(File fileName) {
    return loadTextFilePossiblyGZipped(fileName, null);
  }

  static public String loadTextFilePossiblyGZipped(File fileName, String defaultContents) {
    return loadTextFilePossiblyGZipped(fileName.getPath(), defaultContents);
  }

  static public void assertNotOnAWTThread() {
    assertFalse("Can't do this in AWT thread", isAWTThread());
  }

  static public boolean isUnstructuring() {
    return isTrue(getTL(dynamicObjectIsLoading_threadLocal()));
  }

  static public String tabToSingleSpace(String s) {
    return replace(s, '\t', ' ');
  }

  static public String assertPossibleMD5(String s) {
    if (!possibleMD5(s))
      throw fail("Not an MD5 signature: " + s);
    return s;
  }

  static public <A> void setVar(IVar<A> v, A value) {
    if (v != null)
      v.set(value);
  }

  static public <A> IVF1<A> setVar(IVar<A> v) {
    return a -> {
      if (v != null)
        v.set(a);
    };
  }

  static public List<File> listFilesWithSuffix(File dir, String suffix) {
    List<File> l = new ArrayList();
    for (File f : listFiles(dir)) if (!f.isDirectory() && (empty(suffix) || endsWithIgnoreCase(f.getName(), suffix)))
      l.add(f);
    return l;
  }

  static public List<File> listFilesWithSuffix(String suffix, File dir) {
    return listFilesWithSuffix(dir, suffix);
  }

  static public String addPrefixOptIfNempty(String prefix, String s) {
    return addPrefixIfNotEmpty2(prefix, s);
  }

  static public <A extends Component> A jMinWidth_pure(int w, A c) {
    if (c != null) {
      swing(() -> {
        Dimension size = c.getMinimumSize();
        c.setMinimumSize(new Dimension(w, size.height));
      });
    }
    return c;
  }

  static public <A extends Component> A jMinWidth_pure(A c, int w) {
    return jMinWidth_pure(w, c);
  }

  static public JPanel vstack2(final Object... parts) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel panel = new JPanel(new GridBagLayout());
          GridBagConstraints gbc = new GridBagConstraints();
          gbc.weightx = 1;
          gbc.fill = GridBagConstraints.HORIZONTAL;
          gbc.gridwidth = GridBagConstraints.REMAINDER;
          smartAddWithLayout(panel, gbc, parts);
          gbc.weighty = 1;
          panel.add(jrigid(), gbc);
          return panel;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel panel = new JPanel(new GridBagLayout);\r\n    new GridBagConstraints gbc...";
      }
    });
  }

  static public <A extends JComponent> A instaToolTip(A c, String toolTip) {
    return instaToolTip(toolTip, c);
  }

  static public <A extends JComponent> A instaToolTip(IF0<String> toolTip, A c) {
    new InstantNeverHideToolTip(toolTip, c);
    return c;
  }

  static public <A extends JComponent> A instaToolTip(String toolTip, A c) {
    new InstantNeverHideToolTip(toolTip, c);
    return c;
  }

  static public JLabel jImageLabel(Image img) {
    return swingNu(JLabel.class, imageIcon(img));
  }

  static public JLabel jImageLabel(javax.swing.Icon icon) {
    return swingNu(JLabel.class, icon);
  }

  static public JLabel jImageLabel(String imageID) {
    return jImageLabel(imageIcon(imageID));
  }

  static public JLabel jImageLabel(String text, String imageID) {
    final JLabel l = swingNu(JLabel.class, text, imageIcon(imageID), JLabel.CENTER);
    {
      swing(() -> {
        l.setVerticalTextPosition(SwingConstants.BOTTOM);
        l.setHorizontalTextPosition(SwingConstants.CENTER);
      });
    }
    return l;
  }

  static public String collapseWord(String s) {
    if (s == null)
      return "";
    StringBuilder buf = new StringBuilder();
    for (int i = 0; i < l(s); i++) if (i == 0 || !charactersEqualIC(s.charAt(i), s.charAt(i - 1)))
      buf.append(s.charAt(i));
    return buf.toString();
  }

  static public JLabel jLiveValueLabel(IF0WithChangeListeners var) {
    return jVarLabel(var);
  }

  static public JLabel jVarLabel(IF0WithChangeListeners var) {
    return bindJLabelToVar(jlabel(), var);
  }

  static public JSplitPane jhsplit(Swingable l, Swingable r) {
    return jhsplit(l, toComponent(r));
  }

  static public JSplitPane jhsplit(Swingable l, Component r) {
    return jhsplit(toComponent(l), r);
  }

  static public JSplitPane jhsplit(Component l, Swingable r) {
    return jhsplit(l, toComponent(r));
  }

  static public JSplitPane jhsplit(Component l, Component r) {
    return jhsplit(l, r, 0.5);
  }

  static public JSplitPane jhsplit(Swingable l, Swingable r, double splitPoint, int delay) {
    return jhsplit(l, toComponent(r), splitPoint, delay);
  }

  static public JSplitPane jhsplit(Swingable l, Component r, double splitPoint, int delay) {
    return jhsplit(toComponent(l), r, splitPoint, delay);
  }

  static public JSplitPane jhsplit(Component l, Swingable r, double splitPoint, int delay) {
    return jhsplit(l, toComponent(r), splitPoint, delay);
  }

  static public JSplitPane jhsplit(Component l, Component r, double splitPoint, int delay) {
    return jhsplit(l, r, splitPoint);
  }

  static public JSplitPane jhsplit(Swingable l, Swingable r, double splitPoint) {
    return jhsplit(l, toComponent(r), splitPoint);
  }

  static public JSplitPane jhsplit(Swingable l, Component r, double splitPoint) {
    return jhsplit(toComponent(l), r, splitPoint);
  }

  static public JSplitPane jhsplit(Component l, Swingable r, double splitPoint) {
    return jhsplit(l, toComponent(r), splitPoint);
  }

  static public JSplitPane jhsplit(Component l, Component r, double splitPoint) {
    return setSplitPaneOnFirstShowing(swingNu(JSplitPane.class, JSplitPane.HORIZONTAL_SPLIT, wrap(l), wrap(r)), splitPoint);
  }

  static public JSplitPane jhsplit(double splitPoint, Swingable l, Swingable r) {
    return jhsplit(splitPoint, l, toComponent(r));
  }

  static public JSplitPane jhsplit(double splitPoint, Swingable l, Component r) {
    return jhsplit(splitPoint, toComponent(l), r);
  }

  static public JSplitPane jhsplit(double splitPoint, Component l, Swingable r) {
    return jhsplit(splitPoint, l, toComponent(r));
  }

  static public JSplitPane jhsplit(double splitPoint, Component l, Component r) {
    return jhsplit(l, r, splitPoint);
  }

  static public boolean frameTooSmall(JFrame frame) {
    return frame.getWidth() < 100 || frame.getHeight() < 50;
  }

  static public void frameStandardSize(JFrame frame) {
    frame.setBounds(300, 100, 500, 400);
  }

  static public void setFrameContents(final Component c, final Object contents) {
    swing(() -> {
      JFrame frame = getFrame(c);
      if (frame == null)
        return;
      frame.getContentPane().removeAll();
      frame.getContentPane().setLayout(new BorderLayout());
      frame.getContentPane().add(wrap(contents));
      revalidate(frame);
    });
  }

  static public JFrame getFrame(final Object _o) {
    return swing(new F0<JFrame>() {

      public JFrame get() {
        try {
          Object o = _o;
          if (o instanceof ButtonGroup)
            o = first(buttonsInGroup((ButtonGroup) o));
          if (!(o instanceof Component))
            return null;
          Component c = (Component) o;
          while (c != null) {
            if (c instanceof JFrame)
              return (JFrame) c;
            c = c.getParent();
          }
          return null;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "O o = _o;\r\n    if (o instanceof ButtonGroup) o = first(buttonsInGroup((Button...";
      }
    });
  }

  static public Rectangle maximumWindowBounds() {
    return maxWindowBounds();
  }

  static public String programIDPlusHome() {
    return programIDPlusHome(programID(), userHomeIfNotActual());
  }

  static public String programIDPlusHome(String programID, File home) {
    return programIDPlusHome(programID, f2s(home));
  }

  static public String programIDPlusHome(String programID, String home) {
    if (home != null)
      programID += " " + quote(home);
    return programID;
  }

  static public boolean match(String pat, String s) {
    return match3(pat, s);
  }

  static public boolean match(String pat, String s, Matches matches) {
    return match3(pat, s, matches);
  }

  static public boolean match(String pat, List<String> toks, Matches matches) {
    return match3(pat, toks, matches);
  }

  static public List<JFrame> activateMyFrames() {
    final List<JFrame> l = myFrames();
    {
      swing(() -> {
        for (JFrame f : l) activateFrame(f);
      });
    }
    return l;
  }

  static public String programName() {
    return getProgramName();
  }

  static public int makeBot(String greeting) {
    return makeAndroid3(greeting).port;
  }

  static public Android3 makeBot(Android3 a) {
    makeAndroid3(a);
    return a;
  }

  static public Android3 makeBot(String greeting, Object responder) {
    Android3 a = new Android3(greeting);
    a.responder = makeResponder(responder);
    makeBot(a);
    return a;
  }

  static public Android3 makeBot() {
    return makeAndroid3(defaultBotName());
  }

  static public long conceptID(Concept c) {
    return c == null ? 0 : c.id;
  }

  static public long conceptID(Concept.Ref ref) {
    return conceptID(cDeref(ref));
  }

  static public void tableDependButtons(final JTable table, List<? extends Component> buttons) {
    for (Component c : buttons) if (c instanceof JButton) {
      final JButton b = (JButton) c;
      table.getSelectionModel().addListSelectionListener(new ListSelectionListener() {

        public void valueChanged(ListSelectionEvent e) {
          b.setEnabled(table.getSelectedRow() >= 0);
        }
      });
      b.setEnabled(table.getSelectedRow() >= 0);
    }
  }

  static public JPanel jrightAlignedLine(final Component... components) {
    return swing(new F0<RightAlignedLine>() {

      public RightAlignedLine get() {
        try {
          return new RightAlignedLine(components);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return RightAlignedLine(components);";
      }
    });
  }

  static public JPanel jrightAlignedLine(List<? extends Component> components) {
    return jrightAlignedLine(asArray(Component.class, components));
  }

  static public JPanel centerAndSouth(final Component c, final Component s) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel panel = new JPanel(new BorderLayout());
          panel.add(BorderLayout.CENTER, wrap(c));
          if (s != null)
            panel.add(BorderLayout.SOUTH, wrap(s));
          return panel;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel panel = new JPanel(new BorderLayout);\r\n    panel.add(BorderLayout.CENT...";
      }
    });
  }

  static public class tablePopupMenu_Maker {

    public List menuMakers = new ArrayList();
  }

  static public Map<JTable, tablePopupMenu_Maker> tablePopupMenu_map = newWeakHashMap();

  static public ThreadLocal<MouseEvent> tablePopupMenu_mouseEvent = new ThreadLocal();

  static public ThreadLocal<Boolean> tablePopupMenu_first = new ThreadLocal();

  static public void tablePopupMenu(final JTable table, final Object menuMaker) {
    final boolean first = isTrue(getAndClearThreadLocal(tablePopupMenu_first));
    {
      swing(() -> {
        tablePopupMenu_Maker maker = tablePopupMenu_map.get(table);
        if (maker == null) {
          tablePopupMenu_map.put(table, maker = new tablePopupMenu_Maker());
          final tablePopupMenu_Maker _maker = maker;
          table.addMouseListener(new MouseAdapter() {

            public void mousePressed(MouseEvent e) {
              displayMenu(e);
            }

            public void mouseReleased(MouseEvent e) {
              displayMenu(e);
            }

            public void displayMenu(MouseEvent e) {
              if (!e.isPopupTrigger())
                return;
              JPopupMenu menu = new JPopupMenu();
              int row = table.rowAtPoint(e.getPoint());
              if (table.getSelectedRowCount() < 2)
                table.setRowSelectionInterval(row, row);
              int modelRow = convertTableRowToModel(table, row);
              int emptyCount = menu.getComponentCount();
              tablePopupMenu_mouseEvent.set(e);
              for (Object menuMaker : _maker.menuMakers) pcallF(menuMaker, menu, modelRow);
              vmBus_send("showingPopupMenu", table, menu);
              if (menu.getComponentCount() != emptyCount)
                menu.show(e.getComponent(), e.getX(), e.getY());
            }
          });
        }
        if (first)
          maker.menuMakers.add(0, menuMaker);
        else
          maker.menuMakers.add(menuMaker);
      });
    }
  }

  static public <A extends Concept> A ccopyFields2(Concept x, A y, Iterable<String> fields) {
    if (x == null || y == null)
      return y;
    for (String field : unnull(fields)) {
      Object o = cget(x, field);
      if (o != null)
        cset(y, field, o);
    }
    return y;
  }

  static public <A, B extends A> Set<A> setMinusSet(Set<A> l, Collection<B> stuff) {
    if (empty(stuff))
      return l;
    Set<B> set = asSet(stuff);
    Set<A> l2 = similarEmptySet(l);
    for (A a : l) if (!set.contains(a))
      l2.add(a);
    return l2;
  }

  static public <A, B extends A> Set<A> setMinusSet(Collection<A> l, Collection<B> stuff) {
    return setMinusSet(asSet(l), stuff);
  }

  static public String[] conceptFields_drop = { "className", "fieldValues", "id", "created", "_modified", "refs", "backRefs", "_concepts" };

  static public Set<String> conceptFields(Concept c) {
    return setMinus(mergeSets(allNonStaticNonTransientFields(c), keys(c.fieldValues)), conceptFields_drop);
  }

  static public Set<String> conceptFields(Class<? extends Concept> c) {
    return setMinus(allNonStaticNonTransientFields(c), conceptFields_drop);
  }

  static public Object getMCOpt(String field) {
    return getOptMC(field);
  }

  static public void setMCOpt(String field, Object value) {
    setOptMC(field, value);
  }

  static public JButton renameButton(JComponent c, String name) {
    JButton b = first(childrenOfType(c, JButton.class));
    if (b != null)
      b.setText(name);
    return b;
  }

  static public JButton renameButton(JComponent c, String oldName, String newName) {
    JButton b = findButton(c, oldName);
    if (b != null)
      b.setText(newName);
    return b;
  }

  static public String showFormSubmitButtonName() {
    return "Submit";
  }

  static public boolean isUnlisted(Concept c) {
    return c != null && c.concepts() == null;
  }

  static public List<Concept.Ref> allBackRefObjects(Concept c) {
    return cloneList(c == null ? null : c.backRefs);
  }

  static public JCheckBox centerCheckBox(JCheckBox cb) {
    return setHorizontalAlignment(SwingConstants.CENTER, cb);
  }

  static public boolean isSubclass(Class a, Class b) {
    return a != null && b != null && b.isAssignableFrom(a);
  }

  static public JTextField standardTextFieldPopupMenu(final JTextField tf) {
    final WeakReference<JTextField> ref = weakRef(tf);
    componentPopupMenuItem(tf, "Copy text to clipboard", new Runnable() {

      public void run() {
        try {
          copyTextToClipboard(ref.get().getText());
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "copyTextToClipboard(ref.get().getText())";
      }
    });
    componentPopupMenuItem(tf, "Paste", new Runnable() {

      public void run() {
        try {
          ref.get().paste();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "ref.get().paste()";
      }
    });
    return tf;
  }

  static public <A extends JTextComponent> A jenableUndoRedo(A textcomp) {
    {
      swing(() -> {
        UndoManager undo = new UndoManager();
        vm_generalWeakSet("Undo Managers").add(undo);
        setMeta(textcomp, "UndoManager", undo);
        textcomp.getDocument().addUndoableEditListener(new UndoableEditListener() {

          public void undoableEditHappened(UndoableEditEvent evt) {
            undo.addEdit(evt.getEdit());
          }
        });
        textcomp.getActionMap().put("Undo", abstractAction("Undo", new Runnable() {

          public void run() {
            try {
              if (undo.canUndo())
                undo.undo();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "if (undo.canUndo()) undo.undo()";
          }
        }));
        textcomp.getActionMap().put("Redo", abstractAction("Redo", new Runnable() {

          public void run() {
            try {
              if (undo.canRedo())
                undo.redo();
            } catch (Exception __e) {
              throw rethrow(__e);
            }
          }

          public String toString() {
            return "if (undo.canRedo()) undo.redo()";
          }
        }));
        textcomp.getInputMap().put(KeyStroke.getKeyStroke("control Z"), "Undo");
        textcomp.getInputMap().put(KeyStroke.getKeyStroke("control Y"), "Redo");
      });
    }
    return textcomp;
  }

  static public JComponent unwrapScrollPane(JScrollPane sp) {
    return sp == null ? null : (JComponent) sp.getViewport().getView();
  }

  static public float toFloat(Object o) {
    if (o == null)
      return 0f;
    if (o instanceof Number)
      return ((Number) o).floatValue();
    if (o instanceof Boolean)
      return ((Boolean) o).booleanValue() ? 1f : 0f;
    throw fail("Not convertible to float: " + _getClass(o));
  }

  static public Pt parsePt(String s) {
    var l = parseInts(splitAtComma_trim(s));
    return empty(l) ? null : pt(first(l), second(l));
  }

  static public Rect parseRect(String s) {
    List<String> tok = javaTokC(s);
    assertEquals(7, l(tok));
    return new Rect(parseInt(tok.get(0)), parseInt(tok.get(2)), parseInt(tok.get(4)), parseInt(tok.get(6)));
  }

  static public String jextract(String pat, String s) {
    return jextract(pat, javaTok(s));
  }

  static public String jextract(String pat, List<String> tok) {
    List<String> tokpat = javaTok(pat);
    jfind_preprocess(tokpat);
    int i = jfind(tok, tokpat);
    if (i < 0)
      return null;
    int j = i + l(tokpat) - 2;
    return joinSubList(tok, i, j);
  }

  static public boolean imagesIdentical(BufferedImage img1, BufferedImage img2) {
    if (img1 == img2)
      return true;
    if (img1 == null)
      return img2 == null;
    if (img2 == null)
      return false;
    int w = img1.getWidth(), h = img1.getHeight();
    if (w != img2.getWidth() || h != img2.getHeight())
      return false;
    var gp1 = grabbableIntPixels_fastOrSlow(img1);
    var gp2 = grabbableIntPixels_fastOrSlow(img2);
    int[] pixels1 = gp1.data, pixels2 = gp2.data;
    int scanlineExtra1 = gp1.scanlineStride - w;
    int scanlineExtra2 = gp2.scanlineStride - w;
    int i1 = gp1.offset, i2 = gp2.offset;
    var ping = pingSource();
    for (int y = 0; y < h; y++) {
      for (int x = 0; x < w; x++) if (pixels1[i1++] != pixels2[i2++])
        return false;
      i1 += scanlineExtra1;
      i2 += scanlineExtra2;
      {
        if (ping != null)
          ping.get();
      }
    }
    return true;
  }

  static public <A> List<A> listMinusSet(Iterable<A> l, Collection<? extends A> stuff) {
    if (l == null)
      return null;
    if (empty(stuff))
      return asList(l);
    Set<? extends A> set = asSet(stuff);
    List<A> l2 = new ArrayList();
    for (A a : l) if (!set.contains(a))
      l2.add(a);
    return l2;
  }

  static public <A> List<A> listMinusSet(Iterable<A> l, Collection<A> stuff, Collection<? extends A> stuff2) {
    return listMinusSet(listMinusSet(l, stuff), stuff2);
  }

  static public String toStringOpt(Object o) {
    return o instanceof String ? ((String) o) : null;
  }

  static public <A> List<A> listIntersectSet(Collection<A> a, Collection<A> b) {
    return listSetIntersection(a, b);
  }

  static public <A> void setAddAll(Collection<A> a, Collection<A> b) {
    for (A x : b) setAdd(a, x);
  }

  static public Set similarEmptySet(Iterable m) {
    if (m instanceof TreeSet)
      return new TreeSet(((TreeSet) m).comparator());
    if (m instanceof LinkedHashSet)
      return new LinkedHashSet();
    return new HashSet();
  }

  static public Set similarEmptySet(Map m) {
    if (m instanceof TreeMap)
      return new TreeSet(((TreeMap) m).comparator());
    if (m instanceof LinkedHashMap)
      return new LinkedHashSet();
    return new HashSet();
  }

  static public <A> List<A> sortedByCalculatedFieldIC(Iterable<A> c, Object f) {
    return sortByCalculatedFieldIC(c, f);
  }

  static public <A> List<A> sortedByCalculatedFieldIC(Object f, Iterable<A> c) {
    return sortedByCalculatedFieldIC(c, f);
  }

  static public <A, B> List<A> sortedByCalculatedFieldIC(IF1<A, B> f, Iterable<A> c) {
    return sortedByCalculatedFieldIC((Object) f, c);
  }

  static public <A, B> List<A> sortedByCalculatedFieldIC(Iterable<A> c, IF1<A, B> f) {
    return sortedByCalculatedFieldIC((Object) f, c);
  }

  static public List<String> myInnerClasses_list = litlist("IVarWithNotify", null, "Meta", "JVMStackCellType", "SingleThread", "InMemoryClassLoader", "StructureStringIndenter", "DefunctClassLoader", "G22ProjectInfo", "G22ProjectActions", "ImageSurface", "IntVar", "PingSource", "IFieldIndex", "talkToThisVM_IO", "SimpleLiveValue", "HasTokenRangeWithSrc", "WeakIdentityHashMap", "JForm", "VarMatches", "SingleComponentPanel", "Best", "Rect", "Pt", "TimeoutException_Inner", "BufferedImageWithMeta", "AbstractLayoutManager", "LeftAlignedLine", "IterableIterator", "RemoteDB", "betterCIComparator_C", "MakesBufferedImage", "GazAICredentials", "JLeftArrowScriptIDE", "DeleteFilesDialog", "SynchronizedNavigableMap", "PCallPolicy", "Concepts", "RC", "Hasher", "CloseableIterableIterator", "PNGFile", "getOpt_Map", "IFieldsToList", "WeakValueMap", "IResponder", "G22ScriptResultPanel", "VarWithNotify", "structure_Data", "IVar", "Enterable", "TokenRangeWithSrc", "Matches", "ConceptWithGlobalID", "WithTimestamp", "TableWithTooltips", "ParameterizedTypeImpl", "Timestamp", "GazelleV_LeftArrowScriptParser", "ILASClassLoader", "DoubleRect", "Surface", "OnEnclosingScrollPaneResize", "RestartableCountdown", "TransientObject", "MultiSet", "RuntimeExceptionWithCustomStackTrace", "DynamicVStack", "T3", "IResourceHolder", "DynamicStack", "G22SelfTests", "mapI_if1_It", "ConceptsComboBox", "VarContext", "IPersistenceInfo", "IConceptCounter", "IntRange", "IToolTipMaker", "Average", "UnsynchronizedCompactHashSet", "TimestampRange", "G22ScriptView", "BetterLabel", "Stringifier_ToString", "componentPopupMenu_Adapter", "PicturesByMD5", "G22Label", "G22TypeDesc", "AWTOnConceptChangesByClass", "FailedRule", "IHasTokenRangeWithSrc", "RGBImage", "FileWatchService", "SmartTimerTask", "JSection", "CollapsibleLeftPanel", "SimpleCRUD_v2", "IF0WithChangeListeners", "FullChange", "G22Utils", "IntegerIterator", "CombinedStringifier", "ConceptDelete", "IStringifier", "G22AnalysisContext", "MultiSleeper", "Literal", "ListAndIndex", "ReliableSingleThread", "IMultiMap", "unstructure_Handler", "IF1_IntToInt", "JConceptsTable", "AutoComboBox", "PtInComponent", "LeftArrowScriptAutoCompleter", "ProgramScan", "Sentence2", "PersistableOKOrError", "DefaultButtonBorder", "MapI", "F0", "F1", "RGB", "IfThen", "F2", "RandomAccessAbstractList", "HasChangeListeners", "G22AutoStarter", "BoolVar", "unstructure_Receiver", "WidthAndHeightFinal", "IF0", "IHasGlobalID", "BaseXRef", "IF2", "FormLayout1", "IF1", "IVF3", "IVF1", "VirtualVar", "tablePopupMenu_Maker", "IVF2", "SynchronizedList", "Cache", "_MethodCache", "IConcept", "PingSourceCancelledException", "ScoredStringSearcher", "Func", "structure_ClassInfo", "TimedCache", "G22Utils_Base", "ISetAndGet", "LiveValue", "ToJava", "Eq", "RSyntaxTextAreaWithSearch", "LASClassDef", "SynchronizedSet", "DialogHandler", "JObjectTable", "G2Drawable", "proxy_InvocationHandler", "Pair", "ImageSurfaceMouseHandler", "MethodMaker", "Swingable", "RunnableWithExceptions", "G22Variable", "EphemeralObjectIDs", "RSTADummyParser", "Flattener", "RuleWithParams", "LineAndColumn", "ChangeTriggerable", "GrabbableIntPixels", "TransferableImage", "IBackgroundProcesses", "Sleeping", "IConceptIndex", "MetaWithChangeListeners", "ReverseChain", "Updateable", "ConceptCreate", "Seconds", "TokenRange", "SynchronizedSortedMap", "LASValueDescriptor", "MultiSetMap", "LASCompileResult", "Var", "ClassNameResolver", "Best_comparable", "G22Challenge", "Scorer", "G22GalleryImage", "ITokCondition", "GenericArrayTypeImpl", "PopupMenuMaker", "CountingOutputStream", "SynchronizedRandomAccessList", "TestCloseableIterableIterator", "AppendableChain", "RunResultWithTimestamps", "ConceptChange", "JOnDemandWithReloadButton", "CompactAbstractMap", "CompactLinkedHashSet", "ExpNot", "FixedRateTimer", "Fail", "FunctionTimings", "ResolvableLASClass", "ISetter", "DoneFlag", "test_LeftArrowScriptAutoCompleter_FunctionContainer", "IResolvableClass", "MethodOnObject", "ScannedBot", "XRef", "G22DatabasesPanel", "IntBuffer", "GazelleV_LeftArrowScript", "G22MasterStuff", "IIntPred", "SynchronizedNavigableSet", "Chain", "G22VariablesPanel", "CompactHashMap", "ThreadPool", "RunnablesReferenceQueue", "JPopDownButton", "IDialogHandler", "AWTOnConceptChanges", "Complex", "G22LeftArrowScript", "MultiMap", "IHasChangeListeners", "CriticalAction", "WeakHasherMap", "ImageSurface_PositionToolTip", "IResourceLoader", "Either", "FunctionCall", "G22ScriptMode", "G22Analyzer", "JMenuScroller", "DialogIO", "IAutoCloseableF0", "CharInToken", "G22LAScriptIDE", "G22JavaObjectVisualizer", "MRUCache", "IPartialStringifier", "ISleeper_v2", "AlphanumComparator", "JExtendedTabbedPane", "PersistableThrowable", "talkToSubBot_IO", "IDoublePt", "Scored", "NumPadFixingInputMap", "WidthAndHeight", "HasIndex", "Responder", "VF1", "VF2", "IMultiSet", "TableSearcher", "WithToolTip", "ConceptsChange", "mapI_It", "TokCondition", "RightAlignedLine", "GlobalID", "WrappedCloseable", "Unstructurer", "findCodeTokens_Matcher", "ConceptWithChangeListeners", "SynchronizedCollection", "IntSize", "tempAdd_undo", "G22MaskSize", "FieldVar", "JFastLogView_noWrap", "SimpleLeftToRightParser", "ImageSurfaceSelector", "Sentence", "Concept", "IRGBImage", "LASToByteCode", "IRef", "TreeMultiMap", "Flag", "ContentsIndexedList", "ClassMaker", "IContentsIndexedList2", "Producer", "And", "Value", "SourceTriggeredStream", "talkTo_IO", "FlexibleVarContext", "OKOrError", "FileBasedLock", "Symbol", "IMeta", "ConvertLASToJava", "UpdateTrigger", "BetterThread", "IContentsIndexedList", "LetterLayout", "BetterThreadLocal", "SynchronizedMap", "Lowest", "InstantNeverHideToolTip", "TokenIndexedList3", "ChangeTrigger", "ScoredSearcher_stable", "WrappedMap", "MinimalChain", "SynchronizedSortedSet", "JavaXPeepholeShortener", "Transformable", "IBest", "jLiveValueSection_class", "IG22LoadedDB", "ClearForAutoRun", "Exp", "Android3", "IBackgroundProcess", "VerticalCenterLayout");

  static public List<String> myInnerClasses() {
    return myInnerClasses_list;
  }

  static public String mcName() {
    return mc().getName();
  }

  static public <A> Vector<A> toVector(A[] array) {
    return new Vector(toList(array));
  }

  static public <A> Vector<A> toVector(Collection<A> l) {
    return l == null ? null : new Vector(l);
  }

  static public JPanel hgridWithSpacing(Object... _parts) {
    return swing(() -> {
      int spacing = 6;
      Object[] parts = _parts;
      if (first(parts) instanceof Integer) {
        spacing = (Integer) first(parts);
        parts = dropFirst(parts);
      }
      JPanel panel = hgrid(parts);
      GridLayout gl = (GridLayout) (panel.getLayout());
      gl.setHgap(spacing);
      gl.setVgap(spacing);
      return panel;
    });
  }

  static public <A extends Component> A jPreferWidth(int w, A c) {
    {
      swing(() -> {
        Dimension size = c.getPreferredSize();
        c.setPreferredSize(new Dimension(w, size.height));
      });
    }
    return c;
  }

  static public <A extends Component> A jPreferWidth(A c, int w) {
    return jPreferWidth(w, c);
  }

  static public JScrollPane jscroll_trackWidth(JComponent c) {
    return jscroll(scrollable_trackWidth(c));
  }

  static public JScrollPane jscroll_trackWidth(Swingable c) {
    return jscroll_trackWidth(c.visualize());
  }

  static public void containerAddFirst(Container c, Component... l) {
    if (c != null) {
      swing(() -> {
        for (int i = 0; i < l(l); i++) c.add(l[i], i);
        revalidate(c);
      });
    }
  }

  static public <A> Collection<A> addDyn(Collection<A> l, A a) {
    if (l == null)
      l = new ArrayList();
    l.add(a);
    return l;
  }

  static public <A> List<A> addDyn(List<A> l, A a) {
    if (l == null)
      l = new ArrayList();
    l.add(a);
    return l;
  }

  static public Object interceptPrintInThisThread(Object f) {
    Object old = print_byThread().get();
    print_byThread().set(f);
    return old;
  }

  static public void hideControls() {
    {
      swing(() -> {
        removeFromConsole2(showControls_controls);
        showControls_controls = null;
      });
    }
  }

  static public void addToConsole2(Component toAdd) {
    Container cp = consoleMainContainer();
    if (cp == null)
      return;
    Container cp2 = (Container) getCenterComponent(cp);
    replaceCenterComponent(cp, centerAndSouth(cp2, toAdd));
    validateFrame(cp);
  }

  static public JPanel centerAndNorth(final Component c, final Component n) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel panel = new JPanel(new BorderLayout());
          panel.add(BorderLayout.CENTER, wrap(c));
          panel.add(BorderLayout.NORTH, wrap(n));
          return panel;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel panel = new JPanel(new BorderLayout);\r\n    panel.add(BorderLayout.CENT...";
      }
    });
  }

  static public Runnable rThread(final Object f) {
    return new Runnable() {

      public void run() {
        try {
          {
            startThread(new Runnable() {

              public void run() {
                try {
                  callF(f);
                } catch (Exception __e) {
                  throw rethrow(__e);
                }
              }

              public String toString() {
                return "callF(f);";
              }
            });
          }
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "thread { callF(f); }";
      }
    };
  }

  static public JButton enableButton(JButton b) {
    return enableButton(b, true);
  }

  static public JButton enableButton(JButton b, boolean enable) {
    if (b != null) {
      swing(() -> {
        b.setEnabled(enable);
      });
    }
    return b;
  }

  static public <A extends JComponent> A withTypeWriterFont(A c) {
    return setFont(c, typeWriterFont());
  }

  static public String stackTraceToString(StackTraceElement[] st) {
    return lines(st);
  }

  static public String stackTraceToString(Throwable e) {
    return getStackTrace_noRecord(e);
  }

  static public <A> List<A> syncCloneAndClearList(Collection<A> l) {
    if (l == null)
      return emptyList();
    synchronized (collectionMutex(l)) {
      List<A> l2 = cloneList(l);
      l.clear();
      return l2;
    }
  }

  static public void setSCPComponent(SingleComponentPanel scp, Component c) {
    if (scp != null)
      scp.setComponent(c);
  }

  static public String format(String pat, Object... args) {
    return format3(pat, args);
  }

  static public String fsI_flex(String s) {
    return startsWithDigit(s) ? "#" + s : s;
  }

  static public DialogIO talkToSubBot(final long vport, final DialogIO io) {
    return talkToSubBot(String.valueOf(vport), io);
  }

  static public DialogIO talkToSubBot(final String subBot, final DialogIO io) {
    if (subBot == null)
      return io;
    return new talkToSubBot_IO(subBot, io);
  }

  static public class talkToSubBot_IO extends DialogIO {

    public String subBot;

    public DialogIO io;

    public talkToSubBot_IO(String subBot, DialogIO io) {
      this.io = io;
      this.subBot = subBot;
    }

    public boolean isStillConnected() {
      return io.isStillConnected();
    }

    public String readLineImpl() {
      return io.readLineImpl();
    }

    public boolean isLocalConnection() {
      return io.isLocalConnection();
    }

    public Socket getSocket() {
      return io.getSocket();
    }

    public void close() {
      try {
        io.close();
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void sendLine(String line) {
      io.sendLine(format3("please forward to bot *: *", subBot, line));
    }
  }

  static public DialogIO talkTo(int port) {
    return talkTo("localhost", port);
  }

  static public int talkTo_defaultTimeout = 10000;

  static public int talkTo_timeoutForReads = 0;

  static public ThreadLocal<Map<String, DialogIO>> talkTo_byThread = new ThreadLocal();

  static public DialogIO talkTo(String ip, int port) {
    try {
      String full = ip + ":" + port;
      Map<String, DialogIO> map = talkTo_byThread.get();
      if (map != null && map.containsKey(full))
        return map.get(full);
      if (isLocalhost(ip) && port == vmPort())
        return talkToThisVM();
      return new talkTo_IO(ip, port);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public class talkTo_IO extends DialogIO {

    public String ip;

    public int port;

    public Socket s;

    public Writer w;

    public BufferedReader in;

    public talkTo_IO(String ip, int port) {
      this.port = port;
      this.ip = ip;
      try {
        s = new Socket();
        try {
          if (talkTo_timeoutForReads != 0)
            s.setSoTimeout(talkTo_timeoutForReads);
          s.connect(new InetSocketAddress(ip, port), talkTo_defaultTimeout);
        } catch (Throwable e) {
          throw fail("Tried talking to " + ip + ":" + port, e);
        }
        w = new OutputStreamWriter(s.getOutputStream(), "UTF-8");
        in = new BufferedReader(new InputStreamReader(s.getInputStream(), "UTF-8"));
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public boolean isLocalConnection() {
      return s.getInetAddress().isLoopbackAddress();
    }

    public boolean isStillConnected() {
      return !(eos || s.isClosed());
    }

    public void sendLine(String line) {
      try {
        Lock __0 = lock;
        lock(__0);
        try {
          w.write(line + "\n");
          w.flush();
        } finally {
          unlock(__0);
        }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public String readLineImpl() {
      try {
        return in.readLine();
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void close() {
      try {
        if (!noClose)
          s.close();
      } catch (IOException e) {
      }
    }

    public Socket getSocket() {
      return s;
    }
  }

  static public int indexOfIgnoreCase(List<String> a, String b) {
    return indexOfIgnoreCase(a, b, 0);
  }

  static public int indexOfIgnoreCase(List<String> a, String b, int i) {
    int n = a == null ? 0 : a.size();
    for (; i < n; i++) if (eqic(a.get(i), b))
      return i;
    return -1;
  }

  static public int indexOfIgnoreCase(String[] a, String b) {
    return indexOfIgnoreCase(a, b, 0);
  }

  static public int indexOfIgnoreCase(String[] a, String b, int i) {
    int n = a == null ? 0 : a.length;
    for (; i < n; i++) if (eqic(a[i], b))
      return i;
    return -1;
  }

  static public int indexOfIgnoreCase(String a, String b) {
    return indexOfIgnoreCase_manual(a, b);
  }

  static public int indexOfIgnoreCase(String a, String b, int i) {
    return indexOfIgnoreCase_manual(a, b, i);
  }

  static public List<ProgramScan.Program> quickBotScan() {
    return ProgramScan.quickBotScan();
  }

  static public List<ProgramScan.Program> quickBotScan(int[] preferredPorts) {
    return ProgramScan.quickBotScan(preferredPorts);
  }

  static public List<ProgramScan.Program> quickBotScan(String searchPattern) {
    List<ProgramScan.Program> l = new ArrayList<ProgramScan.Program>();
    for (ProgramScan.Program p : ProgramScan.quickBotScan()) if (indexOfIgnoreCase(p.helloString, searchPattern) == 0)
      l.add(p);
    return l;
  }

  static public String firstPartOfHelloString(String s) {
    int i = s.lastIndexOf('/');
    return i < 0 ? s : rtrim(s.substring(0, i));
  }

  static public String sendToLocalBotQuietly(String bot, String text, Object... args) {
    text = format3(text, args);
    DialogIO channel = newFindBot2(bot);
    try {
      if (channel == null)
        throw fail(quote(bot) + " not found");
      try {
        channel.readLine();
        channel.sendLine(text);
        String s = channel.readLine();
        return s;
      } catch (Throwable e) {
        e.printStackTrace();
        return null;
      }
    } finally {
      _close(channel);
    }
  }

  static public String sendToLocalBotQuietly(int port, String text, Object... args) {
    text = format3(text, args);
    DialogIO channel = talkTo(port);
    try {
      try {
        channel.readLine();
        channel.sendLine(text);
        String s = channel.readLine();
        return s;
      } catch (Throwable e) {
        e.printStackTrace();
        return null;
      }
    } finally {
      _close(channel);
    }
  }

  static public Class hotwireOnce(String programID) {
    return hotwireCached(programID, false);
  }

  static public String formatSnippetID(String id) {
    return "#" + parseSnippetID(id);
  }

  static public String formatSnippetID(long id) {
    return "#" + id;
  }

  static public String getBotAddress(String bot) {
    List<ScannedBot> l = fullBotScan(bot);
    return empty(l) ? null : first(l).address;
  }

  static public Object unstructure_matchOK2OrFail(String s) {
    if (swic(s, "ok "))
      return unstructure_startingAtIndex(s, 3);
    else
      throw fail(s);
  }

  static public String sendToLocalBot(String bot, String text, Object... args) {
    text = format3(text, args);
    DialogIO channel = findBot(bot);
    try {
      if (channel == null)
        throw fail(quote(bot) + " not found");
      try {
        channel.readLine();
        print(bot + "> " + shorten(text, 80));
        channel.sendLine(text);
        String s = channel.readLine();
        print(bot + "< " + shorten(s, 80));
        return s;
      } catch (Throwable e) {
        e.printStackTrace();
        return null;
      }
    } finally {
      _close(channel);
    }
  }

  static public String sendToLocalBot(int port, String text, Object... args) {
    text = format3(text, args);
    DialogIO channel = talkTo(port);
    try {
      try {
        channel.readLine();
        print(port + "> " + shorten(text, 80));
        channel.sendLine(text);
        String s = channel.readLine();
        print(port + "< " + shorten(s, 80));
        return s;
      } catch (Throwable e) {
        e.printStackTrace();
        return null;
      }
    } finally {
      _close(channel);
    }
  }

  static public long secondsToMS(double seconds) {
    return toMS(seconds);
  }

  static public JPanel centerSection(JPanel section) {
    if (section != null) {
      swing(() -> {
        Border border = section.getBorder();
        if (border instanceof TitledBorder)
          ((TitledBorder) border).setTitleJustification(TitledBorder.CENTER);
      });
    }
    return section;
  }

  static public JPanel jRaisedSection(Component c) {
    return jRaisedSection("", c);
  }

  static public JPanel jRaisedSection(final String title, final Component c) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          Border border = BorderFactory.createBevelBorder(BevelBorder.RAISED);
          border = BorderFactory.createTitledBorder(border, title);
          JPanel panel = new SingleComponentPanel(c);
          panel.setBorder(border);
          return panel;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "Border border = BorderFactory.createBevelBorder(BevelBorder.RAISED);\r\n    bor...";
      }
    });
  }

  static public JPanel jRaisedSection(String title) {
    return jRaisedSection(title, new JPanel());
  }

  static public void deleteAllConceptsOfProgram(String progID) {
    deleteFile(getProgramFile(progID, "concepts.structure"));
    deleteFile(getProgramFile(progID, "concepts.structure.gz"));
  }

  static public void clickButton(final JButton b) {
    if (b != null) {
      swing(() -> {
        if (b.isEnabled())
          b.doClick();
      });
    }
  }

  static public ActionListener actionListener(final Object runnable) {
    return actionListener(runnable, null);
  }

  static public ActionListener actionListener(final Object runnable, final Object instanceToHold) {
    if (runnable instanceof ActionListener)
      return (ActionListener) runnable;
    final Object info = _threadInfo();
    return new java.awt.event.ActionListener() {

      public void actionPerformed(java.awt.event.ActionEvent _evt) {
        try {
          _threadInheritInfo(info);
          AutoCloseable __1 = holdInstance(instanceToHold);
          try {
            pcallF(runnable);
          } finally {
            _close(__1);
          }
        } catch (Throwable __e) {
          messageBox(__e);
        }
      }
    };
  }

  static public KeyListener enterKeyListener(final Object action) {
    return new KeyAdapter() {

      public void keyPressed(KeyEvent ke) {
        if (ke.getKeyCode() == KeyEvent.VK_ENTER)
          pcallF(action);
      }
    };
  }

  static public Runnable rCallOnSelectedListItem(final JList list, final Object action) {
    return new Runnable() {

      public void run() {
        try {
          pcallF(action, getSelectedItem(list));
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "pcallF(action, getSelectedItem(list))";
      }
    };
  }

  static public AbstractAction abstractAction(String name, final Object runnable) {
    return new AbstractAction(name) {

      public void actionPerformed(ActionEvent evt) {
        pcallF(runnable);
      }
    };
  }

  static public boolean all(Object pred, Iterable l) {
    if (l != null)
      for (Object o : l) if (!isTrue(callF(pred, o)))
        return false;
    return true;
  }

  static public <A> boolean all(Iterable<A> l, IF1<A, Boolean> f) {
    if (l != null)
      for (A a : l) if (!f.get(a))
        return false;
    return true;
  }

  static public <A> boolean all(IF1<A, Boolean> f, Iterable<A> l) {
    return all(l, f);
  }

  static public boolean all(int[] l, IIntPred f) {
    if (l != null)
      for (int i : l) if (!f.get(i))
        return false;
    return true;
  }

  static public List<Character> characters(final String s) {
    return stringAsCharacterList(s);
  }

  static public boolean isValidFileCharacter(char c) {
    return isLetterOrDigit(c) || contains(".-_ %", c);
  }

  static public JFrame handleEscapeKey(final JFrame frame) {
    KeyStroke stroke = KeyStroke.getKeyStroke(KeyEvent.VK_ESCAPE, 0);
    frame.getRootPane().registerKeyboardAction(new ActionListener() {

      public void actionPerformed(ActionEvent actionEvent) {
        frame.dispose();
      }
    }, stroke, JComponent.WHEN_IN_FOCUSED_WINDOW);
    return frame;
  }

  static public JFrame minFrameWidth(JFrame frame, int w) {
    if (frame != null && frame.getWidth() < w)
      frame.setSize(w, frame.getHeight());
    return frame;
  }

  static public JFrame minFrameWidth(int w, JFrame frame) {
    return minFrameWidth(frame, w);
  }

  static public JFrame showPackedFrame(String title, Component contents) {
    return packFrame(showFrame(title, contents));
  }

  static public JFrame showPackedFrame(Component contents) {
    return packFrame(showFrame(contents));
  }

  static public Throwable innerException2(Throwable e) {
    if (e == null)
      return null;
    while (empty(e.getMessage()) && e.getCause() != null) e = e.getCause();
    return e;
  }

  static public List<File> sortFilesByName(List<File> l) {
    sort(l, (a, b) -> stdcompare(a.getName(), b.getName()));
    return l;
  }

  static public File javaxSecretDir_dir;

  static public File javaxSecretDir() {
    return javaxSecretDir_dir != null ? javaxSecretDir_dir : new File(userHome(), "JavaX-Secret");
  }

  static public File javaxSecretDir(String sub) {
    return newFile(javaxSecretDir(), sub);
  }

  static public String yesNo2(Boolean b) {
    return eq(b, true) ? "Yes" : eq(b, false) ? "No" : "Unknown";
  }

  static public File fileInSameDir(File f, String newName) {
    return newFile(parentFile(f), newName);
  }

  static public JTabbedPane fillJTabs(final JTabbedPane tabs, final Object... _x) {
    if (tabs == null)
      return null;
    clearTabs(tabs);
    Object[] x = flattenArray2(_x);
    int idx = 0;
    if (get(x, 0) instanceof Integer) {
      idx = asInt(get(x, 0));
      x = dropFirst(x);
      if (empty(x)) {
        x = arrayrep(null, idx);
        idx = 0;
      }
    }
    int n = 0;
    for (int i = 0; i < l(x); i++) {
      ++n;
      Object o = x[i];
      if (isComponentOrSwingable(o))
        addTab(tabs, "Tab " + n, wrap(o));
      else {
        String toolTip = "";
        if (o instanceof WithToolTip) {
          toolTip = ((WithToolTip) o).toolTip();
          o = ((WithToolTip) o).get();
        }
        String name = str(or(o, "Tab " + n));
        Component c;
        if (isComponentOrSwingable(get(x, i + 1)))
          c = wrap(get(x, ++i));
        else
          c = new JPanel();
        addTabWithToolTip(tabs, name, toolTip, wrap(c));
      }
    }
    if (idx != 0)
      tabs.setSelectedIndex(min(tabs.getTabCount() - 1, idx));
    return tabs;
  }

  static public int incAtomicInt(AtomicInteger i) {
    return i.incrementAndGet();
  }

  static public int incAtomicInt(AtomicInteger i, int delta) {
    return i.addAndGet(delta);
  }

  static public double msToSeconds(long ms) {
    return toSeconds(ms);
  }

  static public double msToSeconds(double ms) {
    return toSeconds(ms);
  }

  static public long fileModificationTime(File f) {
    return f == null ? 0 : f.lastModified();
  }

  static public String programID() {
    return getProgramID();
  }

  static public String programID(Object o) {
    return getProgramID(o);
  }

  static public void closeRandomAccessFile(RandomAccessFile f) {
    if (f != null)
      try {
        f.close();
        callJavaX("dropIO", f);
      } catch (Throwable e) {
        printStackTrace(e);
      }
  }

  static public RandomAccessFile newRandomAccessFile(File path, String mode) {
    try {
      boolean forWrite = mode.indexOf('w') >= 0;
      if (forWrite)
        mkdirsForFile(path);
      RandomAccessFile f = new RandomAccessFile(path, mode);
      callJavaX("registerIO", f, path, forWrite);
      return f;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public SimpleDateFormat simpleDateFormat_local(String format) {
    SimpleDateFormat sdf = new SimpleDateFormat(format);
    sdf.setTimeZone(localTimeZone());
    return sdf;
  }

  static public double toMinutes(long ms) {
    return ms / 60000.0;
  }

  static public IterableIterator<Integer> countIterator_exclusive(int b) {
    return countIterator_exclusive(0, b);
  }

  static public IterableIterator<Integer> countIterator_exclusive(int a, int b) {
    return new IterableIterator<Integer>() {

      public int i = a;

      public boolean hasNext() {
        return i < b;
      }

      public Integer next() {
        return i++;
      }
    };
  }

  static public <A> IterableIterator<A> countIterator_exclusive(int b, IF1<Integer, A> f) {
    return countIterator_exclusive(0, b, f);
  }

  static public <A> IterableIterator<A> countIterator_exclusive(int a, int b, IF1<Integer, A> f) {
    return mapI_if1(f, countIterator_exclusive(a, b));
  }

  static public IterableIterator<Integer> countIterator_exclusive_step(final int a, final int b, final int step) {
    assertTrue("step > 0", step > 0);
    return new IterableIterator<Integer>() {

      public int i = a;

      public boolean hasNext() {
        return i < b;
      }

      public Integer next() {
        var j = i;
        i += step;
        return j;
      }
    };
  }

  static public IterableIterator<Double> countIterator_exclusive_step(double a, double b, double step) {
    assertTrue("step > 0", step > 0);
    return new IterableIterator<Double>() {

      public double i = a;

      public boolean hasNext() {
        return i < b;
      }

      public Double next() {
        var j = i;
        i += step;
        return j;
      }
    };
  }

  static public <A> IterableIterator<A> countIterator_exclusive_step(double a, double b, double step, IF1<Double, A> f) {
    return mapI_if1(f, countIterator_exclusive_step(a, b, step));
  }

  static public String concatMap_strings(Object f, Iterable l) {
    return join((List<String>) map(f, l));
  }

  static public String concatMap_strings(Object f, Object[] l) {
    return join((List<String>) map(f, l));
  }

  static public String concatMap_strings(Iterable l, Object f) {
    return concatMap_strings(f, l);
  }

  static public <A> String concatMap_strings(Iterable<A> l, IF1<A, String> f) {
    return concatMap_strings(f, l);
  }

  static public <A> String concatMap_strings(IF1<A, String> f, Iterable<A> l) {
    return concatMap_strings((Object) f, l);
  }

  static public <A> String concatMap_strings(IF1<A, String> f, A[] l) {
    return concatMap_strings((Object) f, l);
  }

  static public String optionalCurlyBrace(String s) {
    return isCurlyBraced(s) ? s : curlyBrace(s);
  }

  static public String joinWithEmptyLines(Iterable<String> l) {
    return join("\n\n", map(__97 -> rtrim(__97), l));
  }

  static public String joinWithEmptyLines(String... l) {
    return joinWithEmptyLines(asList(l));
  }

  static public String rtrim_fromLines(Collection lines) {
    StringBuilder buf = new StringBuilder();
    if (lines != null) {
      boolean first = true;
      for (Object line : lines) {
        if (first)
          first = false;
        else
          buf.append('\n');
        buf.append(str(line));
      }
    }
    return buf.toString();
  }

  static public List<String> paragraphsFromText(String text) {
    List<String> lines = toLinesTrim2(text);
    List<List<String>> paragraphs = paragraphsFromText_groupParagraphs(lines);
    return lmap(__98 -> fromLines(__98), paragraphs);
  }

  static public List<List<String>> paragraphsFromText_groupParagraphs(List<String> lines) {
    return groupNonEmpty(lines, new F1<String, Object>() {

      public Object get(String line) {
        try {
          return empty(line);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "empty(line)";
      }
    });
  }

  static public List<String> filterNempty(Collection<String> c) {
    List<String> l = new ArrayList();
    for (String x : unnull(c)) if (nempty(x))
      l.add(x);
    return l;
  }

  static public List<Integer> countIteratorToList_inclusive(int b) {
    return countIteratorToList_inclusive(0, b);
  }

  static public List<Integer> countIteratorToList_inclusive(int a, int b) {
    return asList(countIterator_inclusive(a, b));
  }

  static public <A> List<A> countIteratorToList_inclusive(int b, IF1<Integer, A> f) {
    return countIteratorToList_inclusive(0, b, f);
  }

  static public <A> List<A> countIteratorToList_inclusive(int a, int b, IF1<Integer, A> f) {
    return asList(countIterator_inclusive(a, b, f));
  }

  static public List<Integer> countIteratorToList_inclusive(int a, int b, int step) {
    return asList(countIterator_inclusive_step(a, b, step));
  }

  static public <A> List<A> countIteratorToList_inclusive(double a, double b, double step, IF1<Double, A> f) {
    return asList(countIterator_inclusive(a, b, step, f));
  }

  static public <A> List<Double> countIteratorToList_inclusive(double a, double b, double step) {
    return asList(countIterator_inclusive_step(a, b, step));
  }

  static public <A> List<A> countIteratorToList_inclusive(IF1<Double, A> f, double a, double b, double step) {
    return asList(countIterator_inclusive_step(a, b, step, f));
  }

  static public <A> List<A> countIteratorToList_inclusive(IF1<Integer, A> f, int a, int b) {
    return countIteratorToList_inclusive(f, a, b, 1);
  }

  static public <A> List<A> countIteratorToList_inclusive(IF1<Integer, A> f, int a, int b, int step) {
    return asList(countIterator_inclusive(a, b, step, f));
  }

  static public String charToString(char c) {
    return String.valueOf(c);
  }

  static public String charToString(int c) {
    return String.valueOf((char) c);
  }

  static public boolean isMenuSeparatorIndicator(Object o) {
    return eqOneOf(o, "***", "---", "===", "");
  }

  static public boolean isRunnableX(Object o) {
    if (o == null)
      return false;
    if (o instanceof String)
      return hasMethod(mc(), (String) o);
    return o instanceof Runnable || hasMethod(o, "get");
  }

  static public <A extends JComponent> A bindLiveValueListenerToComponent(A component, IHasChangeListeners lv, Runnable listener) {
    return bindHasChangeListenersToComponent(component, lv, listener);
  }

  static public boolean isCurlyBracketed(String s) {
    return isCurlyBraced(s);
  }

  static public String unCurlyBracket(String s) {
    return tok_unCurlyBracket(s);
  }

  static public int preferredWidth(Component c) {
    return c == null ? 0 : getPreferredSize(c).width;
  }

  static public AutoCloseable tempActivity(Object r) {
    return null;
  }

  static public boolean allPaused() {
    return ping_pauseAll;
  }

  static public void bindTimerToComponent(final Timer timer, JFrame f) {
    bindTimerToComponent(timer, f.getRootPane());
  }

  static public void bindTimerToComponent(final Timer timer, JComponent c) {
    if (c.isShowing())
      timer.start();
    c.addAncestorListener(new AncestorListener() {

      public void ancestorAdded(AncestorEvent event) {
        timer.start();
      }

      public void ancestorRemoved(AncestorEvent event) {
        timer.stop();
      }

      public void ancestorMoved(AncestorEvent event) {
      }
    });
  }

  static public boolean initSyntaxTextArea_numPadFix = true;

  static public void initSyntaxTextArea(RSyntaxTextArea textArea) {
    swing(() -> {
      if (initSyntaxTextArea_numPadFix)
        new NumPadFixingInputMap().replaceOn(textArea);
      textArea.setSyntaxEditingStyle(SyntaxConstants.SYNTAX_STYLE_JAVA);
      textArea.setHighlightCurrentLine(false);
      textArea.setTabSize(2);
      textArea.setTabsEmulated(true);
      textArea.setCodeFoldingEnabled(false);
      textArea.setMarkOccurrences(true);
    });
  }

  static public Window getWindow(Object o) {
    if (!(o instanceof Component))
      return null;
    return swing(() -> {
      Component c = (Component) o;
      while (c != null) {
        if (c instanceof Window)
          return ((Window) c);
        c = c.getParent();
      }
      return null;
    });
  }

  static public void centerWindowWithin(Window w, Rect r) {
    if (w != null) {
      swing(() -> {
        w.setLocation(r.x + (r.w - w.getWidth()) / 2, r.y + (r.h - w.getHeight()) / 2);
      });
    }
  }

  static public Rect screenBounds_safe(int iScreen) {
    return screenBounds(min(iScreen, screenCount() - 1));
  }

  static public int screenNrOfWindow(Window w) {
    if (w == null)
      return -1;
    Rect bounds = boundsAsRect(w);
    return indexOfMax(allScreenBounds(), screen -> area(intersectRects(bounds, screen)));
  }

  static public <A> A getFromIterator(Iterator<A> it, int idx) {
    if (idx < 0)
      return null;
    while (true) {
      ping();
      if (!it.hasNext())
        return null;
      else {
        A a = it.next();
        if (idx-- == 0)
          return a;
      }
    }
  }

  static public IterableIterator<String> linesIterator(String s) {
    return lines_iterator(s);
  }

  static public CloseableIterableIterator<String> linesIterator(File f) {
    return linesFromFile(f);
  }

  static public int stdHash(Object a, String... fields) {
    if (a == null)
      return 0;
    int hash = getClassName(a).hashCode();
    for (String field : fields) hash = boostHashCombine(hash, hashCode(getOpt(a, field)));
    return hash;
  }

  static public int roundToInt(double d) {
    return (int) Math.round(d);
  }

  static public Boolean grabbableIntPixels_succeeded;

  static public boolean grabbableIntPixels_enable = true;

  static public GrabbableIntPixels grabbableIntPixels(BufferedImage img) {
    if (img == null || !grabbableIntPixels_enable)
      return null;
    try {
      var result = grabbableIntPixels_impl(img);
      grabbableIntPixels_succeeded = result != null;
      return result;
    } catch (Throwable _e) {
      grabbableIntPixels_succeeded = false;
      throw rethrow(_e);
    }
  }

  static public GrabbableIntPixels grabbableIntPixels_impl(BufferedImage img) {
    Raster raster = img.getRaster();
    SampleModel _sampleModel = raster.getSampleModel();
    if (!(_sampleModel instanceof SinglePixelPackedSampleModel))
      return null;
    SinglePixelPackedSampleModel sampleModel = (SinglePixelPackedSampleModel) _sampleModel;
    DataBufferInt dataBuffer = (DataBufferInt) (raster.getDataBuffer());
    assertEquals(1, dataBuffer.getNumBanks());
    assertEquals(DataBuffer.TYPE_INT, dataBuffer.getDataType());
    int w = img.getWidth(), h = img.getHeight();
    int scanlineStride = sampleModel.getScanlineStride();
    int[] pixels = dataBuffer.getData();
    int offset = dataBuffer.getOffset();
    int translateX = raster.getSampleModelTranslateX();
    int translateY = raster.getSampleModelTranslateY();
    offset += -translateX - translateY * scanlineStride;
    return new GrabbableIntPixels(pixels, w, h, offset, scanlineStride);
  }

  static public Pt pt(int x, int y) {
    return new Pt(x, y);
  }

  static public Pt pt(int x) {
    return new Pt(x, x);
  }

  static public int colorToIntOpaque(Color c) {
    return c.getRGB() | 0xFF000000;
  }

  static public int numberOfChildren(final Container c) {
    return c == null ? 0 : swing(new F0<Integer>() {

      public Integer get() {
        try {
          return c.getComponentCount();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.getComponentCount();";
      }
    });
  }

  static public <A> A[] arrayOfSameType(A[] a, int n) {
    return newObjectArrayOfSameType(a, n);
  }

  static public <A> IVF1<A> toIVF1(VF1<A> f) {
    return vf1ToIVF1(f);
  }

  static public IVF1 toIVF1(Object f) {
    if (f == null)
      return null;
    if (f instanceof IVF1)
      return (IVF1) f;
    if (isString(f))
      return mainFunctionToIVF1((String) f);
    return (IVF1) a -> {
      callF(f, a);
    };
  }

  static public String getSelectedItem(JList l) {
    return (String) l.getSelectedValue();
  }

  static public String getSelectedItem(JComboBox cb) {
    return strOrNull(cb.getSelectedItem());
  }

  static public Map similarEmptyMap(Map m) {
    if (m instanceof TreeMap)
      return new TreeMap(((TreeMap) m).comparator());
    if (m instanceof LinkedHashMap)
      return new LinkedHashMap();
    return new HashMap();
  }

  static public Map similarEmptyMap(Iterable m) {
    if (m instanceof TreeSet)
      return new TreeMap(((TreeSet) m).comparator());
    if (m instanceof LinkedHashSet)
      return new LinkedHashMap();
    return new HashMap();
  }

  static public MultiMap mapMultiMapValues(Object func, MultiMap mm) {
    MultiMap m = similarEmptyMultiMap(mm);
    for (Object key : keys(mm)) for (Object value : mm.get(key)) m.put(key, callF(func, value));
    return m;
  }

  static public MultiMap mapMultiMapValues(MultiMap mm, Object func) {
    return mapMultiMapValues(func, mm);
  }

  static public <A, B, C> MultiMap<A, C> mapMultiMapValues(IF1<B, C> func, MultiMap<A, B> mm) {
    return mapMultiMapValues((Object) func, mm);
  }

  static public String escapeNewLines(String s) {
    return s == null ? null : fixNewLines(s).replace("\n", " | ");
  }

  static public String dropTrailingNewLine(String s) {
    int l = l(s);
    if (l > 0 && s.charAt(l - 1) == '\n')
      --l;
    if (l > 0 && s.charAt(l - 1) == '\r')
      --l;
    return takeFirst(s, l);
  }

  static public JTable sexyTableWithoutDrag() {
    final JTable table = tableWithToolTips();
    tablePopupMenu(table, sexyTableWithoutDrag_popupMenuMaker(table));
    table.getInputMap().put(KeyStroke.getKeyStroke(KeyEvent.VK_PAGE_UP, InputEvent.CTRL_MASK), "none");
    table.getInputMap(JComponent.WHEN_ANCESTOR_OF_FOCUSED_COMPONENT).put(KeyStroke.getKeyStroke(KeyEvent.VK_PAGE_UP, InputEvent.CTRL_MASK), "none");
    table.getInputMap(JComponent.WHEN_FOCUSED).put(KeyStroke.getKeyStroke(KeyEvent.VK_PAGE_UP, InputEvent.CTRL_MASK), "none");
    table.getInputMap(JComponent.WHEN_ANCESTOR_OF_FOCUSED_COMPONENT).put(KeyStroke.getKeyStroke(KeyEvent.VK_PAGE_UP, InputEvent.CTRL_MASK), "none");
    table.getInputMap(JComponent.WHEN_IN_FOCUSED_WINDOW).put(KeyStroke.getKeyStroke(KeyEvent.VK_PAGE_UP, InputEvent.CTRL_MASK), "none");
    ((InputMap) UIManager.get("Table.ancestorInputMap")).put(KeyStroke.getKeyStroke(KeyEvent.VK_PAGE_UP, InputEvent.CTRL_MASK), "none");
    return table;
  }

  static public VF2<JPopupMenu, Integer> sexyTableWithoutDrag_popupMenuMaker(JTable t) {
    final WeakReference<JTable> ref = weakRef(t);
    return new VF2<JPopupMenu, Integer>() {

      public void get(JPopupMenu menu, Integer row) {
        try {
          final JTable table = ref.get();
          final String item = first(getTableLine(table, row));
          MouseEvent e = tablePopupMenu_mouseEvent.get();
          final int col = table.columnAtPoint(e.getPoint());
          final Object value = table.getModel().getValueAt(row, col);
          if (value instanceof ImageIcon) {
            addMenuItem(menu, "Copy image to clipboard", new Runnable() {

              public void run() {
                try {
                  copyImageToClipboard(((ImageIcon) value).getImage());
                } catch (Exception __e) {
                  throw rethrow(__e);
                }
              }

              public String toString() {
                return "copyImageToClipboard(((ImageIcon) value).getImage());";
              }
            });
          } else {
            final String text = str(value);
            addMenuItem(menu, "Copy text to clipboard", new Runnable() {

              public void run() {
                try {
                  copyTextToClipboard(text);
                  print("Copied text to clipboard: " + quote(text));
                } catch (Exception __e) {
                  throw rethrow(__e);
                }
              }

              public String toString() {
                return "copyTextToClipboard(text);\r\n        print(\"Copied text to clipboard: \" + quot...";
              }
            });
          }
          addMenuItem(menu, "Set row height...", new Runnable() {

            public void run() {
              try {
                final JTextField tf = jTextField(table.getRowHeight());
                showTitledForm("Set row height", "Pixels", tf, new Runnable() {

                  public void run() {
                    try {
                      table.setRowHeight(parseInt(trim(tf.getText())));
                    } catch (Exception __e) {
                      throw rethrow(__e);
                    }
                  }

                  public String toString() {
                    return "table.setRowHeight(parseInt(trim(tf.getText())))";
                  }
                });
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "final JTextField tf = jTextField(table.getRowHeight());\r\n      showTitledForm...";
            }
          });
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "final JTable table = ref!;\r\n    final S item = first(getTableLine(table, row)...";
      }
    };
  }

  static public void tableEnableTextDrag(final JTable table) {
    TransferHandler th = new TransferHandler() {

      @Override
      public int getSourceActions(JComponent c) {
        return COPY;
      }

      @Override
      public Transferable createTransferable(JComponent c) {
        Object o = selectedTableCell(table);
        return new StringSelection(str(o));
      }
    };
    tableEnableDrag(table, th);
  }

  static public <A extends JComponent> A setFontSize(final float size, final A a) {
    if (a == null)
      return a;
    {
      swing(() -> {
        a.setFont(a.getFont().deriveFont((float) size));
        if (a instanceof JComboBox) {
          Component _a = ((JComboBox) a).getEditor().getEditorComponent();
          if (_a instanceof JComponent)
            ((JComponent) _a).setFont(((JComponent) _a).getFont().deriveFont((float) size));
        }
      });
    }
    return a;
  }

  static public <A extends JComponent> A setFontSize(A a, float size) {
    return setFontSize(size, a);
  }

  static public <A> A callPostProcessor(Object f, A a) {
    return f == null ? a : (A) callF(f, a);
  }

  static public <A> A callPostProcessor(IF1<A, A> f, A a) {
    return f == null ? a : f.get(a);
  }

  static public <A> List<A> reverseList(List<A> l) {
    Collections.reverse(l);
    return l;
  }

  static public void makeTableUneditable(JTable table) {
    for (int c = 0; c < table.getColumnCount(); c++) {
      Class<?> col_class = table.getColumnClass(c);
      table.setDefaultEditor(col_class, null);
    }
  }

  static public boolean showTable_searcher = true;

  static public JTable showTable(Object data) {
    return dataToTable_uneditable(data);
  }

  static public JTable showTable(String title, Object data) {
    return showTable(data, title);
  }

  static public JTable showTable(Object data, String title) {
    return dataToTable_uneditable(data, title);
  }

  static public JTable showTable(JTable table, Object data) {
    return showTable(table, data, autoFrameTitle());
  }

  static public JTable showTable(Object data, JTable table) {
    return showTable(table, data);
  }

  static public JTable showTable(JTable table, Object data, String title) {
    if (table == null)
      table = showTable(data, title);
    else {
      setFrameTitle(table, title);
      dataToTable_uneditable(table, data);
    }
    return table;
  }

  static public JTable showTable() {
    return showTable(new ArrayList<List<String>>(), new ArrayList<String>());
  }

  static public JTable showTable(String title) {
    return showTable(new ArrayList<List<String>>(), new ArrayList<String>(), title);
  }

  static public JTable showTable(List<List<String>> rows, List<String> cols) {
    return showTable(rows, cols, autoFrameTitle());
  }

  static public JTable showTable(List<List<String>> rows, List<String> cols, String title) {
    JTable tbl = sexyTable();
    fillTableWithStrings(tbl, rows, cols);
    showFrame(title, tbl);
    return tbl;
  }

  static public Pair<JTabbedPane, Integer> enclosingTab(Component _c) {
    return swing(() -> {
      Component c = _c;
      while (c != null) {
        Container p = c.getParent();
        if (p instanceof JTabbedPane)
          return pair(((JTabbedPane) p), ((JTabbedPane) p).indexOfComponent(c));
        c = c.getParent();
      }
      return null;
    });
  }

  static public String appendBracketedCount(int n, String a) {
    return appendBracketed(a, n2(n));
  }

  static public String appendBracketedCount(String a, int n) {
    return appendBracketedCount(n, a);
  }

  static public String dropTrailingBracketedCount(String s) {
    return replaceAll(s, "\\s?\\([0-9,]+\\)$", "");
  }

  static public String getTabTitle(JTabbedPane tabs, int idx) {
    return tabs == null || idx < 0 ? null : swing(() -> idx < tabs.getTabCount() ? tabs.getTitleAt(idx) : null);
  }

  static public int tableNumColumns(JTable table) {
    return table == null ? 0 : swing(new F0<Integer>() {

      public Integer get() {
        try {
          return table.getColumnCount();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return table.getColumnCount();";
      }
    });
  }

  static public <A> List<A> replaceElementsUsingMap(Iterable<A> l, final Map<A, A> map) {
    return map(l, new F1<A, A>() {

      public A get(A a) {
        try {
          return getOrKeep(map, a);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "getOrKeep(map, a)";
      }
    });
  }

  static public List<String> splitCamelCase(String s) {
    return ai_splitCamelCase(s);
  }

  static public int tableColumnViewIndex(final JTable t, final String colName) {
    return swing(new F0<Integer>() {

      public Integer get() {
        try {
          return t.convertColumnIndexToView(t.getColumn(colName).getModelIndex());
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return t.convertColumnIndexToView(t.getColumn(colName).getModelIndex());";
      }
    });
  }

  static public List<Integer> countIteratorToList(int b) {
    return countIteratorToList(0, b);
  }

  static public List<Integer> countIteratorToList(int a, int b) {
    return asList(countIterator(a, b));
  }

  static public <A> List<A> countIteratorToList(int b, IF1<Integer, A> f) {
    return countIteratorToList(0, b, f);
  }

  static public <A> List<A> countIteratorToList(int a, int b, IF1<Integer, A> f) {
    return asList(countIterator(a, b, f));
  }

  static public List<Integer> countIteratorToList(int a, int b, int step) {
    return asList(countIterator(a, b, step));
  }

  static public <A> List<A> countIteratorToList(double a, double b, double step, IF1<Double, A> f) {
    return asList(countIterator(a, b, step, f));
  }

  static public <A> List<Double> countIteratorToList(double a, double b, double step) {
    return asList(countIterator(a, b, step));
  }

  static public <A> List<A> countIteratorToList(IF1<Double, A> f, double a, double b, double step) {
    return asList(countIterator(f, a, b, step));
  }

  static public <A> List<A> countIteratorToList(IF1<Integer, A> f, int b) {
    return countIteratorToList(f, 0, b);
  }

  static public <A> List<A> countIteratorToList(IF1<Integer, A> f, int a, int b) {
    return asList(countIterator(f, a, b));
  }

  static public int tableRows(JTable table) {
    return (int) swingCall(table, "getRowCount");
  }

  static public void scrollRowToVisible(JTable t, int rowIndex) {
    int colIndex = 0;
    if (!(t.getParent() instanceof JViewport))
      return;
    JViewport viewport = (JViewport) t.getParent();
    Rectangle rect = t.getCellRect(rowIndex, colIndex, true);
    Rectangle viewRect = viewport.getViewRect();
    int x = viewRect.x;
    int y = viewRect.y;
    if (rect.x >= viewRect.x && rect.x <= (viewRect.x + viewRect.width - rect.width)) {
    } else if (rect.x < viewRect.x) {
      x = rect.x;
    } else if (rect.x > (viewRect.x + viewRect.width - rect.width)) {
      x = rect.x - viewRect.width + rect.width;
    }
    if (rect.y >= viewRect.y && rect.y <= (viewRect.y + viewRect.height - rect.height)) {
    } else if (rect.y < viewRect.y) {
      y = rect.y;
    } else if (rect.y > (viewRect.y + viewRect.height - rect.height)) {
      y = rect.y - viewRect.height + rect.height;
    }
    viewport.setViewPosition(new Point(x, y));
  }

  static public int listRowCount(JList list) {
    return list == null ? 0 : swing(new F0<Integer>() {

      public Integer get() {
        try {
          return list.getModel().getSize();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return list.getModel().getSize();";
      }
    });
  }

  static public int toInt_checked(long l) {
    if (l != (int) l)
      throw fail("Too large for int: " + l);
    return (int) l;
  }

  static public DocumentListener runnableToDocumentListener(Runnable r) {
    return new DocumentListener() {

      public void insertUpdate(DocumentEvent e) {
        pcallF(r);
      }

      public void removeUpdate(DocumentEvent e) {
        pcallF(r);
      }

      public void changedUpdate(DocumentEvent e) {
        pcallF(r);
      }
    };
  }

  static public Map<String, Object> rawTableLineAsMap(JTable tbl, int row) {
    if (row >= 0 && row < tbl.getModel().getRowCount()) {
      Map<String, Object> map = litorderedmap();
      for (int i = 0; i < tbl.getModel().getColumnCount(); i++) mapPut(map, tbl.getModel().getColumnName(i), tbl.getModel().getValueAt(row, i));
      return map;
    }
    return null;
  }

  static public ThreadLocal<Boolean> dataToTable_useStruct = threadLocalWithDefault(true);

  static public void dataToTable_dynSet(List l, int i, Object s) {
    while (i >= l.size()) l.add("");
    l.set(i, s);
  }

  static public List dataToTable_makeRow(Object x, List<String> cols) {
    if (instanceOf(x, "DynamicObject"))
      x = get_raw(x, "fieldValues");
    if (x instanceof Map) {
      Map m = (Map) x;
      List row = new ArrayList();
      for (Object _field : keysWithoutHidden(m)) {
        String field = (String) _field;
        Object value = m.get(field);
        int col = cols.indexOf(field);
        if (col < 0) {
          cols.add(field);
          col = cols.size() - 1;
        }
        dataToTable_dynSet(row, col, dataToTable_wrapValue(value));
      }
      return row;
    }
    if (x instanceof List)
      return allToString((List) x);
    return litlist(structureOrText(x));
  }

  static public Object dataToTable_wrapValue(Object o) {
    if (o instanceof BufferedImage)
      return o;
    if (o instanceof MakesBufferedImage)
      return ((MakesBufferedImage) o).getBufferedImage();
    if (o instanceof RGBImage)
      return o;
    if (o instanceof Boolean)
      return o;
    return dataToTable_useStruct.get() ? structureOrTextForUser(o) : strOrNull(o);
  }

  static public <A> ArrayList<A> litlist(A... a) {
    ArrayList l = new ArrayList(a.length);
    for (A x : a) l.add(x);
    return l;
  }

  static public String structureOrTextForUser(Object o) {
    return o == null ? "" : o instanceof String ? (String) o : structureForUser(o);
  }

  static public void fillTableWithData(final JTable table, List<List> rows, List<String> colNames) {
    fillTableWithData(table, rows, toStringArray(colNames));
  }

  static public void fillTableWithData(final JTable table, List<List> rows, String... colNames) {
    final DefaultTableModel model = fillTableWithData_makeModel(rows, colNames);
    setTableModel(table, model);
  }

  static public DefaultTableModel fillTableWithData_makeModel(List<List> rows, String... colNames) {
    Pair<Object[][], Object[]> p = fillTableWithData_makeData(rows, colNames);
    return new DefaultTableModel(p.a, p.b) {

      public Class getColumnClass(int column) {
        return or(_getClass(getValueAt(0, column)), String.class);
      }

      public boolean isCellEditable(int rowIndex, int columnIndex) {
        return false;
      }
    };
  }

  static public boolean boolOptParam(ThreadLocal<Boolean> tl) {
    return isTrue(optPar(tl));
  }

  static public boolean boolOptParam(Object[] __, String name) {
    return isTrue(optParam(__, name));
  }

  static public boolean boolOptParam(String name, Object[] __) {
    return boolOptParam(__, name);
  }

  static public boolean boolOptParam(String name, Map __) {
    return isTrue(optPar(name, __));
  }

  static public String readLineHidden() {
    try {
      if (get(javax(), "readLine_reader") == null)
        set(javax(), "readLine_reader", new BufferedReader(new InputStreamReader(System.in, "UTF-8")));
      try {
        return ((BufferedReader) get(javax(), "readLine_reader")).readLine();
      } finally {
        consoleClearInput();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public List<String> javaTokPlusPeriod(String s) {
    List<String> tok = new ArrayList<String>();
    if (s == null)
      return tok;
    int l = s.length();
    int i = 0;
    while (i < l) {
      int j = i;
      char c;
      String cc;
      while (j < l) {
        c = s.charAt(j);
        cc = s.substring(j, Math.min(j + 2, l));
        if (c == ' ' || c == '\t' || c == '\r' || c == '\n')
          ++j;
        else if (cc.equals("/*")) {
          do ++j; while (j < l && !s.substring(j, Math.min(j + 2, l)).equals("*/"));
          j = Math.min(j + 2, l);
        } else if (cc.equals("//")) {
          do ++j; while (j < l && "\r\n".indexOf(s.charAt(j)) < 0);
        } else
          break;
      }
      tok.add(s.substring(i, j));
      i = j;
      if (i >= l)
        break;
      c = s.charAt(i);
      cc = s.substring(i, Math.min(i + 2, l));
      if (c == (char) 0x201C || c == (char) 0x201D)
        c = '"';
      if (c == '\'' || c == '"') {
        char opener = c;
        ++j;
        while (j < l) {
          char _c = s.charAt(j);
          if (_c == (char) 0x201C || _c == (char) 0x201D)
            _c = '"';
          if (_c == opener) {
            ++j;
            break;
          } else if (s.charAt(j) == '\\' && j + 1 < l)
            j += 2;
          else
            ++j;
        }
        if (j - 1 >= i + 1) {
          tok.add(opener + s.substring(i + 1, j - 1) + opener);
          i = j;
          continue;
        }
      } else if (Character.isJavaIdentifierStart(c))
        do ++j; while (j < l && (Character.isJavaIdentifierPart(s.charAt(j)) || s.charAt(j) == '\''));
      else if (Character.isDigit(c))
        do ++j; while (j < l && Character.isDigit(s.charAt(j)));
      else if (cc.equals("[[")) {
        do ++j; while (j + 1 < l && !s.substring(j, j + 2).equals("]]"));
        j = Math.min(j + 2, l);
      } else if (cc.equals("[=") && i + 2 < l && s.charAt(i + 2) == '[') {
        do ++j; while (j + 2 < l && !s.substring(j, j + 3).equals("]=]"));
        j = Math.min(j + 3, l);
      } else if (s.substring(j, Math.min(j + 3, l)).equals("..."))
        j += 3;
      else if (c == '$' || c == '#')
        do ++j; while (j < l && Character.isDigit(s.charAt(j)));
      else
        ++j;
      tok.add(s.substring(i, j));
      i = j;
    }
    if ((tok.size() % 2) == 0)
      tok.add("");
    return tok;
  }

  static public boolean isNonNegativeInteger(String s) {
    int n = l(s);
    if (n == 0)
      return false;
    int i = 0;
    while (i < n) {
      char c = s.charAt(i);
      if (c < '0' || c > '9')
        return false;
      ++i;
    }
    return true;
  }

  static public <A> WeakReference<A> weakRef(A a) {
    return newWeakReference(a);
  }

  static public <A> IterableIterator<Pair<Integer, A>> iterateListWithIndex(Iterable<A> l) {
    return iterateListWithIndex(l, 0);
  }

  static public <A> IterableIterator<Pair<Integer, A>> iterateListWithIndex(Iterable<A> l, int startAt) {
    return iff(new Object() {

      public Iterator it = iterator(l);

      public int i = startAt;

      public Object get() {
        if (!it.hasNext())
          return endMarker();
        return pair(i++, it.next());
      }
    });
  }

  static public void addTabWithToolTip(JTabbedPane tabs, String title, String toolTip, Component c) {
    if (tabs == null)
      return;
    {
      swing(() -> {
        addTab(tabs, title, c);
        if (nempty(toolTip))
          tabs.setToolTipTextAt(tabCount(tabs) - 1, toolTip);
      });
    }
  }

  static public void addTabWithToolTip(JTabbedPane tabs, String title, String toolTip, Swingable c) {
    addTabWithToolTip(tabs, title, toolTip, wrap(c));
  }

  static public int countTabs(JExtendedTabbedPane tabs) {
    return tabCount(tabs);
  }

  static public int countTabs(JTabbedPane tabs) {
    return tabCount(tabs);
  }

  static public void onTabSelected(JTabbedPane tabs, Runnable r) {
    if (tabs != null) {
      swing(() -> {
        tabs.getModel().addChangeListener(changeListener(r));
      });
    }
  }

  static public void onTabSelected(JTabbedPane tabs, IVF1<Integer> r) {
    if (tabs != null && r != null)
      onTabSelected(tabs, () -> r.get(tabs.getSelectedIndex()));
  }

  static public LineAndColumn charIndexToLineAndColumn(String text, int charIndex) {
    int line = 1, col = 1;
    charIndex = min(charIndex, l(text));
    for (int i = 0; i < charIndex; i++) {
      if (text.charAt(i) == '\n') {
        ++line;
        col = 1;
      } else
        ++col;
    }
    return new LineAndColumn(line, col);
  }

  static public void setCaretPosition(final JTextComponent c, final int pos) {
    if (c != null) {
      swing(() -> {
        try {
          int _pos = max(0, min(l(c.getText()), pos));
          c.setCaretPosition(_pos);
        } catch (Throwable __e) {
          pcallFail(__e);
        }
      });
    }
  }

  static public Point toPoint(Pt p) {
    return p == null ? null : new Point(p.x, p.y);
  }

  static public int selectedTabIndex(JExtendedTabbedPane tabs) {
    return tabs == null ? -1 : swing(() -> tabs.getSelectedIndex());
  }

  static public int selectedTabIndex(JTabbedPane tabs) {
    return tabs == null ? -1 : swing(() -> tabs.getSelectedIndex());
  }

  static public Object[] asObjectArray(Collection l) {
    return toObjectArray(l);
  }

  static public File toFile(Object o) {
    if (o instanceof File)
      return (File) o;
    if (o instanceof String)
      return new File((String) o);
    throw fail("Not a file: " + o);
  }

  static public JTextArea uneditableBlackTextArea_noUndo() {
    return uneditableBlackTextArea_noUndo("");
  }

  static public JTextArea uneditableBlackTextArea_noUndo(String text) {
    return makeUneditableWithTextColor(Color.black, jTextArea_noUndo(text));
  }

  static public Font getFont(JComponent c) {
    return c == null ? null : swing(new F0<Font>() {

      public Font get() {
        try {
          return c.getFont();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.getFont();";
      }
    });
  }

  static public <A> List<A> asSynchroList(Iterable<A> l) {
    return syncList(cloneList(l));
  }

  static public Map mapKeys(Object func, Map map) {
    Map m = similarEmptyMap(map);
    for (Object key : keys(map)) m.put(callF(func, key), map.get(key));
    return m;
  }

  static public Map mapKeys(Map map, Object func) {
    return mapKeys(func, map);
  }

  static public <A, B, C> Map<B, C> mapKeys(Map<A, C> map, IF1<A, B> func) {
    return mapKeys(map, (Object) func);
  }

  static public <A, B, C> Map<B, C> mapKeys(IF1<A, B> func, Map<A, C> map) {
    return mapKeys(map, func);
  }

  static public <A, B, C> MultiMap<B, C> mapKeys(IF1<A, C> f, MultiMap<A, B> mm) {
    return mapMultiMapKeys(f, mm);
  }

  static public <A, B, C> MultiSetMap<B, C> mapKeys(IF1<A, C> f, MultiSetMap<A, B> mm) {
    return mapMultiSetMapKeys(f, mm);
  }

  static public Map<Class, List<String>> fieldsInOrder_cache = weakHashMap();

  static public List<String> fieldsInOrder(Object o) {
    return fieldsInOrder(_getClass(o));
  }

  static public List<String> fieldsInOrder(Class c) {
    if (c == null)
      return null;
    synchronized (fieldsInOrder_cache) {
      List<String> fields = fieldsInOrder_cache.get(c);
      if (fields != null)
        return fields;
      String order = toStringOpt(getOpt(c, "_fieldOrder"));
      Set<String> set = asTreeSet(allNonStaticFields(c));
      if (order == null)
        return asList(set);
      fields = splitAtSpace(order);
      setAddAll(fields, set);
      fieldsInOrder_cache.put(c, fields);
      return fields;
    }
  }

  static public <A> Collection<A> asCollection(Iterable<A> l) {
    return l == null ? null : l instanceof Collection ? ((Collection) l) : asList(l);
  }

  static public <A> List<A> listGetMulti(final List<A> l, List<Integer> indices) {
    return map(indices, new F1<Integer, A>() {

      public A get(Integer i) {
        try {
          return _get(l, i);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "_get(l, i)";
      }
    });
  }

  static public List<Integer> selectedTableRows(final JTable table) {
    return table == null ? null : swing(new F0<List<Integer>>() {

      public List<Integer> get() {
        try {
          return asList(table.getSelectedRows());
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return asList(table.getSelectedRows());";
      }
    });
  }

  static public <A> int jlist_indexOf(JList<A> list, A item) {
    return swing(new F0<Integer>() {

      public Integer get() {
        try {
          ListModel<A> model = list.getModel();
          int n = model.getSize();
          for (int i = 0; i < n; i++) if (eq(model.getElementAt(i), item))
            return i;
          return -1;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "ListModel<A> model = list.getModel();\r\n    int n = model.getSize();\r\n    for ...";
      }
    });
  }

  static public Object[] reverseParams(Object[] params) {
    int n = l(params);
    if (params == null || odd(n))
      return params;
    Object[] a = new Object[n];
    for (int i = 0; i + 1 < n; i += 2) arraycopy(params, i, a, n - i - 2, 2);
    return a;
  }

  static public void tablePopupMenuItem_top(final JTable table, final String name, final Object action) {
    tablePopupMenuFirst(table, new VF2<JPopupMenu, Integer>() {

      public void get(JPopupMenu menu, final Integer row) {
        try {
          addMenuItem(menu, name, new Runnable() {

            public void run() {
              try {
                pcallF(action, row);
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "pcallF(action, row)";
            }
          });
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "addMenuItem(menu, name, r { pcallF(action, row) });";
      }
    });
  }

  static public int showForm_leftWidth_safetyMargin = 10;

  static public int showForm_leftWidth(List<List<JComponent>> l) {
    forEachLevel2(l, x -> vmBus_send("updateLayoutNow", x));
    int minW = 0;
    for (List<JComponent> row : l) minW = max(minW, getMinimumSize(first(row)).width);
    return minW + or((Integer) vmBus_query("formSafetyMargin"), showForm_leftWidth_safetyMargin);
  }

  static public void setComponentID(Component c, String id) {
    if (c != null)
      componentID_map.put(c, id);
  }

  static public JComponent wrapForSmartAdd_jComponent(Object o) {
    return componentToJComponent(wrapForSmartAdd(o));
  }

  static public boolean isRunnable(Object o) {
    return o instanceof Runnable || hasMethod(o, "get");
  }

  static public void onEnterInAllTextFields(JComponent c, Runnable action) {
    if (action == null)
      return;
    for (Component tf : allChildren(c)) onEnterIfTextField(tf, action);
  }

  static public void onEnterInAllTextFields(List c, Runnable action) {
    for (Object o : unnull(c)) if (o instanceof JComponent)
      onEnterInAllTextFields(((JComponent) o), action);
  }

  static public <A extends JComponent> A makeBold(final A c) {
    if (c != null) {
      swing(() -> {
        c.setFont(c.getFont().deriveFont(java.awt.Font.BOLD));
      });
    }
    return c;
  }

  static public JInternalFrame getInternalFrame(final Object _o) {
    return _o == null ? null : swing(new F0<JInternalFrame>() {

      public JInternalFrame get() {
        try {
          Object o = _o;
          if (o instanceof ButtonGroup)
            o = first(buttonsInGroup((ButtonGroup) o));
          if (!(o instanceof Component))
            return null;
          Component c = (Component) o;
          while (c != null) {
            if (c instanceof JInternalFrame)
              return (JInternalFrame) c;
            c = c.getParent();
          }
          return null;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "O o = _o;\r\n    if (o instanceof ButtonGroup) o = first(buttonsInGroup((Button...";
      }
    });
  }

  static public int hashCode(Object a) {
    return a == null ? 0 : a.hashCode();
  }

  static public int hashCode(long l) {
    return Long.hashCode(l);
  }

  static public int hashCode(double d) {
    return Double.hashCode(d);
  }

  static public <A> A childOfType(Component c, Class<A> theClass) {
    return first(childrenOfType(c, theClass));
  }

  static public <A> A childOfType(Class<A> theClass, Component c) {
    return childOfType(c, theClass);
  }

  static public Rectangle rectangleUnion(Rectangle a, Rectangle b) {
    return a == null ? b : b == null ? a : a.union(b);
  }

  static public AutoCloseable tempAddConceptIndex(IConceptIndex index) {
    return tempAddConceptIndex(db_mainConcepts(), index);
  }

  static public AutoCloseable tempAddConceptIndex(Concepts cc, IConceptIndex index) {
    cc.addConceptIndex(index);
    return () -> cc.removeConceptIndex(index);
  }

  static public String assertPossibleGlobalID(String s) {
    if (!possibleGlobalID(s))
      throw fail("Not an acceptable global ID: " + s);
    return s;
  }

  static public char stringToChar(String s) {
    if (l(s) != 1)
      throw fail("bad stringToChar: " + s);
    return firstChar(s);
  }

  static public char charPlus(char a, int b) {
    return (char) (((int) a) + b);
  }

  static public char charPlus(int b, char a) {
    return charPlus(a, b);
  }

  static public int mod(int n, int m) {
    return (n % m + m) % m;
  }

  static public long mod(long n, long m) {
    return (n % m + m) % m;
  }

  static public BigInteger mod(BigInteger n, int m) {
    return n.mod(bigint(m));
  }

  static public double mod(double n, double m) {
    return (n % m + m) % m;
  }

  static public String div(Object contents, Object... params) {
    return hdiv(contents, params);
  }

  static public String div() {
    return hdiv();
  }

  static public BigInteger div(BigInteger a, BigInteger b) {
    return a.divide(b);
  }

  static public BigInteger div(BigInteger a, int b) {
    return a.divide(bigint(b));
  }

  static public Complex div(Complex a, double b) {
    return new Complex(a.re / b, a.im / b);
  }

  static public double div(double a, double b) {
    return a / b;
  }

  static public double div(double a, int b) {
    return a / b;
  }

  static public long div(long a, long b) {
    return a / b;
  }

  static public int div(int a, int b) {
    return a / b;
  }

  static public Object iteratorFromFunction_endMarker = new Object();

  static public <A> IterableIterator<A> iteratorFromFunction_withEndMarker(final Object f) {
    class IFF extends IterableIterator<A> {

      public A a;

      public boolean have, done;

      public boolean hasNext() {
        getNext();
        return !done;
      }

      public A next() {
        getNext();
        if (done)
          throw fail();
        A _a = a;
        a = null;
        have = false;
        return _a;
      }

      public void getNext() {
        if (done || have)
          return;
        Object o = callF(f);
        if (o == iteratorFromFunction_endMarker) {
          done = true;
          return;
        }
        a = (A) o;
        have = true;
      }
    }
    ;
    return new IFF();
  }

  static public <A> IterableIterator<A> iteratorFromFunction_withEndMarker(final F0 f) {
    return iteratorFromFunction_withEndMarker_f0(f);
  }

  static public Map<JFrame, Boolean> myFrames_list = weakHashMap();

  static public List<JFrame> myFrames() {
    return swing(new F0<List<JFrame>>() {

      public List<JFrame> get() {
        try {
          return keysList(myFrames_list);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return keysList(myFrames_list);";
      }
    });
  }

  static public ThreadLocal<List<Object>> holdInstance_l = new ThreadLocal();

  static public AutoCloseable holdInstance(Object o) {
    if (o == null)
      return null;
    listThreadLocalAdd(holdInstance_l, o);
    return new AutoCloseable() {

      public void close() {
        listThreadLocalPopLast(holdInstance_l);
      }
    };
  }

  static public Map<Component, String> componentID_map = weakHashMap();

  static public String componentID(Component c) {
    return c == null ? null : componentID_map.get(c);
  }

  static public JDesktopPane mainDesktopPane_value;

  static public JDesktopPane mainDesktopPane() {
    return mainDesktopPane_value;
  }

  static public JPanel showInternalFrameFormTitled(final JDesktopPane desktop, final String title, final Object... _parts) {
    JPanel panel = showForm_makePanel(true, _parts);
    showForm_makeInternalFrame(desktop, title, panel);
    return panel;
  }

  static public boolean isTrueOrYes(Object o) {
    return isTrueOpt(o) || o instanceof String && (eqicOneOf(((String) o), "1", "t", "true") || isYes(((String) o)));
  }

  static public <A, B> LinkedHashMap<A, B> asLinkedHashMap(Map<A, B> map) {
    if (map instanceof LinkedHashMap)
      return (LinkedHashMap) map;
    LinkedHashMap<A, B> m = new LinkedHashMap();
    if (map != null)
      synchronized (collectionMutex(map)) {
        m.putAll(map);
      }
    return m;
  }

  static public void ensureDBNotRunning(String name) {
    if (hasBot(name)) {
      try {
        String framesBot = dropSuffix(".", name) + " Frames";
        print("Trying to activate frames of running DB: " + framesBot);
        if (isOK(sendOpt(framesBot, "activate frames")) && isMainProgram())
          cleanKill();
      } catch (Throwable __e) {
        pcallFail(__e);
      }
      throw fail("Already running: " + name);
    }
  }

  static public void ensureDBNotRunning() {
    ensureDBNotRunning(dbBotStandardName());
  }

  static public String dbBotStandardName() {
    String home = userHome();
    String name = dbBotName(getDBProgramID());
    if (neq(home, actualUserHome()))
      name += " " + quote(home);
    return name + ".";
  }

  static volatile public Android3 dbBot_instance;

  static public Android3 dbBot() {
    return dbBot(true);
  }

  static public Android3 dbBot(boolean ensureNotRunning) {
    return dbBot(dbBotStandardName(), ensureNotRunning);
  }

  static public Android3 dbBot(String name) {
    return dbBot(name, true);
  }

  static public Android3 dbBot(String name, boolean ensureNotRunning) {
    if (ensureNotRunning)
      ensureDBNotRunning(name);
    return dbBot_instance = methodsBot2(name, assertNotNull(db_mainConcepts()), db_standardExposedMethods(), db_mainConcepts().lock);
  }

  static public void thinAProgramsBackups(String progID, boolean doIt) {
    File dir = programDir(progID);
    thinAProgramsBackups(dir, doIt);
  }

  static public void thinAProgramsBackups(File dir, boolean doIt) {
    List<File> files = new ArrayList();
    Map<File, Double> ageMap = new HashMap();
    java.util.regex.Pattern pat = regexp("^(.*)\\.backup(20\\d\\d)(\\d\\d)(\\d\\d)-(\\d\\d)(\\d*)$");
    print("Processing backups in " + dir);
    for (File f : listFilesNotDirs(dir, newFile(dir, "backups"))) {
      String s = f.getName();
      java.util.regex.Matcher matcher = pat.matcher(s);
      {
        if (!(matcher.find()))
          continue;
      }
      String originalName = matcher.group(1);
      {
        if (!(eq(originalName, "concepts.structure.gz")))
          continue;
      }
      int year = matcherInt(matcher, 2);
      int month = matcherInt(matcher, 3);
      int day = matcherInt(matcher, 4);
      int hour = matcherInt(matcher, 5);
      int minute = matcherInt(matcher, 6);
      long time = timestampFromYMDHM(year, month, day, hour, minute);
      double age = ((now() - time) / 1000.0 / 60 / 60 / 24);
      ageMap.put(f, age);
      files.add(f);
    }
    int numDeleted = 0;
    sortByMap_inPlace(files, ageMap);
    double lastAge = -1;
    for (File f : files) {
      double age = ageMap.get(f);
      if (!thinAProgramsBackups_shouldKeep(age, lastAge)) {
        ++numDeleted;
        if (doIt) {
          print("Deleting: " + f);
          f.delete();
        }
      } else {
        lastAge = age;
      }
    }
    if (numDeleted != 0)
      print((doIt ? "Deleted: " : "Would delete: ") + n(numDeleted, "file"));
  }

  static public boolean thinAProgramsBackups_shouldKeep(double age, double lastAge) {
    return defaultAgeBasedBackupRetentionStrategy_shouldKeep(age, lastAge);
  }

  static public IMeta initMetaOfJComponent(JComponent c) {
    if (c == null)
      return null;
    IMeta meta = (IMeta) (c.getClientProperty(IMeta.class));
    if (meta == null)
      c.putClientProperty(IMeta.class, meta = new Meta());
    return meta;
  }

  static public TreeSet<String> caseInsensitiveSet_treeSet() {
    return new TreeSet(caseInsensitiveComparator());
  }

  static public TreeSet<String> caseInsensitiveSet_treeSet(Collection<String> c) {
    return toCaseInsensitiveSet_treeSet(c);
  }

  static public <A, B, C> IF2<A, B, C> if0ToIF2(IF0<C> f) {
    return f == null ? null : (a, b) -> f.get();
  }

  static public List<String> codeTokensOnly(List<String> tok) {
    int n = l(tok);
    List<String> l = emptyList(n / 2);
    for (int i = 1; i < n; i += 2) l.add(tok.get(i));
    return l;
  }

  static public int rjfind(List<String> tok, String in) {
    return rjfind(tok, 1, in);
  }

  static public int rjfind(List<String> tok, int startIdx, String in) {
    return rjfind(tok, startIdx, in, null);
  }

  static public int rjfind(List<String> tok, int startIdx, int endIndex, String in) {
    return rjfind(tok, startIdx, endIndex, in, null);
  }

  static public int rjfind(List<String> tok, String in, ITokCondition condition) {
    return rjfind(tok, 1, in, (Object) condition);
  }

  static public int rjfind(List<String> tok, String in, Object condition) {
    return rjfind(tok, 1, in, condition);
  }

  static public int rjfind(List<String> tok, int startIdx, String in, Object condition) {
    List<String> tokin = javaTok(in);
    jfind_preprocess(tokin);
    return rjfind(tok, startIdx, tokin, condition);
  }

  static public int rjfind(List<String> tok, int startIdx, int endIndex, String in, Object condition) {
    List<String> tokin = javaTok(in);
    jfind_preprocess(tokin);
    return rjfind(tok, startIdx, endIndex, tokin, condition);
  }

  static public int rjfind(List<String> tok, List<String> tokin) {
    return rjfind(tok, 1, tokin);
  }

  static public int rjfind(List<String> tok, int startIdx, List<String> tokin) {
    return rjfind(tok, startIdx, tokin, null);
  }

  static public int rjfind(List<String> tok, int startIdx, List<String> tokin, Object condition) {
    return rfindCodeTokens(tok, startIdx, false, toStringArray(codeTokensOnly(tokin)), condition);
  }

  static public int rjfind(List<String> tok, int startIdx, int endIndex, List<String> tokin, Object condition) {
    return rfindCodeTokens(tok, startIdx, endIndex, false, toStringArray(codeTokensOnly(tokin)), condition);
  }

  static public void clearTokens_maybeReTok(List<String> tok, int i, int j, boolean reTok) {
    clearTokens(tok, i, j);
    if (reTok)
      reTok(tok, i, j);
  }

  static public int findEndOfBracketPart(List<String> cnc, int i) {
    int j = i + 2, level = 1;
    while (j < cnc.size()) {
      if (eqOneOf(cnc.get(j), "{", "("))
        ++level;
      else if (eqOneOf(cnc.get(j), "}", ")"))
        --level;
      if (level == 0)
        return j + 1;
      ++j;
    }
    return cnc.size();
  }

  static public String toUpper(String s) {
    return s == null ? null : s.toUpperCase();
  }

  static public List<String> toUpper(Collection<String> s) {
    return allToUpper(s);
  }

  static public void replaceTokens(List<String> tok, IntRange r, String s) {
    replaceTokens(tok, r.start, r.end, s);
  }

  static public void replaceTokens(List<String> tok, int i, int j, String s) {
    clearAllTokens(tok, i + 1, j);
    tok.set(i, s);
  }

  static public void replaceTokens(List<String> tok, String s) {
    clearAllTokens(tok, 1, l(tok));
    tok.set(0, s);
  }

  static public ITokCondition tokCondition(IIntPred condition) {
    return condition == null ? null : (tok, nIdx) -> condition.get(nIdx);
  }

  static public String[] codeTokensAsStringArray(List<String> tok) {
    int n = max(0, (l(tok) - 1) / 2);
    String[] out = new String[n];
    for (int i = 0; i < n; i++) out[i] = tok.get(i * 2 + 1);
    return out;
  }

  static public <A> List<A> replaceSublist(List<A> l, List<A> x, List<A> y) {
    if (x == null)
      return l;
    int i = 0;
    while (true) {
      i = indexOfSubList(l, x, i);
      if (i < 0)
        break;
      replaceSublist(l, i, i + l(x), y);
      i += l(y);
    }
    return l;
  }

  static public <A> List<A> replaceSublist(List<A> l, int fromIndex, int toIndex, List<A> y) {
    int n = y.size(), toIndex_new = fromIndex + n;
    if (toIndex_new < toIndex) {
      removeSubList(l, toIndex_new, toIndex);
      copyListPart(y, 0, l, fromIndex, n);
    } else {
      copyListPart(y, 0, l, fromIndex, toIndex - fromIndex);
      if (toIndex_new > toIndex)
        l.addAll(toIndex, subList(y, toIndex - fromIndex));
    }
    return l;
  }

  static public <A> List<A> replaceSublist(List<A> l, IntRange r, List<A> y) {
    return replaceSublist(l, r.start, r.end, y);
  }

  static public int tok_script_findEndOfType(List<String> tok) {
    return tok_script_findEndOfType(tok, 1);
  }

  static public int tok_script_findEndOfType(List<String> tok, int i) {
    while (licensed()) {
      if (eqGet(tok, i + 2, ".") && isIdentifier(get(tok, i + 4))) {
        i += 4;
        continue;
      }
      if (eqGet(tok, i + 2, "<") && isIdentifier(get(tok, i + 4))) {
        i = findEndOfTypeArgs(tok, i + 2) - 1;
        continue;
      }
      if (eqGet(tok, i + 2, "[")) {
        i = findEndOfBracketPart2(tok, i + 2) - 1;
        continue;
      }
      break;
    }
    return i + 2;
  }

  static public String joinSubList_cToC(List<String> l, int i, int j) {
    return joinSubList(l, i | 1, j & ~1);
  }

  static public void tokSet_withReTok(List<String> tok, int i, String t) {
    put(tok, i, t);
    reTok(tok, i, i + 1);
  }

  static public <A, B> Map<A, B> synchronizedMRUCache(int maxSize) {
    return synchroMap(new MRUCache(maxSize));
  }

  static public boolean checkTokCondition(Object condition, List<String> tok, int i) {
    if (condition instanceof TokCondition)
      return ((TokCondition) condition).get(tok, i);
    return checkCondition(condition, tok, i);
  }

  static public <A> void replaceCollection(Collection<A> dest, Collection<A> src) {
    if (dest == src)
      return;
    dest.clear();
    if (src != null)
      dest.addAll(src);
  }

  static public void replaceListPart(List l, int i, int j, List l2) {
    replaceSublist(l, i, j, l2);
  }

  static public String jlabel_textAsHTML_center(String text) {
    return "<html><div style=\"text-align: center;\">" + replace(htmlencode2(text), "\n", "<br>") + "</div></html>";
  }

  static public String renderVars_str(Object... params) {
    List<String> l = new ArrayList();
    int i = 0;
    if (odd(l(params))) {
      l.add(strOrNull(first(params)));
      ++i;
    }
    for (; i + 1 < l(params); i += 2) l.add(params[i] + "=" + params[i + 1]);
    return trim(joinWithComma(l));
  }

  static public <A> A[] makeArray(Class<A> type, int n) {
    return (A[]) Array.newInstance(type, n);
  }

  static public boolean containsNulls(Collection c) {
    return contains(c, null);
  }

  static public <A> A[] typedArray(Class<A> c, int n) {
    return (A[]) Array.newInstance(c, n);
  }

  static public int lCommonPrefix(String a, String b) {
    int i = 0, n = Math.min(l(a), l(b));
    while (i < n && a.charAt(i) == b.charAt(i)) ++i;
    return i;
  }

  static public String hopeningTag(String tag, Map params) {
    return hopeningTag(tag, mapToParams(params));
  }

  static public String hopeningTag(String tag, Object... params) {
    StringBuilder buf = new StringBuilder();
    buf.append("<" + tag);
    params = unrollParams(params);
    for (int i = 0; i < l(params); i += 2) {
      String name = (String) get(params, i);
      Object val = get(params, i + 1);
      if (nempty(name) && val != null) {
        if (eqOneOf(val, html_valueLessParam(), true))
          buf.append(" " + name);
        else {
          String s = str(val);
          if (!empty(s))
            buf.append(" " + name + "=" + htmlQuote(s));
        }
      }
    }
    buf.append(">");
    return str(buf);
  }

  static public <A> List<A> sortByCalculatedField(Iterable<A> c, final Object f) {
    List<A> l = cloneList(c);
    sort(l, new Comparator<A>() {

      public int compare(A a, A b) {
        return stdcompare(callF(f, a), callF(f, b));
      }
    });
    return l;
  }

  static public <A, B> Map<A, B> weakHashMap() {
    return newWeakHashMap();
  }

  static public String formatWithThousandsSeparator(long l) {
    return NumberFormat.getInstance(new Locale("en_US")).format(l);
  }

  static public int typeConversionScoreWithUnboxing(Class a, Class b) {
    int score = typeConversionScore(a, b);
    if (score == 0 || score == 1)
      return score;
    Class aPrim = boxedToPrimitiveType(a);
    if (aPrim != null) {
      int score2 = typeConversionScore(aPrim, b);
      if (score2 == 0)
        return 1;
      else if (score2 != Integer.MAX_VALUE)
        return score2;
    }
    return score;
  }

  static public boolean isIPv4(String s) {
    return s != null && l(javaTokC(s)) == 7 && jfind(javaTok(s), "<int>.<int>.<int>.<int>") == 1;
  }

  static public <A> A[] newObjectArrayOfSameType(A[] a) {
    return newObjectArrayOfSameType(a, a.length);
  }

  static public <A> A[] newObjectArrayOfSameType(A[] a, int n) {
    return (A[]) Array.newInstance(a.getClass().getComponentType(), n);
  }

  static public <A> A singletonOpt(Collection<A> l) {
    return l(l) == 1 ? first(l) : null;
  }

  static public <A> A singletonOpt(A[] l) {
    return l(l) == 1 ? first(l) : null;
  }

  static public IterableIterator emptyIterableIterator_instance = new IterableIterator() {

    public Object next() {
      throw fail();
    }

    public boolean hasNext() {
      return false;
    }
  };

  static public <A> IterableIterator<A> emptyIterableIterator() {
    return emptyIterableIterator_instance;
  }

  static public boolean zipFileContains_falseOnError(File inZip, String fileName) {
    try {
      return zipFileContains(inZip, fileName);
    } catch (Throwable e) {
      return false;
    }
  }

  static public File javaHome() {
    return envJavaHome();
  }

  static public File javaHome(String sub) {
    return newFile(envJavaHome(), sub);
  }

  static public File jigsawModuleFile(String moduleName) {
    return jigsawModuleFile(moduleName, javaHome());
  }

  static public File jigsawModuleFile(String moduleName, File javaHome) {
    return new File(javaHome, "jmods/" + moduleName + ".jmod");
  }

  static public Object rcall(String method, Object o, Object... args) {
    return call_withVarargs(o, method, args);
  }

  static public Runnable rPcall(Runnable r) {
    return r == null ? null : () -> {
      try {
        r.run();
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    };
  }

  static public <A> List<A> newSubList(List<A> l, int startIndex, int endIndex) {
    return cloneList(subList(l, startIndex, endIndex));
  }

  static public <A> List<A> newSubList(List<A> l, int startIndex) {
    return cloneList(subList(l, startIndex));
  }

  static public File javaxDataDir_dir;

  static public File javaxDataDir() {
    return javaxDataDir_dir != null ? javaxDataDir_dir : new File(userHome(), "JavaX-Data");
  }

  static public File javaxDataDir(String... subs) {
    return newFile(javaxDataDir(), subs);
  }

  static public String formatSnippetIDOpt(String s) {
    return isSnippetID(s) ? formatSnippetID(s) : s;
  }

  static volatile public String caseID_caseID;

  static public String caseID() {
    return caseID_caseID;
  }

  static public void caseID(String id) {
    caseID_caseID = id;
  }

  static public BufferedImage copyImage(Image img) {
    if (img == null)
      return null;
    if (img instanceof BufferedImage)
      return copyImage((BufferedImage) img);
    int w = img.getWidth(null), h = img.getHeight(null);
    BufferedImage bi = newBufferedImage(w, h);
    drawImage(bi, img);
    return bi;
  }

  static public BufferedImage copyImage(BufferedImage bi) {
    if (bi == null)
      return null;
    ColorModel cm = bi.getColorModel();
    boolean isAlphaPremultiplied = cm.isAlphaPremultiplied();
    WritableRaster raster = bi.copyData(bi.getRaster().createCompatibleWritableRaster());
    return new BufferedImage(cm, raster, isAlphaPremultiplied, null);
  }

  static public AutoCloseable tempLock(Lock lock) {
    return tempLock("", lock);
  }

  static public AutoCloseable tempLock(String purpose, Lock lock) {
    if (lock == null)
      return null;
    lock(lock);
    return new AutoCloseable() {

      public String toString() {
        return "unlock(lock);";
      }

      public void close() throws Exception {
        unlock(lock);
      }
    };
  }

  static public String singleFieldName(Class c) {
    Set<String> l = listFields(c);
    if (l(l) != 1)
      throw fail("No single field found in " + c + " (have " + n(l(l), "fields") + ")");
    return first(l);
  }

  static public <A extends Concept> List<A> findBackRefs(Collection<? extends Concept> concepts, Class<A> type) {
    IdentityHashMap<A, Boolean> l = new IdentityHashMap();
    for (Concept c : concepts) if (c.backRefs != null)
      for (Concept.Ref r : c.backRefs) if (instanceOf(r.concept(), type))
        l.put((A) r.concept(), true);
    return asList(keys(l));
  }

  static public <A extends Concept> List<A> findBackRefs(Concept c, Class<A> type) {
    IdentityHashMap<A, Boolean> l = new IdentityHashMap();
    if (c != null && c.backRefs != null)
      for (Concept.Ref r : c.backRefs) if (instanceOf(r.concept(), type))
        l.put((A) r.concept(), true);
    return asList(keys(l));
  }

  static public <A extends Concept> List<A> findBackRefs(Class<A> type, Concept c) {
    return findBackRefs(c, type);
  }

  static public Collection<Concept> findBackRefs(Concept c) {
    return findBackRefs(c, Concept.class);
  }

  static public boolean checkConceptFieldsIC(Concept x, Object... data) {
    for (int i = 0; i < l(data); i += 2) if (!eqicOrEq(cget(x, (String) data[i]), deref(data[i + 1])))
      return false;
    return true;
  }

  static public <A> List<A> sorted(Collection<A> c, Object comparator) {
    List<A> l = cloneList(c);
    sort(l, makeComparator(comparator));
    return l;
  }

  static public <A> List<A> sorted(Collection<A> c) {
    List<A> l = cloneList(c);
    sort(l);
    return l;
  }

  static public <A> List<A> sorted(Comparator<A> comparator, Collection<A> c) {
    List<A> l = cloneList(c);
    sort(l, comparator);
    return l;
  }

  static public List<String> methodsStartingWith(Object o, final String prefix) {
    return filter(allMethodNames(o), new F1<String, Object>() {

      public Object get(String s) {
        try {
          return startsWith(s, prefix);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "startsWith(s, prefix)";
      }
    });
  }

  static volatile public PersistableThrowable _handleException_lastException;

  static public List _handleException_onException = synchroList(ll((IVF1<Throwable>) (__1 -> printStackTrace2(__1))));

  static public boolean _handleException_showThreadCancellations = false;

  static public void _handleException(Throwable e) {
    _handleException_lastException = persistableThrowable(e);
    Throwable e2 = innerException(e);
    if (e2.getClass() == RuntimeException.class && eq(e2.getMessage(), "Thread cancelled.") || e2 instanceof InterruptedException) {
      if (_handleException_showThreadCancellations)
        System.out.println(getStackTrace_noRecord(e2));
      return;
    }
    for (Object f : cloneList(_handleException_onException)) try {
      callF(f, e);
    } catch (Throwable e3) {
      try {
        printStackTrace2(e3);
      } catch (Throwable e4) {
        System.out.println(getStackTrace(e3));
        System.out.println(getStackTrace(e4));
      }
    }
  }

  static public boolean isJavaXClassLoader(ClassLoader cl) {
    return startsWithOneOf(className(cl), "main$JavaXClassLoader", "x30$JavaXClassLoader");
  }

  static public void setOptAll(Object o, Map<String, Object> fields) {
    if (fields == null)
      return;
    for (String field : keys(fields)) setOpt(o, field, fields.get(field));
  }

  static public void setOptAll(Object o, Object... values) {
    warnIfOddCount(values);
    for (int i = 0; i + 1 < l(values); i += 2) {
      String field = (String) values[i];
      Object value = values[i + 1];
      setOpt(o, field, value);
    }
  }

  static public Object[] dropEntryFromParams(Object[] params, int i) {
    int n = l(params);
    if (i < 0 || i >= n)
      return params;
    if (n == 2)
      return null;
    Object[] p = new Object[n - 2];
    System.arraycopy(params, 0, p, 0, i);
    System.arraycopy(params, i + 2, p, i, n - i - 2);
    return p;
  }

  static public <A extends Concept> List<A> filterConcepts(List<A> list, Object... params) {
    if (empty(params))
      return list;
    List<A> l = new ArrayList();
    for (A x : list) if (checkConceptFields(x, params))
      l.add(x);
    return l;
  }

  static public <A> Set<A> newWeakHashSet() {
    return synchroWeakHashSet();
  }

  static public <A> A getAndClearThreadLocal(ThreadLocal<A> tl) {
    A a = tl.get();
    tl.set(null);
    return a;
  }

  static public void printStackTrace_inPossiblyCancelledThread(Throwable e) {
    AutoCloseable __1 = tempUncancelThread();
    try {
      System.out.println(getStackTrace_noRecord(e));
    } finally {
      _close(__1);
    }
  }

  static public List beforeDelegatingToThread_operations = synchroList();

  static public void beforeDelegatingToThread(Thread t) {
    for (Object op : cloneList(beforeDelegatingToThread_operations)) pcallF(op, t);
  }

  static public void beforeDelegatingToThread_do(Object f) {
    setAdd(beforeDelegatingToThread_operations, f);
  }

  static public <A, B> Either<A, B> either2(B b) {
    return new Either(2, b);
  }

  static public <A, B> Either<A, B> either1(A a) {
    return new Either(1, a);
  }

  static public List afterDelegatingToThread_operations = synchroList();

  static public void afterDelegatingToThread(Thread t) {
    for (Object op : cloneList(afterDelegatingToThread_operations)) pcallF(op, t);
  }

  static public void afterDelegatingToThread_do(Object f) {
    setAdd(afterDelegatingToThread_operations, f);
  }

  static public Map vm_generalWeakSubMap(Object name) {
    synchronized (vm_generalMap()) {
      Map map = (Map) (vm_generalMap_get(name));
      if (map == null)
        vm_generalMap_put(name, map = newWeakMap());
      return map;
    }
  }

  static public String inputStreamToString(InputStream in) {
    return utf8streamToString(in);
  }

  static public String quickSubstring(String s, int i, int j) {
    if (i >= j)
      return "";
    return s.substring(i, j);
  }

  static public Class actualMC() {
    return or((Class) realMC(), mc());
  }

  static public String dropPrefixSuffix(String prefix, String s) {
    return dropPrefixSuffix(prefix, prefix, s);
  }

  static public String dropPrefixSuffix(String prefix, String suffix, String s) {
    return dropPrefix(prefix, dropSuffix(suffix, s));
  }

  static public short shortFromBytes(byte[] a, int i) {
    return (short) (ubyteToInt(a[i]) << 8 | ubyteToInt(a[i + 1]));
  }

  static public int parseHexChar(char c) {
    if (c >= '0' && c <= '9')
      return charDiff(c, '0');
    if (c >= 'a' && c <= 'f')
      return charDiff(c, 'a') + 10;
    if (c >= 'A' && c <= 'F')
      return charDiff(c, 'A') + 10;
    return -1;
  }

  static public long longFromBytes_bigEndian(byte[] a, int i) {
    return twoIntsToLong_bigEndian(intFromBytes_bigEndian(a, i), intFromBytes_bigEndian(a, i + 4));
  }

  static public <A> TreeMap<String, A> caseInsensitiveMap() {
    return new TreeMap(caseInsensitiveComparator());
  }

  static public Object safeUnstructure(String s) {
    return unstructure(s, true);
  }

  static public Object safeUnstructure(File f) {
    return safeUnstructureGZFile(f);
  }

  static public Class getOuterClass(Class c) {
    return getOuterClass(c, null);
  }

  static public Class getOuterClass(Class c, Object classFinder) {
    try {
      String s = c.getName();
      int i = s.lastIndexOf('$');
      String name = substring(s, 0, i);
      return classForName(name, classFinder);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Class getOuterClass(Object o) {
    return getOuterClass(o, null);
  }

  static public Class getOuterClass(Object o, Object classFinder) {
    return getOuterClass(_getClass(o), classFinder);
  }

  static public HashMap<String, Field> instanceFieldsMap(Object o) {
    return (HashMap) getOpt_getFieldMap(o);
  }

  static public Map<Class, Field[]> thisDollarOneFields_cache = newDangerousWeakHashMap();

  static public Field[] thisDollarOneFields(Class c) {
    synchronized (thisDollarOneFields_cache) {
      Field[] l = thisDollarOneFields_cache.get(c);
      if (l == null)
        thisDollarOneFields_cache.put(c, l = thisDollarOneFields_uncached(c));
      return l;
    }
  }

  static public Field[] thisDollarOneFields_uncached(Class c) {
    List<Field> fields = new ArrayList();
    do {
      for (Field f : c.getDeclaredFields()) if (f.getName().startsWith("this$"))
        fields.add(makeAccessible(f));
      c = c.getSuperclass();
    } while (c != null);
    return toArray(new Field[l(fields)], fields);
  }

  static public Method fastIntern_method;

  static public String fastIntern(String s) {
    try {
      if (s == null)
        return null;
      if (fastIntern_method == null) {
        fastIntern_method = findMethodNamed(javax(), "internPerProgram");
        if (fastIntern_method == null)
          upgradeJavaXAndRestart();
      }
      return (String) fastIntern_method.invoke(null, s);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Map<Class, HashMap<String, Method>> callOpt_noArgs_cache = newDangerousWeakHashMap();

  static public Object callOpt_noArgs(Object o, String method) {
    try {
      if (o == null)
        return null;
      if (o instanceof Class)
        return callOpt(o, method);
      Class c = o.getClass();
      HashMap<String, Method> map;
      synchronized (callOpt_noArgs_cache) {
        map = callOpt_noArgs_cache.get(c);
        if (map == null)
          map = callOpt_noArgs_makeCache(c);
      }
      Method m = map.get(method);
      return m != null ? m.invoke(o) : null;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public HashMap<String, Method> callOpt_noArgs_makeCache(Class c) {
    HashMap<String, Method> map = new HashMap();
    Class _c = c;
    do {
      for (Method m : c.getDeclaredMethods()) if (m.getParameterTypes().length == 0 && !reflection_isForbiddenMethod(m)) {
        makeAccessible(m);
        String name = m.getName();
        if (!map.containsKey(name))
          map.put(name, m);
      }
      _c = _c.getSuperclass();
    } while (_c != null);
    callOpt_noArgs_cache.put(c, map);
    return map;
  }

  static public <A, B> LinkedHashMap<A, B> syncMapPut2_createLinkedHashMap(LinkedHashMap<A, B> map, A key, B value) {
    if (key != null)
      if (value != null) {
        if (map == null)
          map = new LinkedHashMap();
        synchronized (collectionMutex(map)) {
          map.put(key, value);
        }
      } else if (map != null)
        synchronized (collectionMutex(map)) {
          map.remove(key);
        }
    return map;
  }

  static public String[] match2(List<String> pat, List<String> tok) {
    int i = pat.indexOf("...");
    if (i < 0)
      return match2_match(pat, tok);
    pat = new ArrayList<String>(pat);
    pat.set(i, "*");
    while (pat.size() < tok.size()) {
      pat.add(i, "*");
      pat.add(i + 1, "");
    }
    return match2_match(pat, tok);
  }

  static public String[] match2_match(List<String> pat, List<String> tok) {
    List<String> result = new ArrayList<String>();
    if (pat.size() != tok.size()) {
      return null;
    }
    for (int i = 1; i < pat.size(); i += 2) {
      String p = pat.get(i), t = tok.get(i);
      if (eq(p, "*"))
        result.add(t);
      else if (!equalsIgnoreCase(unquote(p), unquote(t)))
        return null;
    }
    return result.toArray(new String[result.size()]);
  }

  static public Map<Class, Constructor> nuObjectWithoutArguments_cache = newDangerousWeakHashMap();

  static public Object nuObjectWithoutArguments(String className) {
    try {
      return nuObjectWithoutArguments(classForName(className));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A> A nuObjectWithoutArguments(Class<A> c) {
    try {
      if (nuObjectWithoutArguments_cache == null)
        return (A) nuObjectWithoutArguments_findConstructor(c).newInstance();
      Constructor m = nuObjectWithoutArguments_cache.get(c);
      if (m == null)
        nuObjectWithoutArguments_cache.put(c, m = nuObjectWithoutArguments_findConstructor(c));
      return (A) m.newInstance();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Constructor nuObjectWithoutArguments_findConstructor(Class c) {
    for (Constructor m : getDeclaredConstructors_cached(c)) if (empty(m.getParameterTypes())) {
      makeAccessible(m);
      return m;
    }
    throw fail("No default constructor found in " + c.getName());
  }

  static public <A> A liftLast(List<A> l) {
    if (empty(l))
      return null;
    int i = l(l) - 1;
    A a = l.get(i);
    l.remove(i);
    return a;
  }

  static public <A> List<A> liftLast(int n, List<A> l) {
    int i = l(l) - n;
    List<A> part = cloneSubList(l, i);
    removeSubList(l, i);
    return part;
  }

  static public <A> AutoCloseable tempSetThreadLocalIfNecessary(ThreadLocal<A> tl, A a) {
    if (tl == null)
      return null;
    A prev = tl.get();
    if (eq(prev, a))
      return null;
    tl.set(a);
    return new AutoCloseable() {

      public String toString() {
        return "tl.set(prev);";
      }

      public void close() throws Exception {
        tl.set(prev);
      }
    };
  }

  static public <A> AutoCloseable tempSetThreadLocalIfNecessary(BetterThreadLocal<A> tl, A a) {
    if (tl == null)
      return null;
    A prev = tl.get();
    if (eq(prev, a))
      return null;
    tl.set(a);
    return new AutoCloseable() {

      public String toString() {
        return "tl.set(prev);";
      }

      public void close() throws Exception {
        tl.set(prev);
      }
    };
  }

  static public String stringIfTrue(boolean b, String s) {
    return b ? s : "";
  }

  static public boolean isBoxedType(Class type) {
    return type == Boolean.class || type == Integer.class || type == Long.class || type == Float.class || type == Short.class || type == Character.class || type == Byte.class || type == Double.class;
  }

  static public boolean hasThisDollarFields(Object o) {
    Matches m = new Matches();
    for (var f : allFieldObjects_dontMakeAccessible(o)) if (startsWith(f.getName(), "this$", m) && isInteger(m.rest()))
      return true;
    return false;
  }

  static public boolean hasSingleArgumentConstructor(Class c) {
    if (c != null)
      for (Constructor m : getDeclaredConstructors_cached(c)) if (l(m.getParameterTypes()) == 1)
        return true;
    return false;
  }

  static public byte[] boolArrayToBytes(boolean[] a) {
    byte[] b = new byte[(l(a) + 7) / 8];
    for (int i = 0; i < l(a); i++) if (a[i])
      b[i / 8] |= 1 << (i & 7);
    return b;
  }

  static public byte[] byteArrayFromShorts_bigEndian(short[] a) {
    return byteArrayFromShorts_bigEndian(a, 0, l(a));
  }

  static public byte[] byteArrayFromShorts_bigEndian(short[] a, int from, int to) {
    byte[] b = new byte[(to - from) * 2];
    for (int i = 0; i < a.length; i++) {
      short s = a[from + i];
      b[i * 2] = (byte) (s >> 8);
      b[i * 2 + 1] = (byte) s;
    }
    return b;
  }

  static public byte[] byteArrayFromLongs_bigEndian(long[] a) {
    return byteArrayFromLongs_bigEndian(a, 0, l(a));
  }

  static public byte[] byteArrayFromLongs_bigEndian(long[] a, int from, int to) {
    byte[] b = new byte[(to - from) * 8];
    for (int i = 0; i < a.length; i++) {
      long s = a[from + i];
      b[i * 8] = (byte) (s >> 56);
      b[i * 8 + 1] = (byte) (s >> 48);
      b[i * 8 + 2] = (byte) (s >> 40);
      b[i * 8 + 3] = (byte) (s >> 32);
      b[i * 8 + 4] = (byte) (s >> 24);
      b[i * 8 + 5] = (byte) (s >> 16);
      b[i * 8 + 6] = (byte) (s >> 8);
      b[i * 8 + 7] = (byte) s;
    }
    return b;
  }

  static public <A, B, C> List<Pair<A, C>> mapPairB(final Object f, Iterable<Pair<A, B>> l) {
    return map(l, new F1<Pair<A, B>, Pair<A, C>>() {

      public Pair<A, C> get(Pair<A, B> p) {
        try {
          return p == null ? null : pair(p.a, (C) callF(f, p.b));
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "p == null ? null : pair(p.a, (C) callF(f, p.b))";
      }
    });
  }

  static public <A, B, C> List<Pair<A, C>> mapPairB(final F1<B, C> f, Iterable<Pair<A, B>> l) {
    return mapPairB((Object) f, l);
  }

  static public <A, B, C> List<Pair<A, C>> mapPairB(final IF1<B, C> f, Iterable<Pair<A, B>> l) {
    return mapPairB((Object) f, l);
  }

  static public <A, B, C> List<Pair<A, C>> mapPairB(Iterable<Pair<A, B>> l, IF1<B, C> f) {
    return mapPairB((Object) f, l);
  }

  static public <A, B, C> Pair<A, C> mapPairB(IF1<B, C> f, Pair<A, B> p) {
    return pairMapB(f, p);
  }

  static public <A, B, C> Pair<A, C> mapPairB(Pair<A, B> p, IF1<B, C> f) {
    return pairMapB(f, p);
  }

  static public <A, B> Map<B, A> mapToKey(Iterable<A> l, IF1<A, B> f) {
    return mapToKeys(l, f);
  }

  static public <A, B> Map<B, A> mapToKey(IF1<A, B> f, Iterable<A> l) {
    return mapToKeys(f, l);
  }

  static public Map<Class, List<String>> getFieldOrder_cache = weakMap();

  static public List<String> getFieldOrder(Object o) {
    return getFieldOrder(_getClass(o));
  }

  static public List<String> getFieldOrder(Class c) {
    if (c == null)
      return null;
    return getOrCreate(getFieldOrder_cache, c, () -> splitAtSpace(toStringOpt(getOpt(c, "_fieldOrder"))));
  }

  static public JScrollPane withoutViewportBorder(JScrollPane sp) {
    if (sp != null) {
      swing(() -> {
        sp.setViewportBorder(null);
      });
    }
    return sp;
  }

  static public File loadBinarySnippet(String snippetID) {
    IResourceLoader rl = vm_getResourceLoader();
    if (rl != null)
      return rl.loadLibrary(snippetID);
    return loadBinarySnippet_noResourceLoader(snippetID);
  }

  static public File loadBinarySnippet_noResourceLoader(String snippetID) {
    try {
      long id = parseSnippetID(snippetID);
      if (isImageServerSnippet(id))
        return loadImageAsFile(snippetID);
      File f = DiskSnippetCache_getLibrary(id);
      if (fileSize(f) == 0)
        f = loadDataSnippetToFile_noResourceLoader(snippetID);
      return f;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public boolean loadBufferedImageFixingGIFs_debug = false;

  static public ThreadLocal<Var<byte[]>> loadBufferedImageFixingGIFs_output = new ThreadLocal();

  static public Image loadBufferedImageFixingGIFs(File file) {
    try {
      if (!file.exists())
        return null;
      if (!isGIF(file))
        return ImageIO.read(file);
      if (loadBufferedImageFixingGIFs_debug)
        print("loadBufferedImageFixingGIFs" + ": checking gif");
      ImageReader reader = ImageIO.getImageReadersByFormatName("gif").next();
      reader.setInput(ImageIO.createImageInputStream(file));
      int numImages = reader.getNumImages(true);
      IIOMetadata imageMetaData = reader.getImageMetadata(0);
      String metaFormatName = imageMetaData.getNativeMetadataFormatName();
      boolean foundBug = false;
      for (int i = 0; i < numImages && !foundBug; i++) {
        IIOMetadataNode root = (IIOMetadataNode) reader.getImageMetadata(i).getAsTree(metaFormatName);
        int nNodes = root.getLength();
        for (int j = 0; j < nNodes; j++) {
          org.w3c.dom.Node node = root.item(j);
          if (node.getNodeName().equalsIgnoreCase("GraphicControlExtension")) {
            String delay = ((IIOMetadataNode) node).getAttribute("delayTime");
            if (Integer.parseInt(delay) == 0) {
              foundBug = true;
            }
            break;
          }
        }
      }
      if (loadBufferedImageFixingGIFs_debug)
        print("loadBufferedImageFixingGIFs" + ": " + f2s(file) + " foundBug=" + foundBug);
      Image image;
      if (!foundBug) {
        image = Toolkit.getDefaultToolkit().createImage(f2s(file));
      } else {
        ByteArrayOutputStream baoStream = new ByteArrayOutputStream();
        {
          ImageOutputStream ios = ImageIO.createImageOutputStream(baoStream);
          try {
            ImageWriter writer = ImageIO.getImageWriter(reader);
            writer.setOutput(ios);
            writer.prepareWriteSequence(null);
            for (int i = 0; i < numImages; i++) {
              BufferedImage frameIn = reader.read(i);
              IIOMetadataNode root = (IIOMetadataNode) reader.getImageMetadata(i).getAsTree(metaFormatName);
              int nNodes = root.getLength();
              for (int j = 0; j < nNodes; j++) {
                org.w3c.dom.Node node = root.item(j);
                if (node.getNodeName().equalsIgnoreCase("GraphicControlExtension")) {
                  String delay = ((IIOMetadataNode) node).getAttribute("delayTime");
                  if (Integer.parseInt(delay) == 0) {
                    ((IIOMetadataNode) node).setAttribute("delayTime", "10");
                  }
                  break;
                }
              }
              IIOMetadata metadata = writer.getDefaultImageMetadata(new ImageTypeSpecifier(frameIn), null);
              metadata.setFromTree(metadata.getNativeMetadataFormatName(), root);
              IIOImage frameOut = new IIOImage(frameIn, null, metadata);
              writer.writeToSequence(frameOut, writer.getDefaultWriteParam());
            }
            writer.endWriteSequence();
          } finally {
            _close(ios);
          }
        }
        byte[] data = baoStream.toByteArray();
        setVar(loadBufferedImageFixingGIFs_output.get(), data);
        if (loadBufferedImageFixingGIFs_debug)
          print("Data size: " + l(data));
        image = Toolkit.getDefaultToolkit().createImage(data);
      }
      return image;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public File loadLibrary(String snippetID) {
    return loadBinarySnippet(snippetID);
  }

  static public boolean currentProgramHasLibrary(File f) {
    return contains(myLibraryFiles(), f);
  }

  static public String errorIconID() {
    return "#1101390";
  }

  static public JComponent showErrorFrame(Throwable e) {
    if (e == null)
      return null;
    return showTextWordWrapped("Error", renderStackTrace((e)));
  }

  static public JLabel jlabel_noAutoToolTip() {
    return jlabel_noAutoToolTip(" ");
  }

  static public JLabel jlabel_noAutoToolTip(String text) {
    var lbl = swingConstruct(BetterLabel.class, text);
    lbl.autoToolTip = false;
    return lbl;
  }

  static public void logQuotedWithTime(String s) {
    logQuotedWithTime(standardLogFile(), s);
  }

  static public void logQuotedWithTime(File logFile, String s) {
    logQuoted(logFile, logQuotedWithTime_format(s));
  }

  static public void logQuotedWithTime(String logFile, String s) {
    logQuoted(logFile, logQuotedWithTime_format(s));
  }

  static public String logQuotedWithTime_format(String s) {
    return (now()) + " " + s;
  }

  static public <A extends JComponent> A onClick(A c, IVF1<MouseEvent> runnable) {
    return onClick(c, (Object) runnable);
  }

  static public <A extends JComponent> A onClick(A c, Object runnable) {
    if (c != null) {
      swing(() -> {
        c.addMouseListener(new MouseAdapter() {

          public void mouseClicked(MouseEvent e) {
            callF(runnable, e);
          }
        });
      });
    }
    return c;
  }

  static public void onClick(JButton btn, Object runnable) {
    onEnter(btn, runnable);
  }

  static public Font typeWriterFont() {
    return typeWriterFont(iround(14 * getSwingFontScale()));
  }

  static public Font typeWriterFont(int size) {
    return new Font(localCourierFontName(), Font.PLAIN, size);
  }

  static public <A extends JComponent> A typeWriterFont(A c) {
    return withTypeWriterFont(c);
  }

  static public Rect preferredScreenBounds() {
    return screenBounds_safe(preferredScreen());
  }

  static public boolean vmBus_anyFalse(String msg, Object... args) {
    return contains(vmBus_queryAll(msg, args), false);
  }

  static public String hms() {
    return hms(now());
  }

  static public String hms(long time) {
    return new SimpleDateFormat("HHmmss").format(time);
  }

  static public List<String> listZipFile(File inZip) {
    try {
      ZipFile zipFile = new ZipFile(inZip);
      try {
        return listZipFile(zipFile);
      } finally {
        zipFile.close();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public List<String> listZipFile(ZipFile zipFile) {
    try {
      List<String> list = new ArrayList();
      Enumeration entries = zipFile.entries();
      while (entries.hasMoreElements()) {
        ZipEntry entry = (ZipEntry) entries.nextElement();
        if (!entry.isDirectory())
          list.add(entry.getName());
      }
      return list;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public List<String> listZipFile(String name) {
    if (isSnippetID(name))
      return listZipFile(loadLibrary(name));
    return listZipFile(getProgramFile(name));
  }

  static public String regexReplace(String s, String pat, Object f) {
    Matcher m = Pattern.compile(pat).matcher(s);
    return regexReplace(m, f);
  }

  static public String regexReplace(String s, String pat, String replacement) {
    return regexpReplace_direct(s, pat, replacement);
  }

  static public String regexReplace(Matcher m, Object f) {
    StringBuffer buf = new StringBuffer();
    while (m.find()) m.appendReplacement(buf, m.quoteReplacement(str(callF(f, m))));
    m.appendTail(buf);
    return str(buf);
  }

  static public String regexReplace(String s, String pat, IF1<Matcher, String> f) {
    return regexReplace(s, pat, (Object) f);
  }

  static public String regexpReplace_direct(String s, String pat, String replacement) {
    Matcher m = regexp(pat, s);
    return regexpReplace_direct(m, replacement);
  }

  static public String regexpReplace_direct(Matcher m, String replacement) {
    StringBuffer buf = new StringBuffer();
    while (m.find()) m.appendReplacement(buf, replacement);
    m.appendTail(buf);
    return str(buf);
  }

  static public Class primitiveToBoxedTypeOpt(Class type) {
    return or(primitiveToBoxedType(type), type);
  }

  static public int withLeftMargin_defaultWidth = 6;

  static public JPanel withLeftMargin(Swingable c) {
    return withLeftMargin(toComponent(c));
  }

  static public JPanel withLeftMargin(Component c) {
    return withLeftMargin(withLeftMargin_defaultWidth, c);
  }

  static public JPanel withLeftMargin(int margin, Swingable c) {
    return withLeftMargin(margin, toComponent(c));
  }

  static public JPanel withLeftMargin(int margin, Component c) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel p = new JPanel(new BorderLayout());
          p.setBorder(BorderFactory.createEmptyBorder(0, margin, 0, 0));
          p.add(c);
          return p;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel p = new JPanel(new BorderLayout);\r\n    p.setBorder(BorderFactory.creat...";
      }
    });
  }

  static public x30_pkg.x30_util.BetterThreadLocal<WeakReference> dm_current_generic_tl;

  static public x30_pkg.x30_util.BetterThreadLocal<WeakReference> dm_current_generic_tl() {
    if (dm_current_generic_tl == null)
      dm_current_generic_tl = vm_generalMap_getOrCreate("currentModule", () -> new x30_pkg.x30_util.BetterThreadLocal());
    return dm_current_generic_tl;
  }

  static public Object dm_getService(String serviceName) {
    return empty(serviceName) ? null : dm_getModule(vmBus_query(assertIdentifier(serviceName)));
  }

  static public boolean isStringOrIntOrLong(Object o) {
    return o instanceof String || o instanceof Integer || o instanceof Long;
  }

  static public Object dm_getStemByID(Object id) {
    return dm_callOS("getModuleByID", str(id));
  }

  static public Object dm_getModule(Object moduleOrID) {
    if (moduleOrID == null || eq(moduleOrID, ""))
      return null;
    if (isString(moduleOrID) && isIdentifier(((String) moduleOrID)))
      return dm_getService(((String) moduleOrID));
    if (isStringOrIntOrLong(moduleOrID))
      return dm_callOS("getDynModuleByID", str(moduleOrID));
    return dm_resolveModule(moduleOrID);
  }

  static public String getComputerID_quick() {
    return computerID();
  }

  public static File mkdirsFor(File file) {
    return mkdirsForFile(file);
  }

  static public void copyStreamWithPrints(InputStream in, OutputStream out, String pat) {
    try {
      byte[] buf = new byte[65536];
      int total = 0;
      while (true) {
        int n = in.read(buf);
        if (n <= 0)
          return;
        out.write(buf, 0, n);
        if ((total + n) / 100000 > total / 100000)
          print(pat.replace("{*}", str(roundDownTo(100000, total))));
        total += n;
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public File renameFile_assertTrue(File a, File b) {
    try {
      if (a.equals(b))
        return b;
      if (!a.exists())
        throw fail("Source file not found: " + f2s(a));
      if (b.exists())
        throw fail("Target file exists: " + f2s(b));
      mkdirsForFile(b);
      if (!a.renameTo(b))
        throw fail("Can't rename " + f2s(a) + " to " + f2s(b));
      return b;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public byte[] bytesFromHex(String s) {
    return hexToBytes(s);
  }

  static public boolean byteArrayStartsWith(byte[] a, byte[] b) {
    if (a == null || b == null)
      return false;
    if (a.length < b.length)
      return false;
    for (int i = 0; i < b.length; i++) if (a[i] != b[i])
      return false;
    return true;
  }

  static public byte[] loadBeginningOfBinaryFile(File file, int maxBytes) {
    return loadBinaryFilePart(file, 0, maxBytes);
  }

  static public String renderFileInfo(File f) {
    return f == null ? "-" : f2s(f) + " " + (f.isFile() ? "(file, " + n2(fileSize(f)) + " bytes)" : f.isDirectory() ? "(dir)" : "(not found)");
  }

  static public Charset utf8charset_cache;

  static public Charset utf8charset() {
    if (utf8charset_cache == null)
      utf8charset_cache = utf8charset_load();
    return utf8charset_cache;
  }

  static public Charset utf8charset_load() {
    return Charset.forName("UTF-8");
  }

  static public Object costCenter() {
    return mc();
  }

  static public String selectedItem(JList l) {
    return getSelectedItem(l);
  }

  static public String selectedItem(JComboBox cb) {
    return getSelectedItem(cb);
  }

  static public void setMetaAndVerify(Object o, Object key, Object value) {
    setMeta(o, key, value);
    assertSame(() -> "setMeta failed (class: " + className(o) + ", key: " + key + ")", value, metaGet(o, key));
  }

  static public void setMetaAndVerify(IMeta o, Object key, Object value) {
    setMeta(o, key, value);
    assertSame(() -> "setMeta failed (class: " + className(o) + ", key: " + key + ")", value, metaGet(o, key));
  }

  static public class jLiveValueSection_class extends SingleComponentPanel {

    public LiveValue<?> liveValue;

    public String getTitle() {
      return strOrEmpty(liveValue.get());
    }

    public jLiveValueSection_class(LiveValue<?> lv, Component c) {
      super(c);
      bindLiveValueListenerToComponent(this, liveValue = lv, new Runnable() {

        public void run() {
          try {
            swingLater(new Runnable() {

              public void run() {
                try {
                  setBorder(BorderFactory.createTitledBorder(BorderFactory.createBevelBorder(BevelBorder.LOWERED), getTitle()));
                  revalidate();
                } catch (Exception __e) {
                  throw rethrow(__e);
                }
              }

              public String toString() {
                return "setBorder(BorderFactory.createTitledBorder(\r\n        BorderFactory.createBeve...";
              }
            });
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "swingLater(r {\r\n      setBorder(BorderFactory.createTitledBorder(\r\n        Bo...";
        }
      });
    }
  }

  static public JPanel jLiveValueSection(LiveValue<?> lv, Component c) {
    return swingNu(jLiveValueSection_class.class, lv, c);
  }

  static public <A> List<A> childrenOfType(Component c, Class<A> theClass) {
    List<A> l = new ArrayList();
    scanForComponents(c, theClass, l);
    return l;
  }

  static public <A> List<A> childrenOfType(Class<A> theClass, Component c) {
    return childrenOfType(c, theClass);
  }

  static public void onFirstResize(Component c, Object r) {
    onFirstResize(c, toRunnable(r));
  }

  static public void onFirstResize(Component c, Runnable r) {
    if (c != null && r != null) {
      swing(() -> {
        c.addComponentListener(new ComponentAdapter() {

          public void componentResized(ComponentEvent e) {
            c.removeComponentListener(this);
            pcallF(r);
          }
        });
      });
    }
  }

  static public Matcher regexpIC(Pattern pat, String s) {
    return pat.matcher(unnull(s));
  }

  static public Matcher regexpIC(String pat, String s) {
    return compileRegexpIC(pat).matcher(unnull(s));
  }

  static public Pattern regexpIC(String pat) {
    return compileRegexpIC(pat);
  }

  static public List<String> regexpGetGroups(Matcher matcher) {
    int n = matcher.groupCount();
    List<String> l = new ArrayList();
    for (int i = 1; i <= n; i++) l.add(matcher.group(i));
    return l;
  }

  static public List<String> regexpGetGroups(String pat, String s) {
    Matcher m = regexpMatcher(pat, s);
    if (m.find())
      return regexpGetGroups(m);
    return null;
  }

  static public char charAt(String s, int i) {
    return s != null && i >= 0 && i < s.length() ? s.charAt(i) : '\0';
  }

  static public boolean _inCore() {
    return false;
  }

  static public List hotwire_copyOver_after = synchroList();

  static public void hotwire_copyOver(Class c) {
    for (String field : ll("print_log", "print_silent", "androidContext", "_userHome")) setOptIfNotNull(c, field, getOpt(mc(), field));
    setOptIfNotNull(c, "mainBot", getMainBot());
    setOpt(c, "creator_class", new WeakReference(mc()));
    pcallFAll(hotwire_copyOver_after, c);
  }

  static public MouseListener findComponentPopupMenuListener_gen(final JComponent c) {
    return c == null ? null : swing(() -> firstWithClassShortNamed("componentPopupMenu_Adapter", c.getMouseListeners()));
  }

  static public boolean internalFrameActive(Component c) {
    final JInternalFrame f = getInternalFrame(c);
    return f != null && swing(new F0<Boolean>() {

      public Boolean get() {
        try {
          return f.isSelected();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return f.isSelected();";
      }
    });
  }

  static public String shortenSnippetID(String snippetID) {
    if (snippetID.startsWith("#"))
      snippetID = snippetID.substring(1);
    String httpBlaBla = "http://tinybrain.de/";
    if (snippetID.startsWith(httpBlaBla))
      snippetID = snippetID.substring(httpBlaBla.length());
    return "" + parseLong(snippetID);
  }

  static public <A> A proxy(Class<A> intrface, final Object target) {
    if (target == null)
      return null;
    if (isInstance(intrface, target))
      return (A) target;
    return (A) java.lang.reflect.Proxy.newProxyInstance(intrface.getClassLoader(), new Class[] { intrface }, new proxy_InvocationHandler(target));
  }

  static public <A> A proxy(Object target, Class<A> intrface) {
    return proxy(intrface, target);
  }

  static public File javaxCachesDir_dir;

  static public File javaxCachesDir() {
    return javaxCachesDir_dir != null ? javaxCachesDir_dir : new File(userHome(), "JavaX-Caches");
  }

  static public File javaxCachesDir(String sub) {
    return newFile(javaxCachesDir(), sub);
  }

  static public String snippetImageURL(long snippetID) {
    return snippetImageURL(fsI(snippetID));
  }

  static public String snippetImageURL(String snippetID) {
    return snippetImageURL(snippetID, "png");
  }

  static public String snippetImageURL(String snippetID, String contentType) {
    if (snippetID == null || isURL(snippetID))
      return snippetID;
    long id = parseSnippetID(snippetID);
    String url;
    if (isImageServerSnippet(id))
      url = imageServerLink(id);
    else
      url = "https://botcompany.de/img/" + id;
    return url;
  }

  static public <A> VF1<A> ivf1ToVF1(IVF1<A> f) {
    return f == null ? null : new VF1<A>() {

      public void get(A a) {
        try {
          f.get(a);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "f.get(a)";
      }
    };
  }

  static public JMenuItem jMenuItem(final String text) {
    return jmenuItem(text);
  }

  static public JMenuItem jMenuItem(String text, Object r) {
    return jmenuItem(text, r);
  }

  static public Pair<String, Integer> jmenu_autoMnemonic(String s) {
    int i = indexOf(s, '&');
    if (i >= 0 && i < l(s) && isLetterOrDigit(s.charAt(i + 1)))
      return pair(substring(s, 0, i) + substring(s, i + 1), (int) s.charAt(i + 1));
    return pair(s, 0);
  }

  static public JMenuItem disableMenuItem(final JMenuItem mi) {
    if (mi != null) {
      swing(() -> {
        mi.setEnabled(false);
      });
    }
    return mi;
  }

  static public JMenuItem directJMenuItem(Action a) {
    return new JMenuItem(a) {

      public Dimension getMaximumSize() {
        return new Dimension(super.getPreferredSize().width, super.getMaximumSize().height);
      }
    };
  }

  static public JMenuItem directJMenuItem(String text, Object action) {
    return directJMenuItem(abstractAction(text, action));
  }

  static public JMenuBar addMenuBar(final Component c) {
    return swing(new F0<JMenuBar>() {

      public JMenuBar get() {
        try {
          RootPaneContainer f = getPossiblyInternalFrame(c);
          if (f == null)
            return null;
          JMenuBar bar = (JMenuBar) (call(f, "getJMenuBar"));
          if (bar == null) {
            setMenuBar(f, bar = new JMenuBar());
            revalidate((Component) f);
          }
          return bar;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "RootPaneContainer f = getPossiblyInternalFrame(c);\r\n    if (f == null) null;\r...";
      }
    });
  }

  static public void registerEscape_rootPane(JComponent rootPane, final Runnable r) {
    String name = "Escape";
    Action action = abstractAction(name, r);
    KeyStroke keyStroke = KeyStroke.getKeyStroke(KeyEvent.VK_ESCAPE, 0);
    rootPane.getActionMap().put(name, action);
    rootPane.getInputMap(JComponent.WHEN_IN_FOCUSED_WINDOW).put(keyStroke, name);
  }

  static public boolean ewicOneOf(String s, String... l) {
    if (s != null)
      for (String x : l) if (ewic(s, x))
        return true;
    return false;
  }

  static public BufferedImage reconstructBufferedImage(BufferedImage img) {
    if (img == null)
      return null;
    RGBImage rgb = new RGBImage(img);
    rgb.uncacheBufferedImage();
    return rgb.getBufferedImage();
  }

  static public List<CriticalAction> beginCriticalAction_inFlight = synchroList();

  static public class CriticalAction implements AutoCloseable {

    public String description;

    public CriticalAction() {
    }

    public CriticalAction(String description) {
      this.description = description;
    }

    final public void close() {
      done();
    }

    public void done() {
      beginCriticalAction_inFlight.remove(this);
    }
  }

  static public CriticalAction beginCriticalAction(String description) {
    ping();
    CriticalAction c = new CriticalAction(description);
    beginCriticalAction_inFlight.add(c);
    return c;
  }

  static public void cleanMeUp_beginCriticalAction() {
    int n = 0;
    while (nempty(beginCriticalAction_inFlight)) {
      int m = l(beginCriticalAction_inFlight);
      if (m != n) {
        n = m;
        try {
          print("Waiting for " + n2(n, "critical actions") + ": " + join(", ", collect(beginCriticalAction_inFlight, "description")));
        } catch (Throwable __e) {
          pcallFail(__e);
        }
      }
      sleepInCleanUp(10);
    }
  }

  static public <A extends JTextComponent> A moveCaretToEnd(A ta) {
    setCaretPosition(ta, textAreaTextLength(ta));
    return ta;
  }

  static public JComponent showTitledForm(String title, Object... _parts) {
    return showFormTitled(title, _parts);
  }

  static public Rect intersectRects(Rect a, Rect b) {
    int x = max(a.x, b.x), y = max(a.y, b.y);
    int x2 = min(a.x + a.w, b.x + b.w), y2 = min(a.y + a.h, b.y + b.h);
    return new Rect(x, y, x2 - x, y2 - y);
  }

  static public Rect intersectRects(Rect a, int x1, int y1, int w, int h) {
    if (a == null || a.x >= x1 && a.y >= y1 && a.x2() < x1 + w && a.y2() < y1 + h)
      return a;
    return rectFromPoints(max(a.x, x1), max(a.y, y1), min(a.x2(), x1 + w), min(a.y2(), y1 + h));
  }

  static public boolean rectEmpty(Rect r) {
    return r == null || r.w <= 0 || r.h <= 0;
  }

  static public byte[] bytesFromDataURL(String url) {
    String pref = "base64,";
    int i = indexOf(url, pref);
    if (i < 0)
      return null;
    return base64decode(substring(url, i + l(pref)));
  }

  static public String getCanonicalPath(File f) {
    try {
      return f == null ? null : f.getCanonicalPath();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String getCanonicalPath(String path) {
    return getCanonicalPath(newFile(path));
  }

  static public AutoCloseable tempCleaningUp() {
    AutoCloseable result = null;
    result = tempSetTL(ping_isCleanUpThread, true);
    return result;
  }

  static public void closeAllWriters(Collection<? extends Writer> l) {
    for (Writer w : unnull(l)) {
      try {
        w.close();
      } catch (Throwable __e) {
        pcallFail(__e);
      }
    }
  }

  static public File prepareProgramFile(String name) {
    return mkdirsForFile(getProgramFile(name));
  }

  static public File prepareProgramFile(String progID, String name) {
    return mkdirsForFile(getProgramFile(progID, name));
  }

  static public byte[] intToBytes(int i) {
    return new byte[] { (byte) (i >>> 24), (byte) (i >>> 16), (byte) (i >>> 8), (byte) i };
  }

  static public String str_nullIfEmpty(Object o) {
    return nullIfEmpty(strOrNull(o));
  }

  static public boolean isSubclassOf(Class a, Class b) {
    return isSubclass(a, b);
  }

  static public TreeMap revTreeMap() {
    return new TreeMap(reverseComparator());
  }

  static public int indexOfIC_underscore(String a, String b) {
    int la = l(a), lb = l(b);
    if (la < lb)
      return -1;
    int n = la - lb;
    elsewhere: for (int i = 0; i <= n; i++) {
      for (int j = 0; j < lb; j++) {
        char c2 = b.charAt(j);
        if (c2 == '_' || eqic(c2, a.charAt(i + j))) {
        } else
          continue elsewhere;
      }
      return i;
    }
    return -1;
  }

  static public <A, B> List<B> lambdaMap(IF1<A, B> f, Iterable<A> l) {
    return map(l, f);
  }

  static public <A, B> List<B> lambdaMap(IF1<A, B> f, A[] l) {
    return map(l, f);
  }

  static public <A, B> B secondOfPair(Pair<A, B> p) {
    return p == null ? null : p.b;
  }

  static public <A, B> B getOrCreate(Map<A, B> map, A key, Class<? extends B> c) {
    try {
      B b = map.get(key);
      if (b == null)
        map.put(key, b = c.newInstance());
      return b;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A, B> B getOrCreate(Map<A, B> map, A key, Object f) {
    try {
      B b = map.get(key);
      if (b == null)
        map.put(key, b = (B) callF(f));
      return b;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A, B> B getOrCreate(IF0<B> f, Map<A, B> map, A key) {
    return getOrCreate(map, key, f);
  }

  static public <A, B> B getOrCreate(Map<A, B> map, A key, IF0<B> f) {
    B b = map.get(key);
    if (b == null)
      map.put(key, b = f.get());
    return b;
  }

  static public <A, B> B getOrCreate(Class<? extends B> c, Map<A, B> map, A key) {
    return getOrCreate(map, key, c);
  }

  static public Comparator<String> caseInsensitiveComparator() {
    return betterCIComparator();
  }

  static public String trimSubstring(String s, int x) {
    return trim(substring(s, x));
  }

  static public String trimSubstring(String s, int x, int y) {
    return trim(substring(s, x, y));
  }

  static public String trimSubstring(String s, IntRange r) {
    return trim(substring(s, r));
  }

  static public String trimSubstring(int x, String s) {
    return trimSubstring(s, x);
  }

  static public int cmpAlphaNum(String a, String b) {
    return alphaNumComparator().compare(a, b);
  }

  static public boolean isInstanceOf(Object o, Class type) {
    return type.isInstance(o);
  }

  static public int menuItemCount(JMenu menu) {
    return menu == null ? 0 : swing(() -> menu.getItemCount());
  }

  static public void caretToHome(JTextComponent c) {
    setCaret(c, 0);
  }

  static public <A extends JComponent> A onFirstComponentShow(final A component, final Runnable onShow) {
    {
      swing(() -> {
        component.addAncestorListener(new AncestorListener() {

          public void ancestorAdded(AncestorEvent event) {
            component.removeAncestorListener(this);
            pcallF(onShow);
          }

          public void ancestorRemoved(AncestorEvent event) {
          }

          public void ancestorMoved(AncestorEvent event) {
          }
        });
      });
    }
    return component;
  }

  static public <A extends JTextComponent> A setTextKeepCaret(final String text, final A c) {
    if (c != null) {
      swing(() -> {
        int caret = c.getCaretPosition();
        setText(c, text);
        setCaretPosition(c, caret);
      });
    }
    return c;
  }

  static public <A extends JTextComponent> A setTextKeepCaret(A c, String text) {
    return setTextKeepCaret(text, c);
  }

  static public String lower(String s) {
    return s == null ? null : s.toLowerCase();
  }

  static public char lower(char c) {
    return Character.toLowerCase(c);
  }

  static public JRootPane getRootPane(Component c) {
    Component f = (Component) getPossiblyInternalFrame(c);
    return f instanceof RootPaneContainer ? (JRootPane) swingCall(f, "getRootPane") : null;
  }

  static public <A extends JComponent> A jtransparent(final A a) {
    {
      swing(() -> {
        a.setOpaque(false);
      });
    }
    return a;
  }

  static public JPanel borderLayoutPanel() {
    return jpanel(new BorderLayout());
  }

  static public boolean activateFrame(final Component c, Object... __) {
    return swing(new F0<Boolean>() {

      public Boolean get() {
        try {
          Frame f = getAWTFrame(c);
          if (f == null)
            return false;
          if (!f.isVisible())
            f.setVisible(true);
          boolean windowsHack = optPar("windowsHack", __, true);
          boolean iconified = f.getState() == Frame.ICONIFIED;
          boolean maximize = boolPar("maximize", __);
          if (iconified)
            f.setState(maximize ? Frame.MAXIMIZED_BOTH : Frame.NORMAL);
          if (windowsHack && !iconified && isWindows()) {
            boolean fullscreen = f.getExtendedState() == Frame.MAXIMIZED_BOTH;
            f.setExtendedState(JFrame.ICONIFIED);
            f.setExtendedState(fullscreen ? JFrame.MAXIMIZED_BOTH : JFrame.NORMAL);
          }
          f.toFront();
          return true;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "Frame f = getAWTFrame(c);\r\n    if (f == null) false;\r\n    if (!f.isVisible())...";
      }
    });
  }

  static public Frame getAWTFrame(final Object _o) {
    return swing(new F0<Frame>() {

      public Frame get() {
        try {
          Object o = _o;
          if (o instanceof ButtonGroup)
            o = first(buttonsInGroup((ButtonGroup) o));
          if (!(o instanceof Component))
            return null;
          Component c = (Component) o;
          while (c != null) {
            if (c instanceof Frame)
              return (Frame) c;
            c = c.getParent();
          }
          return null;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "O o = _o;\r\n    /*\r\n    ifdef HaveProcessing\r\n      if (o instanceof PApplet) ...";
      }
    });
  }

  static public JTextArea jTextArea() {
    return jTextArea("");
  }

  static public JTextArea jTextArea(final String text) {
    return jTextAreaWithUndo(text);
  }

  static public String programTitle() {
    return getProgramName();
  }

  static public JFrame setFrameIconLater(Component c, final String imageID) {
    final JFrame frame = getFrame(c);
    if (frame != null)
      startThread("Loading Icon", new Runnable() {

        public void run() {
          try {
            final Image i = imageIcon(or2(imageID, "#1005557")).getImage();
            swingLater(new Runnable() {

              public void run() {
                try {
                  frame.setIconImage(i);
                } catch (Exception __e) {
                  throw rethrow(__e);
                }
              }

              public String toString() {
                return "frame.setIconImage(i);";
              }
            });
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "final Image i = imageIcon(or2(imageID, \"#1005557\")).getImage();\r\n      swingL...";
        }
      });
    return frame;
  }

  static public void _initFrame(JFrame f) {
    myFrames_list.put(f, Boolean.TRUE);
    standardTitlePopupMenu(f);
  }

  static public Rectangle defaultNewFrameBounds_r = new Rectangle(300, 100, 500, 400);

  static public Rectangle defaultNewFrameBounds() {
    return swing(new F0<Rectangle>() {

      public Rectangle get() {
        try {
          defaultNewFrameBounds_r.translate(60, 20);
          var bounds = preferredScreenBounds();
          if (!bounds.contains(defaultNewFrameBounds_r))
            defaultNewFrameBounds_r.setLocation(centerX(bounds) + random_incl(-30, 30), centerY(bounds) + random_incl(-20, 20));
          return new Rectangle(defaultNewFrameBounds_r);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "defaultNewFrameBounds_r.translate(60, 20);\r\n    var bounds = preferredScreenB...";
      }
    });
  }

  static public void hideConsole() {
    final JFrame frame = consoleFrame();
    if (frame != null) {
      autoVMExit();
      swingLater(new Runnable() {

        public void run() {
          try {
            frame.setVisible(false);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "frame.setVisible(false);";
        }
      });
    }
  }

  static public String getProgramTitle() {
    return getProgramName();
  }

  static public <B> TreeMap<String, B> asCaseInsensitiveMap(Map<String, B> map) {
    if (isCIMap(map))
      return (TreeMap) map;
    TreeMap<String, B> m = ciMap();
    putAll(m, map);
    return m;
  }

  static public Object callJavaX(String method, Object... args) {
    return callOpt(getJavaX(), method, args);
  }

  static public TimedCache<Map<String, String>> standardClassesMap_cached_cache = new TimedCache<Map<String, String>>(() -> standardClassesMap(), 60.0);

  static public Map<String, String> standardClassesMap_cached() {
    return standardClassesMap_cached_cache.get();
  }

  static public void standardClassesMap_clearCache() {
    standardClassesMap_cached_cache.clear();
  }

  static public <A> String resolveKeyCI(Map<String, A> map, String key) {
    if (map == null)
      return null;
    if (map.containsKey(key))
      return key;
    return first(keys(map), k -> eqic(key, k));
  }

  static public Map<String, String> stdFunctions_uncached() {
    return stdFunctions_uncached(new HashMap());
  }

  static public Map<String, String> stdFunctions_uncached(Map<String, String> map) {
    for (var snippetID : stdFunctionListSnippetIDs()) parseStdFunctionsList(loadSnippet(snippetID), map);
    return map;
  }

  static public <A extends JComponent> A addMargin(final int top, final int left, final int bottom, final int right, final A c) {
    if (c != null) {
      swing(() -> {
        Border margin = BorderFactory.createEmptyBorder(top, left, bottom, right);
        c.setBorder(jCompoundBorder(c.getBorder(), margin));
      });
    }
    return c;
  }

  static public <A extends JComponent> A addMargin(int w, A c) {
    return addMargin(w, w, w, w, c);
  }

  static public JPanel customLayoutPanel(final Object layouter) {
    return jpanel(layoutManagerFromFunction(layouter));
  }

  static public JPanel customLayoutPanel(final Object layouter, final List<? extends Component> components) {
    return addAllComponents(customLayoutPanel(layouter), components);
  }

  static public JPanel customLayoutPanel(LayoutManager layouter, Component... components) {
    return addAllComponents(customLayoutPanel(layouter), components);
  }

  static public JTextArea enableWordWrapForTextArea(JTextArea ta) {
    return enableWordWrapForTextArea(ta, true);
  }

  static public JTextArea enableWordWrapForTextArea(JTextArea ta, boolean enabled) {
    if (ta != null) {
      swing(() -> {
        ta.setLineWrap(enabled);
        ta.setWrapStyleWord(true);
      });
    }
    return ta;
  }

  static public JTextArea jtextarea() {
    return jTextArea();
  }

  static public JTextArea jtextarea(String text) {
    return jTextArea(text);
  }

  static public <A, B> A eitherAOpt(Either<A, B> e) {
    return e != null && e.isA() ? e.a() : null;
  }

  static public String stackTraceForThread(Thread t) {
    return t == null ? null : lines(t.getStackTrace());
  }

  static public <A> F0<A> if0ToF0(IF0<A> f) {
    return f == null ? null : new F0<A>() {

      public A get() {
        try {
          return f.get();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return f.get();";
      }
    };
  }

  static public Object get2(Object o, String field1, String field2) {
    return get(get(o, field1), field2);
  }

  static public boolean startsWithAny(String a, Collection<String> b) {
    for (String prefix : unnullForIteration(b)) if (startsWith(a, prefix))
      return true;
    return false;
  }

  static public boolean startsWithAny(String a, String... b) {
    if (b != null)
      for (String prefix : unnullForIteration(b)) if (startsWith(a, prefix))
        return true;
    return false;
  }

  static public boolean startsWithAny(String a, Collection<String> b, Matches m) {
    for (String prefix : unnullForIteration(b)) if (startsWith(a, prefix, m))
      return true;
    return false;
  }

  static public String mcDollar() {
    return mcName() + "$";
  }

  static public String afterDollar(String s) {
    return substring(s, smartIndexOf(s, '$') + 1);
  }

  static public String quoteUnlessIdentifierOrInteger(String s) {
    return quoteIfNotIdentifierOrInteger(s);
  }

  static public int localYear() {
    return localYear(now());
  }

  static public int localYear(long time) {
    return parseInt(simpleDateFormat_local("yyyy").format(time));
  }

  static public java.text.SimpleDateFormat simpleDateFormat(String format, TimeZone timeZone) {
    java.text.SimpleDateFormat sdf = new java.text.SimpleDateFormat(format);
    sdf.setTimeZone(timeZone);
    return sdf;
  }

  static public int localMonth(long time) {
    return parseInt(simpleDateFormat_local("MM").format(time));
  }

  static public int localMonth() {
    return localMonth(now());
  }

  static public int localDayOfMonth(long time) {
    return parseInt(simpleDateFormat_local("dd").format(time));
  }

  static public int localDayOfMonth() {
    return localDayOfMonth(now());
  }

  static public double floor(double d) {
    return Math.floor(d);
  }

  static public TreeSet<String> litciset(String... items) {
    TreeSet<String> set = caseInsensitiveSet();
    for (String a : items) set.add(a);
    return set;
  }

  static public TreeSet<Symbol> litciset(Symbol... items) {
    TreeSet<Symbol> set = treeSet();
    for (Symbol a : items) set.add(a);
    return set;
  }

  static public String afterLastSpace(String s) {
    return s == null ? null : substring(s, s.lastIndexOf(' ') + 1);
  }

  static public String dropSuffixIgnoreCase(String suffix, String s) {
    return ewic(s, suffix) ? s.substring(0, l(s) - l(suffix)) : s;
  }

  static public long fixTimestamp(long timestamp) {
    return timestamp > now() ? 0 : timestamp;
  }

  static public boolean isConceptList(Object o) {
    if (!(o instanceof List))
      return false;
    List l = (List) o;
    for (Object x : l) if (!(x instanceof Concept))
      return false;
    return true;
  }

  static public void dynamicObject_dropRawField(DynamicObject o, Object key) {
    if (o == null)
      return;
    synchronized (o) {
      o.fieldValues = (LinkedHashMap) syncMapRemove_deleteMapIfEmpty((Map) o.fieldValues, key);
    }
  }

  static public boolean isPersistable(Object o) {
    return !isInAnonymousClass(o);
  }

  static public <A, B> List<B> lmap(IF1<A, B> f, Iterable<A> l) {
    return lambdaMap(f, l);
  }

  static public <A, B> List<B> lmap(IF1<A, B> f, A[] l) {
    return lambdaMap(f, l);
  }

  static public String loadGZTextFile(File file) {
    try {
      if (!file.isFile())
        return null;
      ping();
      ByteArrayOutputStream baos = new ByteArrayOutputStream();
      InputStream fis = new FileInputStream(file);
      try {
        GZIPInputStream gis = newGZIPInputStream(fis);
        byte[] buffer = new byte[1024];
        int len;
        while ((len = gis.read(buffer)) != -1) baos.write(buffer, 0, len);
        baos.close();
        return fromUtf8(baos.toByteArray());
      } finally {
        _close(fis);
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Object getTL(Object o, String name) {
    return getThreadLocal(o, name);
  }

  static public <A> A getTL(ThreadLocal<A> tl) {
    return getThreadLocal(tl);
  }

  static public <A> A getTL(ThreadLocal<A> tl, A defaultValue) {
    return getThreadLocal(tl, defaultValue);
  }

  static public boolean possibleMD5(String s) {
    return isMD5(s);
  }

  static public String addPrefixIfNotEmpty2(String prefix, String s) {
    return empty(s) ? "" : addPrefix(prefix, s);
  }

  static public boolean charactersEqualIC(char c1, char c2) {
    if (c1 == c2)
      return true;
    char u1 = Character.toUpperCase(c1);
    char u2 = Character.toUpperCase(c2);
    if (u1 == u2)
      return true;
    return Character.toLowerCase(u1) == Character.toLowerCase(u2);
  }

  static public <A extends JLabel> A bindJLabelToVar(A label, IF0WithChangeListeners var) {
    bindListenerToComponent(label, var, () -> {
      try {
        setText(label, strOrNull(var.get()));
      } catch (Throwable e) {
        printStackTrace(e);
        setText(label, "Error");
      }
    });
    return label;
  }

  static public List<AbstractButton> buttonsInGroup(ButtonGroup g) {
    if (g == null)
      return ll();
    return asList(g.getElements());
  }

  static public Rectangle maxWindowBounds() {
    return GraphicsEnvironment.getLocalGraphicsEnvironment().getMaximumWindowBounds();
  }

  static public String userHomeIfNotActual() {
    String home = userHome();
    return eq(home, actualUserHome()) ? null : home;
  }

  static public boolean match3(String pat, String s) {
    return match3(pat, s, null);
  }

  static public boolean match3(String pat, String s, Matches matches) {
    if (pat == null || s == null)
      return false;
    return match3(pat, parse3_cachedInput(s), matches);
  }

  static public boolean match3(String pat, List<String> toks, Matches matches) {
    List<String> tokpat = parse3_cachedPattern(pat);
    return match3(tokpat, toks, matches);
  }

  static public boolean match3(List<String> tokpat, List<String> toks, Matches matches) {
    String[] m = match2(tokpat, toks);
    if (m == null)
      return false;
    if (matches != null)
      matches.m = m;
    return true;
  }

  static public String getProgramName_cache;

  static public String getProgramName() {
    Lock __0 = downloadLock();
    lock(__0);
    try {
      if (getProgramName_cache == null)
        getProgramName_cache = getSnippetTitleOpt(programID());
      return getProgramName_cache;
    } finally {
      unlock(__0);
    }
  }

  static public void _onLoad_getProgramName() {
    {
      startThread(new Runnable() {

        public void run() {
          try {
            getProgramName();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "getProgramName();";
        }
      });
    }
  }

  static public boolean makeAndroid3_disable = false;

  static public class Android3 implements AutoCloseable {

    public String greeting;

    public boolean publicOverride = false;

    public int startPort = 5000;

    public IResponder responder;

    public boolean console = true;

    public boolean quiet = false;

    public boolean daemon = false;

    public boolean incomingSilent = false;

    public int incomingPrintLimit = 200;

    public boolean useMultiPort = true;

    public boolean recordHistory = false;

    public boolean verbose = false;

    public int answerPrintLimit = 500;

    public boolean newLineAboveAnswer, newLineBelowAnswer;

    public int port;

    public long vport;

    public IDialogHandler handler;

    public ServerSocket server;

    public Android3(String greeting) {
      this.greeting = greeting;
    }

    public Android3() {
    }

    public void close() {
      dispose();
    }

    synchronized public void dispose() {
      if (server != null) {
        try {
          server.close();
        } catch (IOException e) {
          print("[internal] " + e);
        }
        server = null;
      }
      if (vport != 0) {
        try {
          print("Disposing " + this);
          removeFromMultiPort(vport);
          vport = 0;
        } catch (Throwable __e) {
          pcallFail(__e);
        }
      }
    }

    public String toString() {
      return "Bot: " + greeting + " [port " + port + (vport == 0 ? "" : ", vport " + vport) + "]";
    }
  }

  static abstract public class Responder implements IResponder {
  }

  public interface IResponder {

    public String answer(String s, List<String> history);
  }

  static public Android3 makeAndroid3(final String greeting) {
    return makeAndroid3(new Android3(greeting));
  }

  static public Android3 makeAndroid3(final String greeting, Responder responder) {
    Android3 android = new Android3(greeting);
    android.responder = responder;
    return makeAndroid3(android);
  }

  static public Android3 makeAndroid3(final Android3 a) {
    if (makeAndroid3_disable)
      return a;
    if (a.responder == null)
      a.responder = new Responder() {

        public String answer(String s, List<String> history) {
          return callStaticAnswerMethod(s, history);
        }
      };
    if (!a.quiet)
      print("[bot] " + a.greeting);
    if (a.console && (readLine_noReadLine || makeAndroid3_consoleInUse()))
      a.console = false;
    record(a);
    if (a.useMultiPort)
      a.vport = addToMultiPort(a.greeting, makeAndroid3_verboseResponder(a));
    if (a.console)
      makeAndroid3_handleConsole(a);
    if (a.useMultiPort)
      return a;
    a.handler = makeAndroid3_makeDialogHandler(a);
    if (a.quiet)
      startDialogServer_quiet.set(true);
    try {
      a.port = a.daemon ? startDialogServerOnPortAboveDaemon(a.startPort, a.handler) : startDialogServerOnPortAbove(a.startPort, a.handler);
    } finally {
      startDialogServer_quiet.set(null);
    }
    a.server = startDialogServer_serverSocket;
    return a;
  }

  static public void makeAndroid3_handleConsole(final Android3 a) {
    if (!a.quiet)
      print("You may also type on this console.");
    {
      startThread(new Runnable() {

        public void run() {
          try {
            List<String> history = new ArrayList();
            while (licensed()) {
              String line;
              try {
                line = readLine();
              } catch (Throwable e) {
                print(getInnerMessage(e));
                break;
              }
              if (line == null)
                break;
              {
                history.add(line);
                history.add(makeAndroid3_getAnswer(line, history, a));
              }
            }
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "List<String> history = new ArrayList();\r\n    while (licensed()) {\r\n      Stri...";
        }
      });
    }
  }

  static public DialogHandler makeAndroid3_makeDialogHandler(final Android3 a) {
    return new DialogHandler() {

      public void run(final DialogIO io) {
        if (!a.publicOverride && !(publicCommOn() || io.isLocalConnection())) {
          io.sendLine("Sorry, not allowed");
          return;
        }
        String dialogID = randomID(8);
        io.sendLine(a.greeting + " / Your ID: " + dialogID);
        List<String> history = new ArrayList();
        while (io.isStillConnected()) {
          if (io.waitForLine()) {
            final String line = io.readLineNoBlock();
            String s = dialogID + " at " + now() + ": " + quote(line);
            if (!a.incomingSilent)
              print(shorten(s, a.incomingPrintLimit));
            if (eq(line, "bye")) {
              io.sendLine("bye stranger");
              return;
            }
            Matches m = new Matches();
            if (a.recordHistory)
              history.add(line);
            String answer;
            if (match3("this is a continuation of talk *", s, m) || match3("hello bot! this is a continuation of talk *", s, m)) {
              dialogID = unquote(m.m[0]);
              answer = "ok";
            } else
              try {
                makeAndroid3_io.set(io);
                answer = makeAndroid3_getAnswer(line, history, a);
              } finally {
                makeAndroid3_io.set(null);
              }
            if (a.recordHistory)
              history.add(answer);
            io.sendLine(answer);
          }
        }
      }
    };
  }

  static public String makeAndroid3_getAnswer(String line, List<String> history, Android3 a) {
    String answer, originalAnswer;
    try {
      originalAnswer = a.responder.answer(line, history);
      answer = makeAndroid3_fallback(line, history, originalAnswer);
    } catch (Throwable e) {
      e = getInnerException(e);
      printStackTrace(e);
      originalAnswer = answer = e.toString();
    }
    if (!a.incomingSilent) {
      if (originalAnswer == null)
        originalAnswer = "?";
      if (a.newLineAboveAnswer)
        print();
      print(">" + dropFirst(indentx(2, shorten(rtrim(originalAnswer), a.answerPrintLimit))));
      if (a.newLineBelowAnswer)
        print();
    }
    return answer;
  }

  static public String makeAndroid3_fallback(String s, List<String> history, String answer) {
    if (answer == null && match3("what is your pid", s))
      return getPID();
    if (answer == null && match3("what is your program id", s))
      return getProgramID();
    if (match3("get injection id", s))
      return getInjectionID();
    if (answer == null)
      answer = "?";
    if (answer.indexOf('\n') >= 0 || answer.indexOf('\r') >= 0)
      answer = quote(answer);
    return answer;
  }

  static public boolean makeAndroid3_consoleInUse() {
    if (isTrue(vm_generalMap_get("consoleInUse")))
      return true;
    for (Object o : record_list) if (o instanceof Android3 && ((Android3) o).console)
      return true;
    return false;
  }

  static public Responder makeAndroid3_verboseResponder(final Android3 a) {
    return new Responder() {

      public String answer(String s, List<String> history) {
        if (a.verbose)
          print("> " + shorten(s, a.incomingPrintLimit));
        String answer = a.responder.answer(s, history);
        if (a.verbose)
          print("< " + shorten(answer, a.incomingPrintLimit));
        return answer;
      }
    };
  }

  static public ThreadLocal<DialogIO> makeAndroid3_io = new ThreadLocal();

  static public Android3 makeAndroid3() {
    return makeAndroid3(getProgramTitle() + ".");
  }

  static public String makeResponder_callAnswerMethod(Object bot, String s, List<String> history) {
    String answer = (String) callOpt(bot, "answer", s, history);
    if (answer == null)
      answer = (String) callOpt(bot, "answer", s);
    return answer;
  }

  static public Responder makeResponder(final Object bot) {
    if (bot instanceof Responder)
      return (Responder) bot;
    if (bot instanceof String) {
      String f = (String) bot;
      return new Responder() {

        public String answer(String s, List<String> history) {
          String answer = (String) callOptMC((String) bot, s, history);
          if (answer == null)
            answer = (String) callOptMC((String) bot, s);
          return answer;
        }
      };
    }
    return new Responder() {

      public String answer(String s, List<String> history) {
        return makeResponder_callAnswerMethod(bot, s, history);
      }
    };
  }

  static public String defaultBotName() {
    return getProgramTitle() + ".";
  }

  static public <A extends Concept> A cDeref(Concept.Ref<A> ref) {
    return ref == null ? null : ref.get();
  }

  static public int convertTableRowToModel(final JTable t, final int viewRow) {
    return t == null || viewRow < 0 ? -1 : swing(new F0<Integer>() {

      public Integer get() {
        try {
          return t.convertRowIndexToModel(viewRow);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return t.convertRowIndexToModel(viewRow);";
      }
    });
  }

  static public <A> Set<A> setMinus(Set<A> set, Object... stuff) {
    Set s2 = cloneSet(set);
    for (Object o : stuff) s2.remove(o);
    return s2;
  }

  static public <A> Set<A> mergeSets(Collection<A>... l) {
    return joinSets(l);
  }

  static public Set<String> allNonStaticNonTransientFields(Object o) {
    TreeSet<String> fields = new TreeSet();
    Class _c = _getClass(o);
    do {
      for (Field f : _c.getDeclaredFields()) if ((f.getModifiers() & (Modifier.STATIC | Modifier.TRANSIENT)) == 0)
        fields.add(f.getName());
      _c = _c.getSuperclass();
    } while (_c != null);
    return fields;
  }

  static public void setOptMC(String field, Object value) {
    setOpt(mc(), field, value);
  }

  static public JButton findButton(Component c, String name) {
    for (JButton b : childrenOfType(c, JButton.class)) if (eq(b.getText(), name))
      return b;
    for (JButton b : childrenOfType(getFrame(c), JButton.class)) if (eq(b.getText(), name))
      return b;
    return null;
  }

  static public JButton findButton(Component c) {
    return childOfType(c, JButton.class);
  }

  static public Set vm_generalWeakSet(Object name) {
    synchronized (vm_generalMap()) {
      Set set = (Set) (vm_generalMap_get(name));
      if (set == null)
        vm_generalMap_put(name, set = newWeakHashSet());
      return set;
    }
  }

  static public void setMeta(IMeta o, Object key, Object value) {
    metaMapPut(o, key, value);
  }

  static public void setMeta(Object o, Object key, Object value) {
    metaMapPut(o, key, value);
  }

  static public List<Integer> parseInts(Iterable<String> l) {
    return lambdaMap(__99 -> parseInt(__99), l);
  }

  static public List<String> splitAtComma_trim(String s) {
    return nempties(trimAll(splitAtComma(s)));
  }

  static public <A> List<A> listSetIntersection(Iterable<A> a, Collection<A> b) {
    List<A> l = new ArrayList();
    Set<A> bSet = asSet(b);
    for (A x : unnull(a)) if (bSet.contains(x))
      l.add(x);
    return l;
  }

  static public <A> boolean setAdd(Collection<A> c, A a) {
    if (c == null || c.contains(a))
      return false;
    c.add(a);
    return true;
  }

  static public <A> List<A> sortByCalculatedFieldIC(Iterable<A> c, final Object f) {
    List<A> l = cloneList(c);
    sort(l, new Comparator<A>() {

      public int compare(A a, A b) {
        return compareIC((String) callF(f, a), (String) callF(f, b));
      }
    });
    return l;
  }

  static public JPanel hgrid(final Object... parts) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel panel = new JPanel();
          Object[] _parts = flattenArray2(parts);
          panel.setLayout(new GridLayout(1, _parts.length));
          smartAdd(panel, _parts);
          return panel;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "new JPanel panel;\r\n    O[] _parts = flattenArray2(parts);\r\n    panel.setLayou...";
      }
    });
  }

  static public JPanel scrollable_trackWidth(final Component component) {
    class P extends SingleComponentPanel implements Scrollable {

      public P() {
        super(component);
      }

      public Dimension getPreferredScrollableViewportSize() {
        return getPreferredSize();
      }

      public int getScrollableUnitIncrement(Rectangle visibleRect, int orientation, int direction) {
        return 20;
      }

      public int getScrollableBlockIncrement(Rectangle visibleRect, int orientation, int direction) {
        return (direction == SwingConstants.HORIZONTAL ? visibleRect.width : visibleRect.height) * 5 / 6;
      }

      public boolean getScrollableTracksViewportWidth() {
        return true;
      }

      public boolean getScrollableTracksViewportHeight() {
        return false;
      }
    }
    return swing(new F0<P>() {

      public P get() {
        try {
          return new P();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return new P;";
      }
    });
  }

  static public void removeFromConsole2(Component c) {
    JFrame frame = getFrame(c);
    if (frame == null)
      return;
    Container cp = frame.getContentPane();
    cp = (Container) getCenterComponent(cp);
    if (cp != c.getParent()) {
      print("removeFromWindow fail");
      return;
    }
    cp.remove(c);
    Container mainC = (Container) cp.getComponents()[0];
    cp.remove(mainC);
    replaceCenterComponent(frame.getContentPane(), mainC);
    validateFrame(frame);
  }

  static public Container consoleMainContainer_value;

  static public Container consoleMainContainer() {
    Container c = (Container) (callOpt(creator(), "consoleMainContainer"));
    if (c != null)
      return c;
    if (consoleMainContainer_value != null)
      return consoleMainContainer_value;
    JFrame frame = consoleFrame();
    if (frame == null)
      return null;
    return consoleMainContainer_value = frame.getContentPane();
  }

  static public Component getCenterComponent(Container container) {
    return ((BorderLayout) container.getLayout()).getLayoutComponent(BorderLayout.CENTER);
  }

  static public void replaceCenterComponent(Container container, Component c) {
    Component old = getCenterComponent(container);
    if (old != null)
      container.remove(old);
    container.add(c, BorderLayout.CENTER);
  }

  static public void validateFrame(Component c) {
    revalidateFrame(c);
  }

  static public <A extends JComponent> A setFont(final Font font, final A a) {
    if (a != null) {
      swing(() -> {
        a.setFont(font);
      });
    }
    return a;
  }

  static public <A extends JComponent> A setFont(A a, Font font) {
    return setFont(font, a);
  }

  static public <A extends JComponent> A setFont(final String fontID, float fontSize, final A a) {
    return setFont(loadFont_cached(fontID, fontSize), a);
  }

  static public boolean isLocalhost(String ip) {
    return isLoopbackIP(ip) || eqic(ip, "localhost");
  }

  static public int vmPort() {
    return myVMPort();
  }

  static public DialogIO talkToThisVM() {
    return new talkToThisVM_IO();
  }

  static public class talkToThisVM_IO extends DialogIO {

    public List<String> answers = ll(thisVMGreeting());

    public boolean isLocalConnection() {
      return true;
    }

    public boolean isStillConnected() {
      return true;
    }

    public int getPort() {
      return vmPort();
    }

    public void sendLine(String line) {
      answers.add(or2(sendToThisVM_newThread(line), "?"));
    }

    public String readLineImpl() {
      try {
        return popFirst(answers);
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public void close() {
    }

    public Socket getSocket() {
      return null;
    }
  }

  static public int indexOfIgnoreCase_manual(String a, String b) {
    return indexOfIgnoreCase_manual(a, b, 0);
  }

  static public int indexOfIgnoreCase_manual(String a, String b, int i) {
    int la = strL(a), lb = strL(b);
    if (la < lb)
      return -1;
    int n = la - lb;
    loop: for (; i <= n; i++) {
      for (int j = 0; j < lb; j++) {
        char c1 = a.charAt(i + j), c2 = b.charAt(j);
        if (!eqic(c1, c2))
          continue loop;
      }
      return i;
    }
    return -1;
  }

  static public Map<String, Integer> newFindBot2_cache = synchroHashMap();

  static public boolean newFindBot2_verbose = false;

  static public DialogIO newFindBot2(String name) {
    Integer port = newFindBot2_cache.get(name);
    if (port != null) {
      if (newFindBot2_verbose)
        print("newFindBot2: testing " + name + " => " + port);
      DialogIO io = talkTo(port);
      String q = format("has bot *", name);
      String s = io.ask(q);
      if (match("yes", s)) {
        io = talkToSubBot(name, io);
        call(io, "pushback", "?");
        return io;
      }
      newFindBot2_cache.remove(name);
      if (newFindBot2_verbose)
        print("newFindBot2: dropping " + name + " => " + port);
    }
    DialogIO io = findBot(name);
    if (io != null) {
      newFindBot2_cache.put(name, io.getPort());
      if (newFindBot2_verbose)
        print("newFindBot2: remembering " + name + " => " + port);
    }
    return io;
  }

  static public TreeMap<String, Class> hotwireCached_cache = new TreeMap();

  static public Lock hotwireCached_lock = lock();

  static public Class hotwireCached(String programID) {
    return hotwireCached(programID, true);
  }

  static public Class hotwireCached(String programID, boolean runMain) {
    return hotwireCached(programID, runMain, false);
  }

  static public Class hotwireCached(String programID, boolean runMain, boolean dependent) {
    Lock __0 = hotwireCached_lock;
    lock(__0);
    try {
      programID = formatSnippetID(programID);
      Class c = hotwireCached_cache.get(programID);
      if (c == null) {
        c = hotwire(programID);
        if (dependent)
          makeDependent(c);
        if (runMain)
          callMain(c);
        hotwireCached_cache.put(programID, c);
      }
      return c;
    } finally {
      unlock(__0);
    }
  }

  static public class ScannedBot implements IFieldsToList {

    static final public String _fieldOrder = "helloString address";

    public String helloString;

    public String address;

    public ScannedBot() {
    }

    public ScannedBot(String helloString, String address) {
      this.address = address;
      this.helloString = helloString;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + helloString + ", " + address + ")";
    }

    public boolean equals(Object o) {
      if (!(o instanceof ScannedBot))
        return false;
      ScannedBot __1 = (ScannedBot) o;
      return eq(helloString, __1.helloString) && eq(address, __1.address);
    }

    public int hashCode() {
      int h = 1660478935;
      h = boostHashCombine(h, _hashCode(helloString));
      h = boostHashCombine(h, _hashCode(address));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { helloString, address };
    }
  }

  static public List<ScannedBot> fullBotScan() {
    return fullBotScan("");
  }

  static public List<ScannedBot> fullBotScan(String searchPattern) {
    List<ScannedBot> bots = new ArrayList();
    for (ProgramScan.Program p : quickBotScan()) {
      String botName = firstPartOfHelloString(p.helloString);
      boolean isVM = startsWithIgnoreCase(p.helloString, "This is a JavaX VM.");
      boolean shouldRecurse = swic(botName, "Multi-Port") || isVM;
      if (swic(botName, searchPattern))
        bots.add(new ScannedBot(botName, "" + p.port));
      if (shouldRecurse)
        try {
          Map<Number, String> subBots = (Map) unstructure(sendToLocalBotQuietly(p.port, "list bots"));
          for (Number vport : subBots.keySet()) {
            botName = subBots.get(vport);
            if (swic(botName, searchPattern))
              bots.add(new ScannedBot(botName, p.port + "/" + vport));
          }
        } catch (Exception e) {
          e.printStackTrace();
        }
    }
    return bots;
  }

  static public Object unstructure_startingAtIndex(String s, int i) {
    return unstructure_tok(javaTokC_noMLS_iterator(s, i), false, null);
  }

  static public List<Character> stringAsCharacterList(final String s) {
    if (s == null)
      return null;
    return new RandomAccessAbstractList<Character>() {

      final public int l = l(s);

      public int size() {
        return l;
      }

      public Character get(int i) {
        return s.charAt(i);
      }
    };
  }

  static public boolean isLetterOrDigit(char c) {
    return Character.isLetterOrDigit(c);
  }

  static public int packFrame_minw = 150, packFrame_minh = 50;

  static public <A extends Component> A packFrame(final A c) {
    {
      swing(() -> {
        Window w = getWindow(c);
        if (w != null) {
          w.pack();
          int maxW = getScreenWidth() - 50, maxH = getScreenHeight() - 50;
          w.setSize(min(maxW, max(w.getWidth(), packFrame_minw)), min(maxH, max(w.getHeight(), packFrame_minh)));
        }
      });
    }
    return c;
  }

  static public JFrame packFrame(ButtonGroup g) {
    return packFrame(getFrame(g));
  }

  static public File parentFile(File f) {
    return dirOfFile(f);
  }

  static public void clearTabs(final JTabbedPane tabs) {
    if (tabs != null) {
      swing(() -> {
        tabs.removeAll();
      });
    }
  }

  static public boolean isComponentOrSwingable(Object o) {
    if (o instanceof Swingable)
      return true;
    return o instanceof Component;
  }

  static public TimeZone localTimeZone() {
    return getTimeZone(standardTimeZone());
  }

  static public class mapI_if1_It<A, B> extends IterableIterator<B> {

    public IF1<A, B> f;

    public Iterator<A> i;

    public mapI_if1_It() {
    }

    public mapI_if1_It(IF1<A, B> f, Iterator<A> i) {
      this.i = i;
      this.f = f;
    }

    public boolean hasNext() {
      return i.hasNext();
    }

    public B next() {
      return f.get(i.next());
    }

    public String toString() {
      return formatFunctionCall("mapI_if1", f, i);
    }
  }

  static public <A, B> IterableIterator<B> mapI_if1(IF1<A, B> f, Iterable<A> i) {
    return new mapI_if1_It(f, i.iterator());
  }

  static public <A, B> IterableIterator<B> mapI_if1(Iterable<A> i, IF1<A, B> f) {
    return mapI_if1(f, i);
  }

  static public boolean isCurlyBraced(String s) {
    List<String> tok = tok_combineCurlyBrackets_keep(javaTok(s));
    return l(tok) == 3 && startsWithAndEndsWith(tok.get(1), "{", "}");
  }

  static public String curlyBrace(String s) {
    return "{" + s + "}";
  }

  static public List<String> toLinesTrim2(String s) {
    return map(__100 -> trim(__100), toLinesTrim(s));
  }

  static public <A> List<List<A>> groupNonEmpty(List<A> l, Object isSep) {
    List<List<A>> out = new ArrayList();
    int j = 0;
    for (int i = 0; i < l(l); i++) {
      boolean sep = isTrue(callF(isSep, l.get(i)));
      if (sep) {
        if (i > j)
          out.add(newSubList(l, j, i));
        j = i + 1;
      }
    }
    if (l(l) > j)
      out.add(newSubList(l, j));
    return out;
  }

  static public IterableIterator<Integer> countIterator_inclusive(final int a, final int b) {
    return countIterator_exclusive(a, b + 1);
  }

  static public <A> IterableIterator<A> countIterator_inclusive(int a, int b, IF1<Integer, A> f) {
    return countIterator_inclusive(a, b, 1, f);
  }

  static public <A> IterableIterator<A> countIterator_inclusive(int a, int b, int step, IF1<Integer, A> f) {
    return countIterator_inclusive_step(a, b, 1, f);
  }

  static public <A> IterableIterator<A> countIterator_inclusive(double a, double b, double step, IF1<Double, A> f) {
    return countIterator_inclusive_step(a, b, step, f);
  }

  static public IterableIterator<Integer> countIterator_inclusive_step(int a, int b, int step) {
    assertTrue("step > 0", step > 0);
    return new IterableIterator<Integer>() {

      public int i = a;

      public boolean hasNext() {
        return i <= b;
      }

      public Integer next() {
        var j = i;
        i += step;
        return j;
      }
    };
  }

  static public IterableIterator<Long> countIterator_inclusive_step(long a, long b, long step) {
    assertTrue("step > 0", step > 0);
    return new IterableIterator<Long>() {

      public long i = a;

      public boolean hasNext() {
        return i <= b;
      }

      public Long next() {
        var j = i;
        i += step;
        return j;
      }
    };
  }

  static public IterableIterator<Double> countIterator_inclusive_step(double a, double b, double step) {
    assertTrue("step > 0", step > 0);
    return new IterableIterator<Double>() {

      public double i = a;

      public boolean hasNext() {
        return i <= b;
      }

      public Double next() {
        var j = i;
        i += step;
        return j;
      }
    };
  }

  static public <A> IterableIterator<A> countIterator_inclusive_step(double a, double b, double step, IF1<Double, A> f) {
    return mapI_if1(f, countIterator_inclusive_step(a, b, step));
  }

  static public <A> IterableIterator<A> countIterator_inclusive_step(int a, int b, int step, IF1<Integer, A> f) {
    return mapI_if1(f, countIterator_inclusive_step(a, b, step));
  }

  static public boolean hasMethod(Object o, String method, Object... args) {
    return findMethod_cached(o, method, args) != null;
  }

  static public String tok_unCurlyBracket(String s) {
    return isCurlyBraced(s) ? join(dropFirstThreeAndLastThree(javaTok(s))) : s;
  }

  static public Rect screenBounds(GraphicsDevice screen) {
    return screen == null ? null : toRect(screen.getDefaultConfiguration().getBounds());
  }

  static public Rect screenBounds(int iScreen) {
    return screenBounds(get(screenDevices(), iScreen));
  }

  static public int screenCount() {
    return l(GraphicsEnvironment.getLocalGraphicsEnvironment().getScreenDevices());
  }

  static public Rect boundsAsRect(Component c) {
    return boundsRect(c);
  }

  static public <A> int indexOfMax(List<A> l, IF1<A, Comparable> f) {
    Best_comparable<Integer> best = new Best_comparable();
    for (int i = 0; i < l(l); i++) best.put(i, f.get(l.get(i)));
    return or(best.get(), -1);
  }

  static public List<Rect> allScreenBounds() {
    return map(__101 -> screenBounds(__101), screenDevices());
  }

  static public int area(Rect r) {
    return rectArea(r);
  }

  static public double area(DoubleRect r) {
    return r == null ? 0 : r.w * r.h;
  }

  static public int area(WidthAndHeight img) {
    return img == null ? 0 : img.getWidth() * img.getHeight();
  }

  static public int area(BufferedImage img) {
    return img == null ? 0 : img.getWidth() * img.getHeight();
  }

  static public IterableIterator<String> lines_iterator(final String s) {
    if (s == null)
      return emptyIterableIterator();
    return iteratorFromFunction(new F0<String>() {

      public int start = 0;

      public String get() {
        int i = toLines_nextLineBreak(s, start);
        if (i < 0) {
          String toReturn = s.length() > start ? s.substring(start) : null;
          start = s.length();
          return toReturn;
        }
        String toReturn = s.substring(start, i);
        if (s.charAt(i) == '\r' && i + 1 < s.length() && s.charAt(i + 1) == '\n')
          i += 2;
        else
          ++i;
        start = i;
        return toReturn;
      }
    });
  }

  static public <A> IVF1<A> vf1ToIVF1(VF1<A> f) {
    return f == null ? null : a -> f.get(a);
  }

  static public IVF1 mainFunctionToIVF1(final String fname) {
    return (IVF1) a -> {
      callMC(fname, a);
    };
  }

  static public MultiMap similarEmptyMultiMap(MultiMap m) {
    if (m instanceof TreeMultiMap)
      return new TreeMultiMap((TreeMultiMap) m);
    return similarEmptyMultiMap(m == null ? null : m.data);
  }

  static public MultiMap similarEmptyMultiMap(Map m) {
    MultiMap mm = new MultiMap();
    if (m != null)
      mm.data = similarEmptyMap(m);
    return mm;
  }

  static public TableWithTooltips tableWithToolTips() {
    return tableWithTooltips();
  }

  static public List<String> getTableLine(JTable tbl, int row) {
    if (row >= 0 && row < tbl.getModel().getRowCount()) {
      List<String> l = new ArrayList();
      for (int i = 0; i < tbl.getModel().getColumnCount(); i++) l.add(String.valueOf(tbl.getModel().getValueAt(row, i)));
      return l;
    }
    return null;
  }

  static public void tableEnableDrag(final JTable table, TransferHandler th) {
    if (table.getDragEnabled()) {
      print("Table drag already enabled");
      return;
    }
    table.setDragEnabled(true);
    table.setTransferHandler(th);
    table.addMouseListener(new MouseAdapter() {

      @Override
      public void mousePressed(MouseEvent e) {
        if (e.getButton() == 1 && e.getClickCount() == 1)
          table.getTransferHandler().exportAsDrag(table, e, TransferHandler.COPY);
      }
    });
  }

  static public void fillTableWithStrings(final JTable table, List<List<String>> rows, List<String> colNames) {
    fillTableWithStrings(table, rows, toStringArray(colNames));
  }

  static public void fillTableWithStrings(final JTable table, List<List<String>> rows, String... colNames) {
    final DefaultTableModel model = fillTableWithStrings_makeModel(rows, colNames);
    swingNowOrLater(new Runnable() {

      public void run() {
        try {
          setTableModel(table, model);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "setTableModel(table, model);";
      }
    });
  }

  static public DefaultTableModel fillTableWithStrings_makeModel(List<List<String>> rows, String... colNames) {
    Object[][] data = new Object[rows.size()][];
    int w = 0;
    for (int i = 0; i < rows.size(); i++) {
      List<String> l = rows.get(i);
      Object[] r = new Object[l.size()];
      for (int j = 0; j < l.size(); j++) r[j] = l.get(j);
      data[i] = r;
      w = Math.max(w, l.size());
    }
    Object[] columnNames = new Object[w];
    for (int i = 0; i < w; i++) columnNames[i] = i < l(colNames) ? colNames[i] : "?";
    return new DefaultTableModel(data, columnNames);
  }

  static public <A> List<A> replaceAll(List<A> l, final A a, final A b) {
    return map(l, new F1<A, A>() {

      public A get(A x) {
        try {
          return eq(x, a) ? b : x;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "eq(x, a) ? b : x";
      }
    });
  }

  static public String replaceAll(String s, String a, String b) {
    return s == null ? null : s.replaceAll(a, b);
  }

  static public <A> A getOrKeep(Map<A, ? extends A> map, A a) {
    if (map == null)
      return a;
    A v = map.get(a);
    return v != null ? v : a;
  }

  static public List<String> ai_splitCamelCase(String s) {
    int j = 0;
    List<String> l = new ArrayList();
    if (isAllUpperCase(s)) {
      l.add(s);
      return l;
    }
    for (int i = 0; i < l(s); i++) if (i > j && isUpperCaseLetter(s.charAt(i))) {
      l.add(substring(s, j, i));
      j = i;
    }
    if (j < l(s))
      l.add(substring(s, j));
    return l;
  }

  static public <A> ThreadLocal<A> threadLocalWithDefault(A defaultValue) {
    return new ThreadLocal<A>() {

      public A initialValue() {
        return defaultValue;
      }
    };
  }

  static public <A, B> List<A> keysWithoutHidden(Map<A, B> map) {
    return filter(keys(map), new F1<Object, Boolean>() {

      public Boolean get(Object o) {
        try {
          return !eq(o, "[hidden]") && !isStringStartingWith(o, "[hidden] ");
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "!eq(o, \"[hidden]\") && !isStringStartingWith(o, \"[hidden] \")";
      }
    });
  }

  static public String structureOrText(Object o) {
    return o instanceof String ? (String) o : structure(o);
  }

  static public String structureForUser(Object o) {
    return structureForUser(o, new structure_Data());
  }

  static public String structureForUser(Object o, structure_Data d) {
    d.noStringSharing = true;
    d.warnIfUnpersistable(false);
    return beautifyStructure(structure(o, d));
  }

  static public Map<JTable, VF1<JTable>> setTableModel_after = weakHashMap();

  static public Map<JTable, VF2<JTable, RowSorter>> setTableModel_fixSorter = weakHashMap();

  static public void setTableModel(final JTable table, final TableModel model) {
    {
      swing(() -> {
        Map<String, Integer> widths = tableColumnWidthsByName(table);
        int[] i = table.getSelectedRows();
        TableRowSorter sorter = model.getColumnCount() == tableColumnCount(table) ? (TableRowSorter) table.getRowSorter() : null;
        List<? extends RowSorter.SortKey> sortKeys = sorter == null ? null : sorter.getSortKeys();
        table.setModel(model);
        int n = model.getRowCount();
        ListSelectionModel sel = table.getSelectionModel();
        for (int j = 0; j < i.length; j++) if (i[j] < n)
          sel.addSelectionInterval(i[j], i[j]);
        tableSetColumnPreferredWidths(table, widths);
        if (sorter != null) {
          sorter.setModel(model);
          callF(setTableModel_fixSorter.get(table), table, sorter);
          if (sortKeys != null)
            sorter.setSortKeys(sortKeys);
        }
        table.setRowSorter(sorter);
        callF(setTableModel_after.get(table), table);
      });
    }
  }

  static public Pair<Object[][], Object[]> fillTableWithData_makeData(List<List> rows, List<String> colNames) {
    return fillTableWithData_makeData(rows, asStringArray(colNames));
  }

  static public Pair<Object[][], Object[]> fillTableWithData_makeData(List<List> rows, String... colNames) {
    Object[][] data = new Object[rows.size()][];
    int w = 0;
    for (int i = 0; i < rows.size(); i++) {
      List l = rows.get(i);
      Object[] r = new Object[l.size()];
      for (int j = 0; j < l.size(); j++) {
        Object o = l.get(j);
        if (o instanceof BufferedImage)
          o = imageIcon((BufferedImage) o);
        if (o instanceof RGBImage)
          o = imageIcon((RGBImage) o);
        r[j] = o;
      }
      data[i] = r;
      w = Math.max(w, l.size());
    }
    Object[] columnNames = new Object[w];
    for (int i = 0; i < w; i++) columnNames[i] = i < l(colNames) ? colNames[i] : "?";
    return pair(data, columnNames);
  }

  static public void consoleClearInput() {
    consoleSetInput("");
  }

  static public <A> WeakReference<A> newWeakReference(A a) {
    return a == null ? null : new WeakReference(a);
  }

  static public <A extends JTextComponent> A makeUneditableWithTextColor(A a, Color color) {
    if (a != null) {
      swing(() -> {
        a.setEditable(false);
        DefaultCaret caret = (DefaultCaret) (a.getCaret());
        caret.setUpdatePolicy(DefaultCaret.NEVER_UPDATE);
        a.setDisabledTextColor(color);
      });
    }
    return a;
  }

  static public <A extends JTextComponent> A makeUneditableWithTextColor(Color color, A a) {
    return makeUneditableWithTextColor(a, color);
  }

  static public JTextArea jTextArea_noUndo() {
    return jTextArea_noUndo("");
  }

  static public JTextArea jTextArea_noUndo(final String text) {
    return swingNu(JTextArea.class, text);
  }

  static public <A, B, C> MultiMap<B, C> mapMultiMapKeys(IF1<A, C> f, MultiMap<A, B> mm) {
    MultiMap m = similarEmptyMultiMap(mm);
    for (var key : keys(mm)) m.put(f.get(key), mm.get(key));
    return m;
  }

  static public <A, B, C> MultiMap<B, C> mapMultiMapKeys(MultiMap<A, B> mm, IF1<A, C> f) {
    return mapMultiMapKeys(f, mm);
  }

  static public <A, B, C> MultiSetMap<B, C> mapMultiSetMapKeys(IF1<A, C> f, MultiSetMap<A, B> mm) {
    MultiSetMap m = similarEmptyMultiSetMap(mm);
    for (var key : keys(mm)) m.put(f.get(key), mm.get(key));
    return m;
  }

  static public <A, B, C> MultiSetMap<B, C> mapMultiSetMapKeys(MultiSetMap<A, B> mm, IF1<A, C> f) {
    return mapMultiSetMapKeys(f, mm);
  }

  static public Set<String> allNonStaticFields(Object o) {
    TreeSet<String> fields = new TreeSet();
    Class _c = _getClass(o);
    do {
      for (Field f : _c.getDeclaredFields()) if ((f.getModifiers() & Modifier.STATIC) == 0)
        fields.add(f.getName());
      _c = _c.getSuperclass();
    } while (_c != null);
    return fields;
  }

  static public <A, B extends Collection<A>> void forEachLevel2(Iterable<B> l, IVF1<A> f) {
    if (l != null)
      for (B b : l) forEach(b, f);
  }

  static public <A, B extends Collection<A>> void forEachLevel2(IVF1<A> f, Iterable<B> l) {
    forEachLevel2(f, l);
  }

  static public Object vmBus_query(String msg, Object... args) {
    Object arg = vmBus_wrapArgs(args);
    {
      var __1 = pcallFAll_returnFirstNotNull(vm_busListeners_live(), msg, arg);
      if (__1 != null)
        return __1;
    }
    return pcallFAll_returnFirstNotNull(vm_busListenersByMessage_live().get(msg), msg, arg);
  }

  static public Object vmBus_query(String msg) {
    return vmBus_query(msg, (Object) null);
  }

  static public List<Component> allChildren(Component c) {
    return childrenOfType(c, Component.class);
  }

  static public void onEnterIfTextField(Component c, Runnable action) {
    if (action == null)
      return;
    if (c instanceof JTextField)
      onEnter(((JTextField) c), action);
    else if (c instanceof JComboBox)
      onEnter(((JComboBox) c), action);
  }

  static public boolean possibleGlobalID(String s) {
    return l(s) == globalIDLength() && allLowerCaseCharacters(s);
  }

  static public char firstChar(String s) {
    return s.charAt(0);
  }

  static public String hdiv(Object contents, Object... params) {
    return hfulltag("div", contents, params);
  }

  static public String hdiv() {
    return hdiv("");
  }

  static public <A> IterableIterator<A> iteratorFromFunction_withEndMarker_f0(final F0<A> f) {
    class IFF2 extends IterableIterator<A> {

      public A a;

      public boolean have, done;

      public boolean hasNext() {
        getNext();
        return !done;
      }

      public A next() {
        getNext();
        if (done)
          throw fail();
        A _a = a;
        a = null;
        have = false;
        return _a;
      }

      public void getNext() {
        if (done || have)
          return;
        Object o = f.get();
        if (o == iteratorFromFunction_endMarker) {
          done = true;
          return;
        }
        a = (A) o;
        have = true;
      }
    }
    ;
    return new IFF2();
  }

  static public <A> void listThreadLocalAdd(ThreadLocal<List<A>> tl, A a) {
    List<A> l = tl.get();
    if (l == null)
      tl.set(l = new ArrayList());
    l.add(a);
  }

  static public <A> A listThreadLocalPopLast(ThreadLocal<List<A>> tl) {
    List<A> l = tl.get();
    if (l == null)
      return null;
    A a = popLast(l);
    if (empty(l))
      tl.set(null);
    return a;
  }

  static public JInternalFrame showForm_makeInternalFrame(JDesktopPane desktop, String title, JPanel panel) {
    JInternalFrame f = addInternalFrame(desktop, title, withMargin(panel));
    minInternalFrameWidth(f, 400);
    packInternalFrameVertically(f);
    centerInternalFrame(f);
    return f;
  }

  static public boolean isTrueOpt(Object o) {
    if (o instanceof Boolean)
      return ((Boolean) o).booleanValue();
    return false;
  }

  static public boolean isTrueOpt(String field, Object o) {
    return isTrueOpt(getOpt(field, o));
  }

  static public boolean eqicOneOf(String s, String... l) {
    for (String x : l) if (eqic(s, x))
      return true;
    return false;
  }

  static public List<String> isYes_yesses = litlist("y", "yes", "yeah", "y", "yup", "yo", "corect", "sure", "ok", "afirmative");

  static public boolean isYes(String s) {
    return isYes_yesses.contains(collapseWord(toLowerCase(firstWord2(s))));
  }

  static public boolean hasBot(String searchPattern) {
    try {
      DialogIO io = findBot(searchPattern);
      if (io != null) {
        io.close();
        return true;
      } else
        return false;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public boolean isOK(String s) {
    s = trim(s);
    return swic(s, "ok ") || eqic(s, "ok") || matchStart("ok", s);
  }

  static public String sendOpt(String bot, String text, Object... args) {
    return sendToLocalBotOpt(bot, text, args);
  }

  static public boolean isMainProgram() {
    return creator() == null;
  }

  static public void cleanKill() {
    cleanKillVM();
  }

  static public Android3 methodsBot2(String name, final Object receiver, final List<String> exposedMethods) {
    return methodsBot2(name, receiver, exposedMethods, null);
  }

  static public Android3 methodsBot2(String name, final Object receiver, final List<String> exposedMethods, final Lock lock) {
    Android3 android = new Android3();
    android.greeting = name;
    android.console = false;
    android.responder = new Responder() {

      public String answer(String s, List<String> history) {
        return exposeMethods2(receiver, s, exposedMethods, lock);
      }
    };
    return makeBot(android);
  }

  static public List<String> db_standardExposedMethods_list = ll("xlist", "xnew", "xset", "xdelete", "xget", "xclass", "xfullgrab", "xshutdown", "xchangeCount", "xcount");

  static public List<String> db_standardExposedMethods() {
    return db_standardExposedMethods_list;
  }

  static public Matcher regexp(String pat, String s) {
    return regexp(compileRegexp(pat), unnull(s));
  }

  static public Matcher regexp(java.util.regex.Pattern pat, String s) {
    return pat.matcher(unnull(s));
  }

  static public java.util.regex.Pattern regexp(String pat) {
    return compileRegexp(pat);
  }

  static public List<File> listFilesNotDirs(String dir) {
    return listFilesOnly(dir);
  }

  static public List<File> listFilesNotDirs(File... dirs) {
    return listFilesOnly(dirs);
  }

  static public int matcherInt(Matcher m, int i) {
    return parseInt(m.group(i));
  }

  static public long timestampFromYMDHM(int y, int m, int d, int h, int minutes) {
    return new GregorianCalendar(y, m - 1, d, h, minutes).getTimeInMillis();
  }

  static public <A> List<A> sortByMap_inPlace(List<A> l, Map<A, ?> map) {
    sort(l, mapComparator(map));
    return l;
  }

  static public boolean defaultAgeBasedBackupRetentionStrategy_shouldKeep(double age, double lastAge) {
    if (age <= 1 / 12.0)
      return true;
    if (age <= 0.5 && age >= lastAge + 1 / 12.0)
      return true;
    if (age <= 7 && age >= lastAge + 1)
      return true;
    if (age <= 28 && age >= lastAge + 7)
      return true;
    if (age >= lastAge + 365.0 / 12)
      return true;
    return false;
  }

  static public TreeSet<String> toCaseInsensitiveSet_treeSet(Iterable<String> c) {
    if (isCISet(c))
      return (TreeSet) c;
    TreeSet<String> set = caseInsensitiveSet_treeSet();
    addAll(set, c);
    return set;
  }

  static public TreeSet<String> toCaseInsensitiveSet_treeSet(String... x) {
    TreeSet<String> set = caseInsensitiveSet_treeSet();
    addAll(set, x);
    return set;
  }

  static public int rfindCodeTokens(List<String> tok, String... tokens) {
    return rfindCodeTokens(tok, 1, false, tokens);
  }

  static public int rfindCodeTokens(List<String> tok, boolean ignoreCase, String... tokens) {
    return rfindCodeTokens(tok, 1, ignoreCase, tokens);
  }

  static public int rfindCodeTokens(List<String> tok, int startIdx, boolean ignoreCase, String... tokens) {
    return rfindCodeTokens(tok, startIdx, ignoreCase, tokens, null);
  }

  static public List<String> rfindCodeTokens_specials = litlist("*", "<quoted>", "<id>", "<int>", "\\*");

  static public boolean rfindCodeTokens_debug = false;

  static public int rfindCodeTokens_indexed, rfindCodeTokens_unindexed;

  static public int rfindCodeTokens_bails, rfindCodeTokens_nonbails;

  static public int rfindCodeTokens(List<String> tok, int startIdx, boolean ignoreCase, String[] tokens, Object condition) {
    return rfindCodeTokens(tok, startIdx, l(tok), ignoreCase, tokens, condition);
  }

  static public int rfindCodeTokens(List<String> tok, int startIdx, int endIndex, boolean ignoreCase, String[] tokens, Object condition) {
    if (rfindCodeTokens_debug) {
      if (eq(getClassName(tok), "main$IndexedList2"))
        rfindCodeTokens_indexed++;
      else
        rfindCodeTokens_unindexed++;
    }
    if (!rfindCodeTokens_specials.contains(tokens[0]) && !tok.contains(tokens[0])) {
      ++rfindCodeTokens_bails;
      return -1;
    }
    ++rfindCodeTokens_nonbails;
    outer: for (int i = min(endIndex, tok.size() - tokens.length * 2) | 1; i >= startIdx; i -= 2) {
      for (int j = 0; j < tokens.length; j++) {
        String p = tokens[j], t = tok.get(i + j * 2);
        boolean match = false;
        if (eq(p, "*"))
          match = true;
        else if (eq(p, "<quoted>"))
          match = isQuoted(t);
        else if (eq(p, "<id>"))
          match = isIdentifier(t);
        else if (eq(p, "<int>"))
          match = isInteger(t);
        else if (eq(p, "\\*"))
          match = eq("*", t);
        else
          match = ignoreCase ? eqic(p, t) : eq(p, t);
        if (!match)
          continue outer;
      }
      if (condition == null || checkTokCondition(condition, tok, i - 1))
        return i;
    }
    return -1;
  }

  static public void clearTokens(List<String> tok) {
    clearAllTokens(tok);
  }

  static public void clearTokens(List<String> tok, int i, int j) {
    clearAllTokens(tok, i, j);
  }

  static public void clearTokens(List<String> tok, IntRange r) {
    clearAllTokens(tok, r.start, r.end);
  }

  static public List<String> allToUpper(Collection<String> l) {
    List<String> x = new ArrayList(l(l));
    if (l != null)
      for (String s : l) x.add(upper(s));
    return x;
  }

  static public <A> int indexOfSubList(List<A> x, List<A> y) {
    return indexOfSubList(x, y, 0);
  }

  static public <A> int indexOfSubList(List<A> x, List<A> y, int i) {
    outer: for (; i + l(y) <= l(x); i++) {
      for (int j = 0; j < l(y); j++) if (neq(x.get(i + j), y.get(j)))
        continue outer;
      return i;
    }
    return -1;
  }

  static public <A> int indexOfSubList(List<A> x, A[] y, int i) {
    outer: for (; i + l(y) <= l(x); i++) {
      for (int j = 0; j < l(y); j++) if (neq(x.get(i + j), y[j]))
        continue outer;
      return i;
    }
    return -1;
  }

  static public <A, B extends A> void copyListPart(List<B> a, int i1, List<A> b, int i2, int n) {
    if (a == null || b == null)
      return;
    for (int i = 0; i < n; i++) b.set(i2 + i, a.get(i1 + i));
  }

  static public boolean eqGet(List l, int i, Object o) {
    return eq(get(l, i), o);
  }

  static public <A, B> boolean eqGet(Map<A, B> map, A key, Object o) {
    return eq(mapGet(map, key), o);
  }

  static public int findEndOfTypeArgs(List<String> cnc, int i) {
    int j = i + 2, level = 1;
    while (j < cnc.size()) {
      if (cnc.get(j).equals("<"))
        ++level;
      else if (cnc.get(j).equals(">"))
        --level;
      if (level == 0)
        return j + 1;
      ++j;
    }
    return cnc.size();
  }

  static public int findEndOfBracketPart2(List<String> cnc, int i) {
    int j = i + 2, level = 1;
    while (j < cnc.size()) {
      if (eqOneOf(cnc.get(j), "{", "(", "["))
        ++level;
      else if (eqOneOf(cnc.get(j), "}", ")", "]"))
        --level;
      if (level == 0)
        return j + 1;
      ++j;
    }
    return cnc.size();
  }

  static public boolean checkCondition(Object condition, Object... args) {
    return isTrue(callF(condition, args));
  }

  static public <A> boolean checkCondition(IF1<A, Boolean> condition, A arg) {
    return isTrue(callF(condition, arg));
  }

  static public String htmlencode2(String s) {
    return htmlencode_noQuotes(s);
  }

  static public Object[] unrollParams(Object[] params) {
    if (l(params) == 1 && params[0] instanceof Map)
      return mapToParams((Map) params[0]);
    return params;
  }

  static public Object html_valueLessParam_cache;

  static public Object html_valueLessParam() {
    if (html_valueLessParam_cache == null)
      html_valueLessParam_cache = html_valueLessParam_load();
    return html_valueLessParam_cache;
  }

  static public Object html_valueLessParam_load() {
    return new Object();
  }

  static public String htmlQuote(String s) {
    return "\"" + htmlencode_forParams(s) + "\"";
  }

  static public int typeConversionScore(Class a, Class b) {
    if (a == b)
      return 0;
    if (b.isPrimitive()) {
      if (a.isPrimitive()) {
        if (b == boolean.class)
          return Integer.MAX_VALUE;
        if (b == byte.class)
          return Integer.MAX_VALUE;
        if (b == char.class)
          return a == byte.class ? -2 : Integer.MAX_VALUE;
        if (b == short.class)
          return a == byte.class ? -2 : Integer.MAX_VALUE;
        if (b == int.class)
          return a == byte.class || a == char.class || a == short.class ? -2 : Integer.MAX_VALUE;
        if (b == long.class)
          return a == byte.class || a == char.class || a == short.class || a == int.class ? -2 : Integer.MAX_VALUE;
        if (b == float.class)
          return a == byte.class || a == char.class || a == short.class || a == int.class ? -2 : Integer.MAX_VALUE;
        return a != boolean.class ? -2 : Integer.MAX_VALUE;
      } else {
        return primitiveToBoxedType(b) == a ? 1 : Integer.MAX_VALUE;
      }
    } else {
      if (a.isPrimitive())
        return primitiveToBoxedType(a) == b ? 1 : Integer.MAX_VALUE;
      if (!b.isAssignableFrom(a))
        return Integer.MAX_VALUE;
      if (a.isInterface() || b.isInterface())
        return 1;
      if (a.isArray() && b.isArray())
        return typeConversionScore(a.getComponentType(), b.getComponentType()) / 2;
      return subclassDistance(a, b) * 2;
    }
  }

  static public Class boxedToPrimitiveType(Class type) {
    if (type == Boolean.class)
      return boolean.class;
    if (type == Integer.class)
      return int.class;
    if (type == Long.class)
      return long.class;
    if (type == Float.class)
      return float.class;
    if (type == Short.class)
      return short.class;
    if (type == Character.class)
      return char.class;
    if (type == Byte.class)
      return byte.class;
    if (type == Double.class)
      return double.class;
    return null;
  }

  static public boolean zipFileContains(File inZip, String fileName) {
    try {
      ZipFile zip = new ZipFile(inZip);
      try {
        return zipFileContains(zip, fileName);
      } finally {
        zip.close();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public boolean zipFileContains(ZipFile zip, String fileName) {
    try {
      return zip.getEntry(fileName) != null;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public File envJavaHome() {
    return newFile(System.getProperty("java.home"));
  }

  static public BufferedImage drawImage(BufferedImage canvas, Image img, Pt p) {
    return drawImageOnImage(img, canvas, p.x, p.y);
  }

  static public void drawImage(BufferedImage g, Image img) {
    drawImage(graphics(g), img);
  }

  static public void drawImage(Graphics2D g, Image img) {
    drawImage(g, img, 0, 0);
  }

  static public void drawImage(Graphics2D g, Image img, Pt p) {
    drawImage(g, img, p.x, p.y);
  }

  static public void drawImage(Graphics2D g, Image img, int x, int y) {
    {
      if (g != null)
        g.drawImage(img, x, y, null);
    }
  }

  static public Set<String> listFields(Object c) {
    TreeSet<String> fields = new TreeSet();
    for (Field f : _getClass(c).getDeclaredFields()) fields.add(f.getName());
    return fields;
  }

  static public boolean eqicOrEq(Object a, Object b) {
    return a instanceof String && b instanceof String ? eqic((String) a, (String) b) : eq(a, b);
  }

  static public Comparator makeComparator(final Object f) {
    if (f instanceof Comparator)
      return (Comparator) f;
    return new Comparator() {

      public int compare(Object a, Object b) {
        return (Integer) callF(f, a, b);
      }
    };
  }

  static public Throwable printStackTrace2(Throwable e) {
    print(getStackTrace2(e));
    return e;
  }

  static public void printStackTrace2() {
    printStackTrace2(new Throwable());
  }

  static public void printStackTrace2(String msg) {
    printStackTrace2(new Throwable(msg));
  }

  static public Throwable innerException(Throwable e) {
    return getInnerException(e);
  }

  static public <A> Set<A> synchroWeakHashSet() {
    return Collections.newSetFromMap((Map) newWeakHashMap());
  }

  static public AutoCloseable tempUncancelThread() {
    return tempRemove(ping_actions, Thread.currentThread());
  }

  static public <A, B> Map<A, B> newWeakMap() {
    return newWeakHashMap();
  }

  static public String utf8streamToString(InputStream in) {
    return readerToString(utf8bufferedReader(in));
  }

  static public Object realMC() {
    return getThreadLocal(realMC_tl());
  }

  static public long twoIntsToLong_bigEndian(int a, int b) {
    return twoIntsToLong(a, b);
  }

  static public int intFromBytes_bigEndian(byte[] a, int i) {
    return intFromBytes(a, i);
  }

  static public Object safeUnstructureGZFile(File f) {
    try {
      if (!fileExists(f))
        return null;
      BufferedReader reader = utf8BufferedReader(gzInputStream(f));
      return unstructure_tok(javaTokC_noMLS_onReader(reader), true, null);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public void upgradeJavaXAndRestart() {
    run("#1001639");
    restart();
    sleep();
  }

  static public boolean equalsIgnoreCase(String a, String b) {
    return eqic(a, b);
  }

  static public boolean equalsIgnoreCase(char a, char b) {
    return eqic(a, b);
  }

  static public List<Field> allFieldObjects_dontMakeAccessible(Object o) {
    List<Field> fields = new ArrayList();
    Class _c = _getClass(o);
    do {
      addAll(fields, _c.getDeclaredFields());
      _c = _c.getSuperclass();
    } while (_c != null);
    return fields;
  }

  static public Pair pairMapB(Object f, Pair p) {
    return p == null ? null : pair(p.a, callF(f, p.b));
  }

  static public <A, B, C> Pair<A, C> pairMapB(IF1<B, C> f, Pair<A, B> p) {
    return p == null ? null : pair(p.a, f.get(p.b));
  }

  static public Pair pairMapB(Pair p, Object f) {
    return pairMap(f, p);
  }

  static public <A, B> Map<B, A> mapToKeys(Iterable<A> l, IF1<A, B> f) {
    if (l == null)
      return null;
    HashMap<B, A> map = new HashMap();
    for (A a : l) map.put(f.get(a), a);
    return map;
  }

  static public <A, B> Map<B, A> mapToKeys(IF1<A, B> f, A[] l) {
    return mapToKeys(f, asList(l));
  }

  static public <A, B> Map<B, A> mapToKeys(IF1<A, B> f, Iterable<A> l) {
    return mapToKeys(l, f);
  }

  static public <A, B> Map<A, B> weakMap() {
    return newWeakHashMap();
  }

  static public boolean isImageServerSnippet(long id) {
    return id >= 1100000 && id < 1200000;
  }

  static public File loadImageAsFile(String snippetIDOrURL) {
    try {
      if (isURL(snippetIDOrURL))
        throw fail("not implemented");
      if (!isSnippetID(snippetIDOrURL))
        throw fail("Not a URL or snippet ID: " + snippetIDOrURL);
      String snippetID = "" + parseSnippetID(snippetIDOrURL);
      File file = imageSnippetCacheFile(snippetID);
      if (fileSize(file) > 0)
        return file;
      String imageURL = snippetImageURL_noHttps(snippetID);
      System.err.println("Loading image: " + imageURL);
      byte[] data = loadBinaryPage(imageURL);
      saveBinaryFile(file, data);
      return file;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public File DiskSnippetCache_file(long snippetID) {
    return new File(getGlobalCache(), "data_" + snippetID + ".jar");
  }

  public static File DiskSnippetCache_getLibrary(long snippetID) throws IOException {
    File file = DiskSnippetCache_file(snippetID);
    return file.exists() ? file : null;
  }

  public static File DiskSnippetCache_getLibrary(String snippetID) {
    try {
      return DiskSnippetCache_getLibrary(psI(snippetID));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  public static void DiskSnippetCache_putLibrary(long snippetID, byte[] data) throws IOException {
    saveBinaryFile(DiskSnippetCache_file(snippetID), data);
  }

  static public byte[] loadDataSnippetImpl(String snippetID) throws IOException {
    byte[] data;
    try {
      URL url = new URL(dataSnippetLink(snippetID));
      print("Loading library: " + hideCredentials(url));
      try {
        data = loadBinaryPage(url.openConnection());
      } catch (RuntimeException e) {
        data = null;
      }
      if (data == null || data.length == 0) {
        url = new URL(tb_mainServer() + "/blobs/" + parseSnippetID(snippetID));
        print("Loading library: " + hideCredentials(url));
        data = loadBinaryPage(url.openConnection());
      }
      print("Bytes loaded: " + data.length);
    } catch (FileNotFoundException e) {
      throw new IOException("Binary snippet #" + snippetID + " not found or not public");
    }
    return data;
  }

  static public File loadDataSnippetToFile(String snippetID) {
    try {
      IResourceLoader rl = vm_getResourceLoader();
      if (rl != null)
        return rl.loadLibrary(snippetID);
      return loadDataSnippetToFile_noResourceLoader(snippetID);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public File loadDataSnippetToFile_noResourceLoader(String snippetID) {
    try {
      snippetID = fsI(snippetID);
      File f = DiskSnippetCache_file(parseSnippetID(snippetID));
      List<URL> urlsTried = new ArrayList();
      List<Throwable> errors = new ArrayList();
      try {
        URL url = addAndReturn(urlsTried, new URL(dataSnippetLink(snippetID)));
        print("Loading library: " + hideCredentials(url));
        try {
          loadBinaryPageToFile(openConnection(url), f);
          if (fileSize(f) == 0)
            throw fail();
        } catch (Throwable e) {
          errors.add(e);
          url = addAndReturn(urlsTried, new URL(tb_mainServer() + "/blobs/" + psI(snippetID)));
          print(e);
          print("Trying other server: " + hideCredentials(url));
          loadBinaryPageToFile(openConnection(url), f);
          print("Got bytes: " + fileSize(f));
        }
        if (fileSize(f) == 0)
          throw fail();
        System.err.println("Bytes loaded: " + fileSize(f));
      } catch (Throwable e) {
        errors.add(e);
        throw fail("Binary snippet " + snippetID + " not found or not public. URLs tried: " + allToString(urlsTried) + ", errors: " + allToString(errors));
      }
      return f;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public byte[] isGIF_magic = bytesFromHex("47494638");

  static public boolean isGIF(byte[] data) {
    return byteArrayStartsWith(data, isGIF_magic);
  }

  static public boolean isGIF(File f) {
    return isGIF(loadBeginningOfBinaryFile(f, l(isGIF_magic)));
  }

  static public List<File> myLibraryFiles() {
    Collection<File> files = (Collection<File>) (getOpt(myClassLoader(), "files"));
    if (files != null)
      return asList(files);
    return ll(getBytecodePathForClass(mc()));
  }

  static public File standardLogFile() {
    return getProgramFile("log");
  }

  static public void logQuoted(String logFile, String line) {
    logQuoted(getProgramFile(logFile), line);
  }

  static public void logQuoted(File logFile, String line) {
    appendToFile(logFile, quote(line) + "\n");
  }

  static public float getSwingFontScale() {
    return or((Float) vm_generalMap_get("swingFontScale_value"), 1f);
  }

  static public String localCourierFontName() {
    return isLinux() ? "Courier" : "Courier New";
  }

  static public IF0<Integer> preferredScreen;

  static public int preferredScreen() {
    return preferredScreen != null ? preferredScreen.get() : preferredScreen_base();
  }

  final static public int preferredScreen_fallback(IF0<Integer> _f) {
    return _f != null ? _f.get() : preferredScreen_base();
  }

  static public int preferredScreen_base() {
    return 0;
  }

  static public List vmBus_queryAll(String msg, Object... args) {
    Object arg = vmBus_wrapArgs(args);
    List out = new ArrayList();
    for (Object o : unnullForIteration(vm_busListeners_live())) addIfNotNull(out, pcallF(o, msg, arg));
    for (Object o : unnullForIteration(vm_busListenersByMessage_live().get(msg))) addIfNotNull(out, pcallF(o, msg, arg));
    return out;
  }

  static public Object dm_callOS(String functionName, Object... args) {
    return call(dm_os(), functionName, args);
  }

  static public Object dm_resolveModule(Object moduleOrStem) {
    return dm_callOS("resolveModule", moduleOrStem);
  }

  static public byte[] loadBinaryFilePart(File file, long start, long end) {
    try {
      if (file == null)
        return null;
      RandomAccessFile raf = new RandomAccessFile(file, "r");
      int n = toInt(min(raf.length(), end - start));
      byte[] buffer = new byte[n];
      try {
        raf.seek(start);
        raf.readFully(buffer, 0, n);
        return buffer;
      } finally {
        raf.close();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A> void scanForComponents(final Component c, final Class<A> theClass, final List<A> l) {
    if (theClass.isInstance(c))
      l.add((A) c);
    if (c instanceof Container) {
      swing(() -> {
        for (Component comp : ((Container) c).getComponents()) scanForComponents(comp, theClass, l);
      });
    }
  }

  static public Map<String, java.util.regex.Pattern> compileRegexpIC_cache = syncMRUCache(10);

  static public java.util.regex.Pattern compileRegexpIC(String pat) {
    java.util.regex.Pattern p = compileRegexpIC_cache.get(pat);
    if (p == null) {
      try {
        compileRegexpIC_cache.put(pat, p = java.util.regex.Pattern.compile(pat, Pattern.CASE_INSENSITIVE));
      } catch (PatternSyntaxException e) {
        throw rethrow(wrapPatternSyntaxException(e));
      }
    }
    return p;
  }

  static public Matcher regexpMatcher(String pat, String s) {
    return compileRegexp(pat).matcher(unnull(s));
  }

  static public Matcher regexpMatcher(java.util.regex.Pattern pat, String s) {
    return pat.matcher(unnull(s));
  }

  static public void setOptIfNotNull(Object o, String field, Object value) {
    if (value != null)
      setOpt(o, field, value);
  }

  static public Object mainBot;

  static public Object getMainBot() {
    return mainBot;
  }

  static public <A> A firstWithClassShortNamed(String shortName, Iterable<A> l) {
    if (l != null)
      for (A o : l) if (eq(shortClassName(o), shortName))
        return o;
    return null;
  }

  static public <A> A firstWithClassShortNamed(String shortName, A[] l) {
    if (l != null)
      for (A o : l) if (eq(shortClassName(o), shortName))
        return o;
    return null;
  }

  static public String imageServerLink(String md5OrID) {
    if (possibleMD5(md5OrID))
      return "https://botcompany.de/images/md5/" + md5OrID;
    return imageServerLink(parseSnippetID(md5OrID));
  }

  static public String imageServerLink(long id) {
    return "https://botcompany.de/images/" + id;
  }

  static public RootPaneContainer getPossiblyInternalFrame(Component c) {
    JInternalFrame f = getInternalFrame(c);
    if (f != null)
      return f;
    return optCast(RootPaneContainer.class, getWindow(c));
  }

  static public void setMenuBar(final JMenuBar mb, final RootPaneContainer f) {
    {
      swing(() -> {
        call(f, "setJMenuBar", mb);
        revalidate((Component) f);
      });
    }
  }

  static public void setMenuBar(RootPaneContainer f, JMenuBar mb) {
    setMenuBar(mb, f);
  }

  static public int textAreaTextLength(JTextComponent ta) {
    return l(getText(ta));
  }

  static public Rect rectFromPoints(int x1, int y1, int x2, int y2) {
    return pointsRect(x1, y1, x2, y2);
  }

  static public Rect rectFromPoints(Pt a, Pt b) {
    return pointsRect(a.x, a.y, b.x, b.y);
  }

  static public byte[] base64decode(String s) {
    byte[] alphaToInt = base64decode_base64toint;
    int sLen = s.length();
    int numGroups = sLen / 4;
    if (4 * numGroups != sLen)
      throw new IllegalArgumentException("String length must be a multiple of four.");
    int missingBytesInLastGroup = 0;
    int numFullGroups = numGroups;
    if (sLen != 0) {
      if (s.charAt(sLen - 1) == '=') {
        missingBytesInLastGroup++;
        numFullGroups--;
      }
      if (s.charAt(sLen - 2) == '=')
        missingBytesInLastGroup++;
    }
    byte[] result = new byte[3 * numGroups - missingBytesInLastGroup];
    int inCursor = 0, outCursor = 0;
    for (int i = 0; i < numFullGroups; i++) {
      int ch0 = base64decode_base64toint(s.charAt(inCursor++), alphaToInt);
      int ch1 = base64decode_base64toint(s.charAt(inCursor++), alphaToInt);
      int ch2 = base64decode_base64toint(s.charAt(inCursor++), alphaToInt);
      int ch3 = base64decode_base64toint(s.charAt(inCursor++), alphaToInt);
      result[outCursor++] = (byte) ((ch0 << 2) | (ch1 >> 4));
      result[outCursor++] = (byte) ((ch1 << 4) | (ch2 >> 2));
      result[outCursor++] = (byte) ((ch2 << 6) | ch3);
    }
    if (missingBytesInLastGroup != 0) {
      int ch0 = base64decode_base64toint(s.charAt(inCursor++), alphaToInt);
      int ch1 = base64decode_base64toint(s.charAt(inCursor++), alphaToInt);
      result[outCursor++] = (byte) ((ch0 << 2) | (ch1 >> 4));
      if (missingBytesInLastGroup == 1) {
        int ch2 = base64decode_base64toint(s.charAt(inCursor++), alphaToInt);
        result[outCursor++] = (byte) ((ch1 << 4) | (ch2 >> 2));
      }
    }
    return result;
  }

  static public int base64decode_base64toint(char c, byte[] alphaToInt) {
    int result = alphaToInt[c];
    if (result < 0)
      throw new IllegalArgumentException("Illegal character " + c);
    return result;
  }

  static final public byte[] base64decode_base64toint = { -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 62, -1, -1, -1, 63, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, -1, -1, -1, -1, -1, -1, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, -1, -1, -1, -1, -1, -1, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51 };

  static public <A> Comparator<A> reverseComparator(Comparator<A> c) {
    return (a, b) -> c.compare(b, a);
  }

  static public <A> Comparator<A> reverseComparator() {
    return (a, b) -> cmp(b, a);
  }

  static public betterCIComparator_C betterCIComparator_instance;

  static public betterCIComparator_C betterCIComparator() {
    if (betterCIComparator_instance == null)
      betterCIComparator_instance = new betterCIComparator_C();
    return betterCIComparator_instance;
  }

  final static public class betterCIComparator_C implements Comparator<String> {

    public int compare(String s1, String s2) {
      if (s1 == null)
        return s2 == null ? 0 : -1;
      if (s2 == null)
        return 1;
      int n1 = s1.length();
      int n2 = s2.length();
      int min = Math.min(n1, n2);
      for (int i = 0; i < min; i++) {
        char c1 = s1.charAt(i);
        char c2 = s2.charAt(i);
        if (c1 != c2) {
          c1 = Character.toUpperCase(c1);
          c2 = Character.toUpperCase(c2);
          if (c1 != c2) {
            c1 = Character.toLowerCase(c1);
            c2 = Character.toLowerCase(c2);
            if (c1 != c2) {
              return c1 - c2;
            }
          }
        }
      }
      return n1 - n2;
    }
  }

  static public AlphanumComparator alphaNumComparator_instance;

  static public Comparator<String> alphaNumComparator() {
    if (alphaNumComparator_instance == null)
      alphaNumComparator_instance = new AlphanumComparator();
    return alphaNumComparator_instance;
  }

  static public void setCaret(final JTextComponent c, final int pos) {
    if (c != null) {
      swing(() -> {
        c.setCaretPosition(pos);
      });
    }
  }

  static public boolean boolPar(ThreadLocal<Boolean> tl) {
    return boolOptParam(tl);
  }

  static public boolean boolPar(Object[] __, String name) {
    return boolOptParam(__, name);
  }

  static public boolean boolPar(String name, Object[] __) {
    return boolOptParam(__, name);
  }

  static public boolean boolPar(String name, Map __) {
    return boolOptParam(name, __);
  }

  static public boolean boolPar(String name, Object[] params, boolean defaultValue) {
    return optParam(params, name, defaultValue);
  }

  public static boolean isWindows() {
    return System.getProperty("os.name").contains("Windows");
  }

  static public JTextArea jTextAreaWithUndo() {
    return jTextAreaWithUndo("");
  }

  static public JTextArea jTextAreaWithUndo(final String text) {
    return jenableUndoRedo(swingNu(JTextArea.class, text));
  }

  static public void standardTitlePopupMenu(final JFrame frame) {
    if (!isSubstanceLAF())
      return;
    titlePopupMenu(frame, new VF1<JPopupMenu>() {

      public void get(JPopupMenu menu) {
        try {
          boolean alwaysOnTop = frame.isAlwaysOnTop();
          menu.add(jmenuItem("Restart Program", new Runnable() {

            public void run() {
              try {
                restart();
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "restart();";
            }
          }));
          menu.add(jmenuItem("Duplicate Program", new Runnable() {

            public void run() {
              try {
                duplicateThisProgram();
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "duplicateThisProgram();";
            }
          }));
          menu.add(jmenuItem("Show Console", new Runnable() {

            public void run() {
              try {
                showConsole();
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "showConsole();";
            }
          }));
          menu.add(jCheckBoxMenuItem("Always On Top", alwaysOnTop, new Runnable() {

            public void run() {
              try {
                toggleAlwaysOnTop(frame);
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "toggleAlwaysOnTop(frame)";
            }
          }));
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "bool alwaysOnTop = frame.isAlwaysOnTop();\r\n    ifndef standardTitlePopupMenu_...";
      }
    });
  }

  static public Integer centerX(Rect r) {
    return rectCenterX(r);
  }

  static public Integer centerY(Rect r) {
    return rectCenterY(r);
  }

  static public JFrame consoleFrame() {
    return (JFrame) getOpt(get(getJavaX(), "console"), "frame");
  }

  static public void autoVMExit() {
    call(getJavaX(), "autoVMExit");
  }

  static public boolean isCIMap(Map m) {
    return m instanceof TreeMap && ((TreeMap) m).comparator() == caseInsensitiveComparator();
  }

  static public Map<String, String> standardClassesMap() {
    return standardClassesMap_uncached();
  }

  static public List<String> stdFunctionListSnippetIDs() {
    return ll("#1006654", "#761");
  }

  static public Map<String, String> parseStdFunctionsList(String snippetSrc) {
    return parseStdFunctionsList(snippetSrc, new LinkedHashMap());
  }

  static public Map<String, String> parseStdFunctionsList(String snippetSrc, Map<String, String> map) {
    List<String> tok = javaTok(snippetSrc);
    int i = findCodeTokens(tok, "standardFunctions", "=", "litlist", "(");
    int opening = i + 6;
    int closing = indexOf(tok, ")", opening) - 1;
    for (i = opening + 2; i < closing; i += 4) {
      String[] f = unquote(tok.get(i)).split("/");
      map.put(f[1], f[0]);
    }
    return map;
  }

  static public boolean preferCached = false;

  static public boolean loadSnippet_debug = false;

  static public ThreadLocal<Boolean> loadSnippet_silent = new ThreadLocal();

  static public ThreadLocal<Boolean> loadSnippet_publicOnly = new ThreadLocal();

  static public int loadSnippet_timeout = 30000;

  static public String loadSnippet(String snippetID) {
    try {
      if (snippetID == null)
        return null;
      return loadSnippet(parseSnippetID(snippetID), preferCached);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String loadSnippet(String snippetID, boolean preferCached) throws IOException {
    return loadSnippet(parseSnippetID(snippetID), preferCached);
  }

  static public IF1<Long, String> loadSnippet;

  static public String loadSnippet(long snippetID) {
    return loadSnippet != null ? loadSnippet.get(snippetID) : loadSnippet_base(snippetID);
  }

  final static public String loadSnippet_fallback(IF1<Long, String> _f, long snippetID) {
    return _f != null ? _f.get(snippetID) : loadSnippet_base(snippetID);
  }

  static public String loadSnippet_base(long snippetID) {
    try {
      return loadSnippet(snippetID, preferCached);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String loadSnippet(long snippetID, boolean preferCached) throws IOException {
    if (isLocalSnippetID(snippetID))
      return loadLocalSnippet(snippetID);
    IResourceLoader rl = vm_getResourceLoader();
    if (rl != null)
      return rl.loadSnippet(fsI(snippetID));
    return loadSnippet_noResourceLoader(snippetID, preferCached);
  }

  static public String loadSnippet_noResourceLoader(long snippetID, boolean preferCached) throws IOException {
    String text;
    initSnippetCache();
    text = DiskSnippetCache_get(snippetID);
    if (preferCached && text != null)
      return text;
    try {
      if (loadSnippet_debug && text != null)
        System.err.println("md5: " + md5(text));
      String url = tb_mainServer() + "/getraw.php?id=" + snippetID + "&utf8=1";
      if (nempty(text))
        url += "&md5=" + md5(text);
      if (!isTrue(loadSnippet_publicOnly.get()))
        url += standardCredentials();
      String text2 = loadSnippet_loadFromServer(url);
      boolean same = eq(text2, "==*#*==");
      if (loadSnippet_debug)
        print("loadSnippet: same=" + same);
      if (!same)
        text = text2;
    } catch (RuntimeException e) {
      e.printStackTrace();
      throw new IOException("Snippet #" + snippetID + " not found or not public");
    }
    try {
      initSnippetCache();
      DiskSnippetCache_put(snippetID, text);
    } catch (IOException e) {
      System.err.println("Minor warning: Couldn't save snippet to cache (" + DiskSnippetCache_getDir() + ")");
    }
    return text;
  }

  static public File DiskSnippetCache_dir;

  public static void initDiskSnippetCache(File dir) {
    DiskSnippetCache_dir = dir;
    dir.mkdirs();
  }

  public static synchronized String DiskSnippetCache_get(long snippetID) throws IOException {
    return loadTextFile(DiskSnippetCache_getFile(snippetID).getPath(), null);
  }

  private static File DiskSnippetCache_getFile(long snippetID) {
    return new File(DiskSnippetCache_dir, "" + snippetID);
  }

  public static synchronized void DiskSnippetCache_put(long snippetID, String snippet) throws IOException {
    saveTextFile(DiskSnippetCache_getFile(snippetID).getPath(), snippet);
  }

  public static File DiskSnippetCache_getDir() {
    return DiskSnippetCache_dir;
  }

  public static void initSnippetCache() {
    if (DiskSnippetCache_dir == null)
      initDiskSnippetCache(getGlobalCache());
  }

  static public String loadSnippet_loadFromServer(String url) {
    Integer oldTimeout = setThreadLocal(loadPage_forcedTimeout_byThread, loadSnippet_timeout);
    try {
      return isTrue(loadSnippet_silent.get()) ? loadPageSilently(url) : loadPage(url);
    } finally {
      loadPage_forcedTimeout_byThread.set(oldTimeout);
    }
  }

  static public Border jCompoundBorder(Border inner, Border outer) {
    if (inner == null)
      return outer;
    if (outer == null)
      return inner;
    return BorderFactory.createCompoundBorder(inner, outer);
  }

  static public LayoutManager layoutManagerFromFunction(final Object layouter) {
    if (layouter instanceof LayoutManager)
      return ((LayoutManager) layouter);
    return new AbstractLayoutManager() {

      public void layoutContainer(Container parent) {
        Object size = pcallF(layouter, parent);
        if (size instanceof Dimension)
          preferredSize = (Dimension) size;
        else if (size instanceof Pair) {
          preferredSize = (Dimension) ((Pair) size).a;
          minimumSize = (Dimension) ((Pair) size).b;
        }
      }
    };
  }

  static public <A extends Container> A addAllComponents(A c, List<? extends Component> components) {
    if (nempty(components)) {
      swing(() -> {
        for (Component x : components) c.add(x);
        revalidate(c);
      });
    }
    return c;
  }

  static public <A extends Container> A addAllComponents(A c, Component... components) {
    return addAllComponents(c, asList(components));
  }

  static public String quoteIfNotIdentifierOrInteger(String s) {
    if (s == null)
      return null;
    return isJavaIdentifier(s) || isInteger(s) ? s : quote(s);
  }

  static public <A> TreeSet<A> treeSet() {
    return new TreeSet();
  }

  static public <A, B, C extends Map<A, B>> C syncMapRemove_deleteMapIfEmpty(C map, A key) {
    if (map != null && key != null)
      synchronized (collectionMutex(map)) {
        map.remove(key);
        if (map.isEmpty())
          return null;
      }
    return map;
  }

  static public boolean isInAnonymousClass(Object o) {
    if (o == null)
      return false;
    return isAnonymousClassName(className(o));
  }

  static public String fromUtf8(byte[] bytes) {
    try {
      return bytes == null ? null : new String(bytes, utf8charset());
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public boolean isMD5(String s) {
    return l(s) == 32 && isLowerHexString(s);
  }

  static public String addPrefix(String prefix, String s) {
    return s.startsWith(prefix) ? s : prefix + s;
  }

  static public <A extends JComponent> A bindListenerToComponent(A component, IHasChangeListeners source, Runnable listener) {
    if (source != null && listener != null)
      bindToComponent(component, new Runnable() {

        public void run() {
          try {
            source.onChangeAndNow(listener);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "source.onChangeAndNow(listener);";
        }
      }, new Runnable() {

        public void run() {
          try {
            source.removeChangeListener(listener);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "source.removeChangeListener(listener)";
        }
      });
    return component;
  }

  static public Map<String, List<String>> parse3_cachedInput_cache = synchronizedMRUCache(1000);

  static public List<String> parse3_cachedInput(String s) {
    List<String> tok = parse3_cachedInput_cache.get(s);
    if (tok == null)
      parse3_cachedInput_cache.put(s, tok = parse3(s));
    return tok;
  }

  static public Map<String, List<String>> parse3_cachedPattern_cache = synchronizedMRUCache(1000);

  static synchronized public List<String> parse3_cachedPattern(String s) {
    List<String> tok = parse3_cachedPattern_cache.get(s);
    if (tok == null)
      parse3_cachedPattern_cache.put(s, tok = parse3(s));
    return tok;
  }

  static public Lock downloadLock_lock = fairLock();

  static public Lock downloadLock() {
    return downloadLock_lock;
  }

  static public String getSnippetTitleOpt(String s) {
    try {
      return isSnippetID(s) ? getSnippetTitle(s) : s;
    } catch (Throwable __e) {
      pcallFail(__e);
    }
    return s;
  }

  static public void removeFromMultiPort(long vport) {
    if (vport == 0)
      return;
    for (Object port : getMultiPorts()) call(port, "removePort", vport);
  }

  static public String callStaticAnswerMethod(List bots, String s) {
    for (Object c : bots) try {
      String answer = callStaticAnswerMethod(c, s);
      if (!empty(answer))
        return answer;
    } catch (Throwable e) {
      print("Error calling " + getProgramID(c));
      e.printStackTrace();
    }
    return null;
  }

  static public String callStaticAnswerMethod(Object c, String s) {
    String answer = (String) callOpt(c, "answer", s, litlist(s));
    if (answer == null)
      answer = (String) callOpt(c, "answer", s);
    return emptyToNull(answer);
  }

  static public String callStaticAnswerMethod(String s) {
    return callStaticAnswerMethod(mc(), s);
  }

  static public String callStaticAnswerMethod(String s, List<String> history) {
    return callStaticAnswerMethod(mc(), s, history);
  }

  static public String callStaticAnswerMethod(Object c, String s, List<String> history) {
    String answer = (String) callOpt(c, "answer", s, history);
    if (answer == null)
      answer = (String) callOpt(c, "answer", s);
    return emptyToNull(answer);
  }

  static public List<Object> record_list = synchroList();

  static public void record(Object o) {
    record_list.add(o);
  }

  static public Object addToMultiPort_responder;

  static public long addToMultiPort(final String botName) {
    return addToMultiPort(botName, new Object() {

      public String answer(String s, List<String> history) {
        String answer = (String) (callOpt(getMainClass(), "answer", s, history));
        if (answer != null)
          return answer;
        answer = (String) callOpt(getMainClass(), "answer", s);
        if (answer != null)
          return answer;
        if (match3("get injection id", s))
          return getInjectionID();
        return null;
      }
    });
  }

  static public long addToMultiPort(final String botName, final Object responder) {
    addToMultiPort_responder = responder;
    startMultiPort();
    List ports = getMultiPorts();
    if (ports == null)
      return 0;
    if (ports.isEmpty())
      throw fail("No multiports!");
    if (ports.size() > 1)
      print("Multiple multi-ports. Using last one.");
    Object port = last(ports);
    Object responder2 = new Object() {

      public String answer(String s, List<String> history) {
        if (match3("get injection id", s))
          return getInjectionID();
        if (match3("your name", s))
          return botName;
        return (String) call(responder, "answer", s, history);
      }
    };
    record(responder2);
    return (Long) call(port, "addResponder", botName, responder2);
  }

  static public AtomicInteger dialogServer_clients = new AtomicInteger();

  static public boolean dialogServer_printConnects = false;

  static public ThreadLocal<Boolean> startDialogServer_quiet = new ThreadLocal();

  static public Set<String> dialogServer_knownClients = synchroTreeSet();

  static public int startDialogServerOnPortAbove(int port, IDialogHandler handler) {
    while (!forbiddenPort(port) && !startDialogServerIfPortAvailable(port, handler)) ++port;
    return port;
  }

  static public int startDialogServerOnPortAboveDaemon(int port, IDialogHandler handler) {
    while (!forbiddenPort(port) && !startDialogServerIfPortAvailable(port, handler, true)) ++port;
    return port;
  }

  static public void startDialogServer(int port, IDialogHandler handler) {
    if (!startDialogServerIfPortAvailable(port, handler))
      throw fail("Can't start dialog server on port " + port);
  }

  static public boolean startDialogServerIfPortAvailable(int port, final IDialogHandler handler) {
    return startDialogServerIfPortAvailable(port, handler, false);
  }

  static public ServerSocket startDialogServer_serverSocket;

  static public boolean startDialogServerIfPortAvailable(int port, final IDialogHandler handler, boolean daemon) {
    ServerSocket serverSocket = null;
    try {
      serverSocket = new ServerSocket(port);
    } catch (IOException e) {
      return false;
    }
    final ServerSocket _serverSocket = serverSocket;
    startDialogServer_serverSocket = serverSocket;
    Thread thread = new Thread("Socket accept port " + port) {

      public void run() {
        try {
          while (true) {
            try {
              final Socket s = _serverSocket.accept();
              String client = s.getInetAddress().toString();
              if (!dialogServer_knownClients.contains(client) && neq(client, "/127.0.0.1")) {
                print("connect from " + client + " - clients: " + dialogServer_clients.incrementAndGet());
                dialogServer_knownClients.add(client);
              }
              String threadName = "Handling client " + s.getInetAddress();
              Thread t2 = new Thread(threadName) {

                public void run() {
                  try {
                    final Writer w = new OutputStreamWriter(s.getOutputStream(), "UTF-8");
                    final BufferedReader in = new BufferedReader(new InputStreamReader(s.getInputStream(), "UTF-8"));
                    DialogIO io = new DialogIO() {

                      public boolean isLocalConnection() {
                        return s.getInetAddress().isLoopbackAddress();
                      }

                      public boolean isStillConnected() {
                        return !(eos || s.isClosed());
                      }

                      public void sendLine(String line) {
                        try {
                          w.write(line + "\n");
                          w.flush();
                        } catch (Exception __e) {
                          throw rethrow(__e);
                        }
                      }

                      public String readLineImpl() {
                        try {
                          return in.readLine();
                        } catch (Exception __e) {
                          throw rethrow(__e);
                        }
                      }

                      public void close() {
                        try {
                          s.close();
                        } catch (IOException e) {
                        }
                      }

                      public Socket getSocket() {
                        return s;
                      }
                    };
                    try {
                      handler.run(io);
                    } finally {
                      if (!io.noClose)
                        s.close();
                    }
                  } catch (IOException e) {
                    print("[internal] " + e);
                  } finally {
                  }
                }
              };
              t2.setDaemon(true);
              t2.start();
            } catch (SocketTimeoutException e) {
            }
          }
        } catch (IOException e) {
          print("[internal] " + e);
        }
      }
    };
    if (daemon)
      thread.setDaemon(true);
    thread.start();
    if (!isTrue(getAndClearThreadLocal(startDialogServer_quiet)))
      print("Dialog server on port " + port + " started.");
    return true;
  }

  static public boolean publicCommOn() {
    return "1".equals(loadTextFile(new File(userHome(), ".javax/public-communication")));
  }

  static public String processID_cached;

  static public String getPID() {
    if (processID_cached == null) {
      String name = ManagementFactory.getRuntimeMXBean().getName();
      processID_cached = name.replaceAll("@.*", "");
    }
    return processID_cached;
  }

  static public String getInjectionID() {
    return (String) call(getJavaX(), "getInjectionID", getMainClass());
  }

  static public Object callOptMC(String method, Object... args) {
    return callOpt(mc(), method, args);
  }

  static public <A> Set<A> cloneSet(Collection<A> set) {
    if (set == null)
      return new HashSet();
    synchronized (collectionMutex(set)) {
      Set<A> s = similarEmptySet(set);
      s.addAll(set);
      return s;
    }
  }

  static public List<String> trimAll(String... l) {
    return trimAll(asList(l));
  }

  static public List<String> trimAll(Collection<String> l) {
    List<String> l2 = new ArrayList();
    if (l != null)
      for (String s : l) l2.add(trim(s));
    return l2;
  }

  static public List<String> splitAtComma(String s) {
    return empty(s) ? emptyList() : asList(s.split(","));
  }

  static public int compareIC(String s1, String s2) {
    return compareIgnoreCase_jdk(s1, s2);
  }

  static public void revalidateFrame(Component c) {
    revalidate(getFrame(c));
  }

  static public Map<String, Font> loadFont_cached_cache = new HashMap();

  static synchronized public Font loadFont_cached(String snippetID) {
    try {
      snippetID = formatSnippetID(snippetID);
      Font f = loadFont_cached_cache.get(snippetID);
      if (f == null)
        loadFont_cached_cache.put(snippetID, f = loadFont(snippetID, 12f));
      return f;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static synchronized public Font loadFont_cached(String snippetID, float size) {
    try {
      return loadFont_cached(snippetID).deriveFont(size);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public boolean isLoopbackIP(String ip) {
    return eq(ip, "127.0.0.1");
  }

  static public int myVMPort() {
    List records = (List) (get(getJavaX(), "record_list"));
    Object android = last(records);
    return or0((Integer) get(android, "port"));
  }

  static public String thisVMGreeting() {
    List record_list = (List) (get(getJavaX(), "record_list"));
    Object android = first(record_list);
    return getString(android, "greeting");
  }

  static public String sendToThisVM_newThread(String s, Object... args) {
    final String _s = format(s, args);
    try {
      return (String) evalInNewThread(new F0<Object>() {

        public Object get() {
          try {
            return callStaticAnswerMethod(getJavaX(), _s);
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "return callStaticAnswerMethod(getJavaX(), _s);";
        }
      });
    } catch (Throwable e) {
      e = getInnerException(e);
      printStackTrace(e);
      return str(e);
    }
  }

  static public Object makeDependent_postProcess;

  static public void makeDependent(Object c) {
    if (c == null)
      return;
    assertTrue("Not a class", c instanceof Class);
    dependentClasses();
    hotwire_classes.add(new WeakReference(c));
    Object local_log = getOpt(mc(), "local_log");
    if (local_log != null)
      setOpt(c, "local_log", local_log);
    Object print_byThread = getOpt(mc(), "print_byThread");
    if (print_byThread != null)
      setOpt(c, "print_byThread", print_byThread);
    callF(makeDependent_postProcess, c);
  }

  static public int getScreenWidth() {
    return getScreenSize().width;
  }

  static public int getScreenHeight() {
    return getScreenSize().height;
  }

  static public TimeZone getTimeZone(String name) {
    return TimeZone.getTimeZone(name);
  }

  static public String standardTimeZone_name = "Europe/Berlin";

  static public String standardTimeZone() {
    return standardTimeZone_name;
  }

  static public List<String> tok_combineCurlyBrackets_keep(List<String> tok) {
    List<String> l = new ArrayList();
    for (int i = 0; i < l(tok); i++) {
      String t = tok.get(i);
      if (odd(i) && eq(t, "{")) {
        int j = findEndOfCurlyBracketPart(tok, i);
        l.add(joinSubList(tok, i, j));
        i = j - 1;
      } else
        l.add(t);
    }
    return l;
  }

  static public boolean startsWithAndEndsWith(String s, String prefix, String suffix) {
    return startsWith(s, prefix) && endsWith(s, suffix);
  }

  public static List<String> toLinesTrim(String s) {
    List<String> lines = new ArrayList<String>();
    int start = 0;
    while (true) {
      int i = toLinesTrim_nextLineBreak(s, start);
      if (i < 0) {
        if (s.length() > start)
          lines.add(rtrim(s.substring(start)));
        break;
      }
      lines.add(rtrim(s.substring(start, i)));
      if (s.charAt(i) == '\r' && i + 1 < s.length() && s.charAt(i + 1) == '\n')
        i += 2;
      else
        ++i;
      start = i;
    }
    return lines;
  }

  private static int toLinesTrim_nextLineBreak(String s, int start) {
    for (int i = start; i < s.length(); i++) {
      char c = s.charAt(i);
      if (c == '\r' || c == '\n')
        return i;
    }
    return -1;
  }

  static public <A> List<A> dropFirstThreeAndLastThree(List<A> l) {
    return dropFirstAndLast(3, l);
  }

  static public List<GraphicsDevice> screenDevices() {
    return asList(GraphicsEnvironment.getLocalGraphicsEnvironment().getScreenDevices());
  }

  static public Rect boundsRect(Component c) {
    return toRect(getBounds(c));
  }

  static public int rectArea(Rect r) {
    return r == null ? 0 : r.w * r.h;
  }

  static public <A> IterableIterator<A> iteratorFromFunction(final Object f) {
    class IFF extends IterableIterator<A> {

      public A a;

      public boolean done = false;

      public boolean hasNext() {
        getNext();
        return !done;
      }

      public A next() {
        getNext();
        if (done)
          throw fail();
        A _a = a;
        a = null;
        return _a;
      }

      public void getNext() {
        if (done || a != null)
          return;
        a = (A) callF(f);
        done = a == null;
      }
    }
    ;
    return new IFF();
  }

  static public <A> IterableIterator<A> iteratorFromFunction(F0<A> f) {
    return iteratorFromFunction_f0(f);
  }

  static public <A> IterableIterator<A> iteratorFromFunction(IF0<A> f) {
    return iteratorFromFunction_if0(f);
  }

  static public TableWithTooltips tableWithTooltips() {
    return (TableWithTooltips) swing(new F0<Object>() {

      public Object get() {
        try {
          return new TableWithTooltips();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return new TableWithTooltips;";
      }
    });
  }

  static public class TableWithTooltips extends JTable {

    public String getToolTipText(MouseEvent e) {
      String tip = null;
      Point p = e.getPoint();
      int rowIndex = rowAtPoint(p);
      int colIndex = columnAtPoint(p);
      try {
        return str(getValueAt(rowIndex, colIndex));
      } catch (Throwable _e) {
        return null;
      }
    }
  }

  static public void swingNowOrLater(Runnable r) {
    if (isAWTThread())
      r.run();
    else
      swingLater(r);
  }

  static public boolean isAllUpperCase(String s) {
    return hasLettersAllUpperCase(s);
  }

  static public boolean isUpperCaseLetter(char c) {
    return Character.isUpperCase(c);
  }

  static public boolean isStringStartingWith(Object o, String prefix) {
    return o instanceof String && ((String) o).startsWith(prefix);
  }

  static public String beautifyStructure(String s) {
    List<String> tok = javaTokForStructure(s);
    structure_addTokenMarkers(tok);
    jreplace(tok, "lhm", "");
    return join(tok);
  }

  static public Map<String, Integer> tableColumnWidthsByName(JTable table) {
    TableColumnModel tcm = table.getColumnModel();
    if (tcm == null)
      return null;
    int n = tcm.getColumnCount();
    TreeMap<String, Integer> map = new TreeMap();
    for (int i = 0; i < n; i++) {
      TableColumn tc = tcm.getColumn(i);
      map.put(str(tc.getHeaderValue()), tc.getWidth());
    }
    return map;
  }

  static public boolean tableSetColumnPreferredWidths_debug = false;

  static public void tableSetColumnPreferredWidths(final JTable table, final Map<String, Integer> widths) {
    if (table == null || widths == null)
      return;
    {
      swing(() -> {
        try {
          TableColumnModel tcm = table.getColumnModel();
          int n = tcm.getColumnCount();
          for (int i = 0; i < n; i++) {
            TableColumn tc = tcm.getColumn(i);
            Integer w = widths.get(str(tc.getHeaderValue()));
            if (w != null) {
              tc.setPreferredWidth(w);
              if (tableSetColumnPreferredWidths_debug)
                print("Setting preferred width of column " + i + " to " + w);
            }
          }
        } catch (Throwable __e) {
          pcallFail(__e);
        }
      });
    }
  }

  static public void tableSetColumnPreferredWidths(JTable table, Object... widths) {
    tableSetColumnPreferredWidths(table, litorderedmap(widths));
  }

  static public String[] asStringArray(Collection<String> c) {
    return toStringArray(c);
  }

  static public String[] asStringArray(Object o) {
    return toStringArray(o);
  }

  static public void consoleSetInput(final String text) {
    if (headless())
      return;
    setTextAndSelectAll(consoleInputField(), text);
    focusConsole();
  }

  static public MultiSetMap similarEmptyMultiSetMap(MultiSetMap m) {
    return similarEmptyMultiSetMap(m == null ? null : m.data);
  }

  static public MultiSetMap similarEmptyMultiSetMap(Map m) {
    MultiSetMap mm = new MultiSetMap();
    if (m != null)
      mm.data = similarEmptyMap(m);
    return mm;
  }

  static public <A> void forEach(Iterable<A> l, IVF1<A> f) {
    if (f != null && l != null)
      for (A a : l) callF(f, a);
  }

  static public <A> void forEach(IVF1<A> f, Iterable<A> l) {
    forEach(l, f);
  }

  static public <A> void forEach(A[] l, IVF1<A> f) {
    if (f != null && l != null)
      for (A a : l) callF(f, a);
  }

  static public <A> void forEach(IVF1<A> f, A[] l) {
    forEach(l, f);
  }

  static public <A, B> void forEach(Map<A, B> map, IVF2<A, B> f) {
    for (Map.Entry<? extends A, ? extends B> __0 : _entrySet(map)) {
      A a = __0.getKey();
      B b = __0.getValue();
      f.get(a, b);
    }
  }

  static public Object pcallFAll_returnFirstNotNull(Collection l, Object... args) {
    if (l != null)
      for (Object f : cloneList(l)) {
        var __1 = pcallF(f, args);
        if (__1 != null)
          return __1;
      }
    return null;
  }

  static public Object pcallFAll_returnFirstNotNull(Iterator it, Object... args) {
    while (it.hasNext()) {
      var __2 = pcallF(it.next(), args);
      if (__2 != null)
        return __2;
    }
    return null;
  }

  static public boolean allLowerCaseCharacters(String s) {
    for (int i = 0; i < l(s); i++) if (Character.getType(s.charAt(i)) != Character.LOWERCASE_LETTER)
      return false;
    return true;
  }

  static public ThreadLocal<Boolean> addInternalFrame_dontSelect = new ThreadLocal();

  static public ThreadLocal<Integer> addInternalFrame_layer = new ThreadLocal();

  static public ThreadLocal<Boolean> addInternalFrame_toBack = new ThreadLocal();

  static public JInternalFrame addInternalFrame(final JDesktopPane desktop, final String title, final int x, final int y, final int w, final int h) {
    return addInternalFrame(desktop, title, x, y, w, h, null);
  }

  static public JInternalFrame addInternalFrame(final JDesktopPane desktop, final String title, final int x, final int y, final int w, final int h, final Component contents) {
    return addInternalFrame(desktop, title, rect(x, y, w, h), contents);
  }

  static public JInternalFrame addInternalFrame(final JDesktopPane desktop, final String title, final Component contents) {
    return addInternalFrame(desktop, title, null, contents);
  }

  static public JInternalFrame addInternalFrame(final JDesktopPane desktop, final String title, final Rect r, final Component contents) {
    final boolean dontSelect = isTrue(optParam(addInternalFrame_dontSelect));
    final boolean toBack = isTrue(optParam(addInternalFrame_toBack));
    final Integer layer = optParam(addInternalFrame_layer);
    return swing(new F0<JInternalFrame>() {

      public JInternalFrame get() {
        try {
          JInternalFrame frame;
          if (contents instanceof JInternalFrame)
            frame = (JInternalFrame) contents;
          else {
            frame = jInternalFrame(title);
            setInternalFrameContents(frame, contents);
          }
          frame.setVisible(true);
          desktop.add(frame, layer);
          if (r != null)
            setBounds(frame, r);
          else
            internalFrameDefaultPosition(frame);
          if (dontSelect)
            if (toBack)
              frame.toBack();
            else
              frame.toFront();
          else
            frame.setSelected(true);
          return fixInternalFrame(frame);
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JInternalFrame frame;\r\n    if (contents instanceof JInternalFrame)\r\n      fra...";
      }
    });
  }

  static public JInternalFrame addInternalFrame(JDesktopPane desktop, String title) {
    return addInternalFrame(desktop, title, jpanel());
  }

  static public JInternalFrame minInternalFrameWidth(final JInternalFrame frame, final int w) {
    {
      swing(() -> {
        if (frame != null && frame.getWidth() < w)
          frame.setSize(w, frame.getHeight());
      });
    }
    return frame;
  }

  static public JInternalFrame minInternalFrameWidth(int w, JInternalFrame frame) {
    return minInternalFrameWidth(frame, w);
  }

  static public <A extends Component> A packInternalFrameVertically(A c) {
    return packInternalFrameVertically(-1, c);
  }

  static public <A extends Component> A packInternalFrameVertically(int width, A c) {
    final JInternalFrame win = getInternalFrame(c);
    if (win == null)
      return c;
    final int w = width < 0 ? win.getWidth() : width;
    {
      swing(() -> {
        win.pack();
        win.setSize(w, win.getHeight());
        fixInternalFrame(win);
      });
    }
    return c;
  }

  static public JInternalFrame centerInternalFrame(final JInternalFrame f) {
    {
      swing(() -> {
        Container c = f.getParent();
        if (c != null) {
          f.setLocation((c.getWidth() - f.getWidth()) / 2, (c.getHeight() - f.getHeight()) / 2);
        }
      });
    }
    return f;
  }

  static public JInternalFrame centerInternalFrame(final int w, final int h, final JInternalFrame f) {
    {
      swing(() -> {
        f.setSize(w, h);
      });
    }
    return centerInternalFrame(f);
  }

  static public List<String> toLowerCase(List<String> strings) {
    List<String> x = new ArrayList();
    for (String s : strings) x.add(s.toLowerCase());
    return x;
  }

  static public String[] toLowerCase(String[] strings) {
    String[] x = new String[l(strings)];
    for (int i = 0; i < l(strings); i++) x[i] = strings[i].toLowerCase();
    return x;
  }

  static public String toLowerCase(String s) {
    return s == null ? "" : s.toLowerCase();
  }

  static public String firstWord2(String s) {
    s = xltrim(s);
    if (empty(s))
      return "";
    if (isLetterOrDigit(first(s)))
      return takeCharsWhile(__102 -> isLetterOrDigit(__102), s);
    else
      return "" + first(s);
  }

  static public boolean matchStart(String pat, String s) {
    return matchStart(pat, s, null);
  }

  static public boolean matchStart(String pat, String s, Matches matches) {
    if (s == null)
      return false;
    return matchStart(pat, parse3_cachedInput(s), matches);
  }

  static public boolean matchStart(String pat, List<String> toks, Matches matches) {
    if (toks == null)
      return false;
    List<String> tokpat = parse3_cachedPattern(pat);
    if (toks.size() < tokpat.size())
      return false;
    String[] m = match2(tokpat, toks.subList(0, tokpat.size()));
    if (m == null)
      return false;
    if (matches != null) {
      matches.m = new String[m.length + 1];
      arraycopy(m, matches.m);
      matches.m[m.length] = joinSubList(toks, tokpat.size(), toks.size());
    }
    return true;
  }

  static public String sendToLocalBotOpt(String bot, String text, Object... args) {
    if (bot == null)
      return null;
    text = format(text, args);
    DialogIO channel = findBot(bot);
    try {
      if (channel == null) {
        print(quote(bot) + " not found, skipping send: " + quote(text));
        return null;
      }
      try {
        channel.readLine();
        print(shorten(bot + "> " + text, 200));
        channel.sendLine(text);
        String s = channel.readLine();
        print(shorten(bot + "< " + s, 200));
        return s;
      } catch (Throwable e) {
        e.printStackTrace();
        return null;
      }
    } finally {
      _close(channel);
    }
  }

  static public boolean exposeMethods2_debug = false;

  static public String exposeMethods2(Object receiver, String s, List<String> methodNames) {
    return exposeMethods2(receiver, s, methodNames, null);
  }

  static public String exposeMethods2(Object receiver, String s, List<String> methodNames, Lock lock) {
    Matches m = new Matches();
    if (exposeMethods2_debug)
      print("Received: " + s);
    if (match("call *", s, m)) {
      List l;
      if (isIdentifier(m.unq(0)))
        l = ll(m.unq(0));
      else
        l = (List) unstructure(m.unq(0));
      String method = getString(l, 0);
      if (!contains(methodNames, method))
        throw fail("Method not allowed: " + method);
      if (lock != null)
        lock.lock();
      try {
        if (exposeMethods2_debug)
          print("Calling: " + method);
        Object o = call(receiver, method, asObjectArray(subList(l, 1)));
        if (exposeMethods2_debug)
          print("Got: " + getClassName(o));
        return ok2(structure(o));
      } finally {
        if (lock != null)
          lock.unlock();
      }
    }
    if (match("list methods", s))
      return ok2(structure(methodNames));
    return null;
  }

  static public Map<String, java.util.regex.Pattern> compileRegexp_cache = syncMRUCache(10);

  static public java.util.regex.Pattern compileRegexp(String pat) {
    java.util.regex.Pattern p = compileRegexp_cache.get(pat);
    if (p == null) {
      compileRegexp_cache.put(pat, p = java.util.regex.Pattern.compile(pat));
    }
    return p;
  }

  static public List<File> listFilesOnly(String dir) {
    return listFilesOnly(new File(dir));
  }

  static public List<File> listFilesOnly(File... dirs) {
    return concatMap(dir -> listFilesWithSuffix("", dir), dirs);
  }

  static public <A, B> Comparator<A> mapComparator(final Map<A, B> map) {
    return new Comparator<A>() {

      public int compare(A a, A b) {
        return cmp(map.get(a), map.get(b));
      }
    };
  }

  static public boolean isCISet(Iterable<String> l) {
    return l instanceof TreeSet && ((TreeSet) l).comparator() == caseInsensitiveComparator();
  }

  static public String htmlencode_noQuotes(String s) {
    if (s == null)
      return "";
    int n = s.length();
    StringBuilder out = null;
    for (int i = 0; i < n; i++) {
      char c = s.charAt(i);
      if (c == '<') {
        if (out == null)
          out = new StringBuilder(Math.max(16, n)).append(takeFirst(i, s));
        out.append("&lt;");
      } else if (c == '>') {
        if (out == null)
          out = new StringBuilder(Math.max(16, n)).append(takeFirst(i, s));
        out.append("&gt;");
      } else if (c > 127 || c == '&') {
        int cp = s.codePointAt(i);
        if (out == null)
          out = new StringBuilder(Math.max(16, n)).append(takeFirst(i, s));
        out.append("&#x");
        out.append(intToHex_flexLength(cp));
        out.append(';');
        i += Character.charCount(cp) - 1;
      } else {
        if (out != null)
          out.append(c);
      }
    }
    return out == null ? s : out.toString();
  }

  static public ThreadLocal<Boolean> htmlencode_forParams_useV2 = new ThreadLocal();

  static public String htmlencode_forParams(String s) {
    if (s == null)
      return "";
    if (isTrue(htmlencode_forParams_useV2.get()))
      return htmlencode_forParams_v2(s);
    StringBuilder out = new StringBuilder(Math.max(16, s.length()));
    for (int i = 0; i < s.length(); i++) {
      char c = s.charAt(i);
      if (c > 127 || c == '"' || c == '<' || c == '>') {
        out.append("&#");
        out.append((int) c);
        out.append(';');
      } else
        out.append(c);
    }
    return out.toString();
  }

  static public int subclassDistance(Class a, Class b) {
    int n = 0;
    while (a != b) {
      a = a.getSuperclass();
      if (a == null)
        return Integer.MAX_VALUE;
      ++n;
    }
    return n;
  }

  static public BufferedImage drawImageOnImage(Image img, BufferedImage canvas, int x, int y) {
    createGraphics(canvas).drawImage(img, x, y, null);
    return canvas;
  }

  static public BufferedImage drawImageOnImage(Image img, BufferedImage canvas) {
    return drawImageOnImage(img, canvas, 0, 0);
  }

  static public Graphics2D graphics(BufferedImage img) {
    return imageGraphics(img);
  }

  static public String getStackTrace2(Throwable e) {
    return hideCredentials(getStackTrace(unwrapTrivialExceptionWraps(e)) + replacePrefix("java.lang.RuntimeException: ", "FAIL: ", hideCredentials(str(innerException2(e)))) + "\n");
  }

  static public <A, B> AutoCloseable tempRemove(Map<A, B> map, A key) {
    if (map == null || !map.containsKey(key))
      return null;
    B b = map.get(key);
    map.remove(key);
    return new AutoCloseable() {

      public String toString() {
        return "map.put(key, b);";
      }

      public void close() throws Exception {
        map.put(key, b);
      }
    };
  }

  static public String readerToString(Reader r) {
    try {
      if (r == null)
        return null;
      try {
        StringBuilder buf = new StringBuilder();
        int n = 0;
        while (true) {
          int ch = r.read();
          if (ch < 0)
            break;
          buf.append((char) ch);
          ++n;
        }
        return buf.toString();
      } finally {
        r.close();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public ThreadLocal realMC_tl_tl = new ThreadLocal();

  static public ThreadLocal realMC_tl() {
    return realMC_tl_tl;
  }

  static public long twoIntsToLong(int a, int b) {
    return (((long) a) << 32) | (((long) b) & 0xFFFFFFFFL);
  }

  static public int intFromBytes(byte[] a, int i) {
    return ubyteToInt(a[i]) << 24 | ubyteToInt(a[i + 1]) << 16 | ubyteToInt(a[i + 2]) << 8 | ubyteToInt(a[i + 3]);
  }

  static public void restart() {
    Object j = getJavaX();
    call(j, "cleanRestart", get(j, "fullArgs"));
  }

  static public Pair pairMap(Object f, Pair p) {
    return p == null ? null : pair(callF(f, p.a), callF(f, p.b));
  }

  static public <A> Pair<A, A> pairMap(IF1<A, A> f, Pair<A, A> p) {
    return p == null ? null : pair(callF(f, p.a), callF(f, p.b));
  }

  static public Pair pairMap(Pair p, Object f) {
    return pairMap(f, p);
  }

  static public File imageSnippetCacheFile(String snippetID) {
    File dir = imageSnippetsCacheDir();
    if (!loadBufferedImage_useImageCache)
      return null;
    return new File(dir, parseSnippetID(snippetID) + ".png");
  }

  static public String snippetImageURL_noHttps(String snippetID) {
    return snippetImageURL_noHttps(snippetID, "png");
  }

  static public String snippetImageURL_noHttps(String snippetID, String contentType) {
    return snippetImageURL(snippetID, contentType).replace("https://www.botcompany.de:8443/", "http://www.botcompany.de:8080/").replace("https://botcompany.de/", "http://botcompany.de/");
  }

  static public ThreadLocal<Map<String, List<String>>> loadBinaryPage_responseHeaders = new ThreadLocal();

  static public ThreadLocal<Map<String, String>> loadBinaryPage_extraHeaders = new ThreadLocal();

  static public byte[] loadBinaryPage(String url) {
    try {
      print("Loading " + url);
      return loadBinaryPage(loadPage_openConnection(new URL(url)));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public byte[] loadBinaryPage(URLConnection con) {
    try {
      Map<String, String> extraHeaders = getAndClearThreadLocal(loadBinaryPage_extraHeaders);
      setHeaders(con);
      for (String key : keys(extraHeaders)) con.setRequestProperty(key, extraHeaders.get(key));
      return loadBinaryPage_noHeaders(con);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public byte[] loadBinaryPage_noHeaders(URLConnection con) {
    try {
      ByteArrayOutputStream buf = new ByteArrayOutputStream();
      InputStream inputStream = con.getInputStream();
      loadBinaryPage_responseHeaders.set(con.getHeaderFields());
      long len = 0;
      try {
        len = con.getContentLength();
      } catch (Throwable e) {
        printStackTrace(e);
      }
      int n = 0;
      while (true) {
        int ch = inputStream.read();
        if (ch < 0)
          break;
        buf.write(ch);
        if (++n % 100000 == 0)
          println("  " + n + (len != 0 ? "/" + len : "") + " bytes loaded.");
      }
      inputStream.close();
      return buf.toByteArray();
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public File getGlobalCache() {
    File file = new File(javaxCachesDir(), "Binary Snippets");
    file.mkdirs();
    return file;
  }

  static public long psI(String snippetID) {
    return parseSnippetID(snippetID);
  }

  static public String dataSnippetLink(String snippetID) {
    long id = parseSnippetID(snippetID);
    if (id >= 1100000 && id < 1200000)
      return imageServerURL() + id;
    if (id >= 1200000 && id < 1300000) {
      String pw = muricaPassword();
      if (empty(pw))
        throw fail("Please set 'murica password by running #1008829");
      return "https://botcompany.de/files/" + id + "?_pass=" + pw;
    }
    return fileServerURL() + "/" + id;
  }

  static public String tb_mainServer_default = "https://code.botcompany.de:9898";

  static public Object tb_mainServer_override;

  static public String tb_mainServer() {
    if (tb_mainServer_override != null)
      return (String) callF(tb_mainServer_override);
    return trim(loadTextFile(tb_mainServer_file(), tb_mainServer_default));
  }

  static public File tb_mainServer_file() {
    return getProgramFile("#1001638", "mainserver.txt");
  }

  static public boolean tb_mainServer_isDefault() {
    return eq(tb_mainServer(), tb_mainServer_default);
  }

  static public Cache<Boolean> isLinux_cache = new Cache<>(() -> isLinux_load());

  static public boolean isLinux() {
    return isLinux_cache.get();
  }

  static public Boolean isLinux_load() {
    return !isWindows() && !isMac() && !isAndroid();
  }

  static public <A, B> Map<A, B> syncMRUCache(int size) {
    return synchroMap(new MRUCache(size));
  }

  static public RuntimeException wrapPatternSyntaxException(PatternSyntaxException e) {
    if (e == null)
      return null;
    String pat = e.getPattern();
    int i = e.getIndex();
    return new RuntimeException("Regular expression error between " + multiLineQuoteWithSpaces(substring(pat, 0, i)) + " and " + multiLineQuoteWithSpaces(substring(pat, i)) + " - " + e.getMessage());
  }

  static public Rect pointsRect(int x1, int y1, int x2, int y2) {
    return new Rect(x1, y1, x2 - x1, y2 - y1);
  }

  static public boolean isSubstanceLAF() {
    return substanceLookAndFeelEnabled();
  }

  static public boolean titlePopupMenu(final Component c, final Object menuMaker) {
    JComponent titleBar = getTitlePaneComponent(getPossiblyInternalFrame(c));
    if (titleBar == null) {
      print("Can't add title right click!");
      return false;
    } else {
      componentPopupMenu(titleBar, menuMaker);
      return true;
    }
  }

  static public void duplicateThisProgram() {
    nohupJavax(trim(programID() + " " + smartJoin((String[]) get(getJavaX(), "fullArgs"))));
  }

  static public JCheckBoxMenuItem jCheckBoxMenuItem(String text, boolean checked, final Object r) {
    final JCheckBoxMenuItem mi = swing(() -> new JCheckBoxMenuItem(text, checked));
    addActionListener(mi, new Runnable() {

      public void run() {
        try {
          callF(r, isChecked(mi));
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "callF(r, isChecked(mi))";
      }
    });
    return mi;
  }

  static public JCheckBoxMenuItem jCheckBoxMenuItem(String text, boolean checked, IVF1<Boolean> r) {
    return jCheckBoxMenuItem(text, checked, (Object) r);
  }

  static public void toggleAlwaysOnTop(Window frame) {
    if (frame == null)
      return;
    {
      swing(() -> {
        frame.setAlwaysOnTop(!frame.isAlwaysOnTop());
      });
    }
  }

  static public Integer rectCenterX(Rect r) {
    return r == null ? null : r.x + r.w / 2;
  }

  static public Integer rectCenterY(Rect r) {
    return r == null ? null : r.y + r.h / 2;
  }

  static public Map<String, String> standardClassesMap_uncached() {
    Map<String, String> map = new HashMap();
    for (String snippetID : standardClassesSnippetIDs()) for (String line : tlft_j(loadSnippet(snippetID))) {
      int idx = line.indexOf('/');
      map.put(takeFirst(idx, line), substring(line, idx + 1));
    }
    return map;
  }

  static public boolean isLocalSnippetID(String snippetID) {
    return isSnippetID(snippetID) && isLocalSnippetID(psI(snippetID));
  }

  static public boolean isLocalSnippetID(long snippetID) {
    return snippetID >= 1000 && snippetID <= 9999;
  }

  static public String loadLocalSnippet(String snippetID) {
    return loadLocalSnippet(psI(snippetID));
  }

  static public String loadLocalSnippet(long snippetID) {
    return loadTextFile(localSnippetFile(snippetID));
  }

  static public String standardCredentials() {
    String user = standardCredentialsUser();
    String pass = standardCredentialsPass();
    if (nempty(user) && nempty(pass))
      return "&_user=" + urlencode(user) + "&_pass=" + urlencode(pass);
    return "";
  }

  static public int loadPage_defaultTimeout = 60000;

  static public ThreadLocal<String> loadPage_charset = new ThreadLocal();

  static public boolean loadPage_allowGzip = true, loadPage_debug;

  static public boolean loadPage_anonymous = false;

  static public int loadPage_verboseness = 100000;

  static public int loadPage_retries = 1;

  static public ThreadLocal<Boolean> loadPage_silent = new ThreadLocal();

  static volatile public int loadPage_forcedTimeout;

  static public ThreadLocal<Integer> loadPage_forcedTimeout_byThread = new ThreadLocal();

  static public ThreadLocal<Map<String, List<String>>> loadPage_responseHeaders = new ThreadLocal();

  static public ThreadLocal<Map<String, String>> loadPage_extraHeaders = new ThreadLocal();

  static public ThreadLocal<Long> loadPage_sizeLimit = new ThreadLocal();

  public static String loadPageSilently(String url) {
    try {
      return loadPageSilently(new URL(loadPage_preprocess(url)));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  public static String loadPageSilently(URL url) {
    try {
      if (!networkAllowanceTest(str(url)))
        throw fail("Not allowed: " + url);
      IOException e = null;
      for (int tries = 0; tries < loadPage_retries; tries++) try {
        URLConnection con = loadPage_openConnection(url);
        return loadPage(con, url);
      } catch (IOException _e) {
        e = _e;
        if (loadPage_debug)
          print(exceptionToStringShort(e));
        if (tries < loadPage_retries - 1)
          sleepSeconds(1);
      }
      throw e;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String loadPage_preprocess(String url) {
    if (url.startsWith("tb/"))
      url = tb_mainServer() + "/" + url;
    if (url.indexOf("://") < 0)
      url = "http://" + url;
    return url;
  }

  static public String loadPage(String url) {
    try {
      url = loadPage_preprocess(url);
      if (!isTrue(loadPage_silent.get()))
        printWithTime("Loading: " + hideCredentials(url));
      return loadPageSilently(new URL(url));
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String loadPage(URL url) {
    return loadPage(url.toExternalForm());
  }

  static public String loadPage(URLConnection con, URL url) throws IOException {
    return loadPage(con, url, true);
  }

  static public String loadPage(URLConnection con, URL url, boolean addHeaders) {
    try {
      Map<String, String> extraHeaders = getAndClearThreadLocal(loadPage_extraHeaders);
      if (addHeaders)
        try {
          if (!loadPage_anonymous)
            setHeaders(con);
          if (loadPage_allowGzip)
            con.setRequestProperty("Accept-Encoding", "gzip");
          con.setRequestProperty("X-No-Cookies", "1");
          for (String key : keys(extraHeaders)) con.setRequestProperty(key, extraHeaders.get(key));
        } catch (Throwable e) {
        }
      return loadPage(con);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String loadPage(URLConnection con) {
    try {
      Long limit = optPar(loadPage_sizeLimit);
      URL url = con.getURL();
      vm_generalSubMap("URLConnection per thread").put(currentThread(), con);
      loadPage_responseHeaders.set(con.getHeaderFields());
      InputStream in = null;
      try {
        in = urlConnection_getInputStream(con);
        if (loadPage_debug)
          print("Put stream in map: " + currentThread());
        String contentType = con.getContentType();
        if (contentType == null) {
          throw new IOException("Page could not be read: " + hideCredentials(url));
        }
        String charset = loadPage_charset == null ? null : loadPage_charset.get();
        if (charset == null)
          charset = loadPage_guessCharset(contentType);
        if ("gzip".equals(con.getContentEncoding())) {
          if (loadPage_debug)
            print("loadPage: Using gzip.");
          in = newGZIPInputStream(in);
        }
        Reader r;
        try {
          r = new InputStreamReader(in, unquote(charset));
        } catch (UnsupportedEncodingException e) {
          print(toHex(utf8(charset)));
          throw e;
        }
        boolean silent = isTrue(loadPage_silent.get());
        StringBuilder buf = new StringBuilder();
        int n = 0;
        while (limit == null || n < limit) {
          ping();
          int ch = r.read();
          if (ch < 0)
            break;
          buf.append((char) ch);
          ++n;
          if (!silent && (n % loadPage_verboseness) == 0)
            print("  " + n + " chars read");
        }
        return buf.toString();
      } finally {
        if (loadPage_debug)
          print("loadPage done");
        vm_generalSubMap("URLConnection per thread").remove(currentThread());
        if (in != null)
          in.close();
      }
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String loadPage_guessCharset(String contentType) {
    Matcher m = regexpMatcher("text/[a-z]+;\\s*charset=([^\\s]+)\\s*", contentType);
    String match = m.matches() ? m.group(1) : null;
    if (loadPage_debug)
      print("loadPage: contentType=" + contentType + ", match: " + match);
    return or(match, "UTF-8");
  }

  static public URLConnection loadPage_openConnection(URL url) {
    URLConnection con = openConnection(url);
    int timeout = toInt(loadPage_forcedTimeout_byThread.get());
    if (timeout == 0)
      timeout = loadPage_forcedTimeout;
    if (timeout != 0)
      setURLConnectionTimeouts(con, loadPage_forcedTimeout);
    else
      setURLConnectionDefaultTimeouts(con, loadPage_defaultTimeout);
    return con;
  }

  static public boolean isLowerHexString(String s) {
    for (int i = 0; i < l(s); i++) {
      char c = s.charAt(i);
      if (c >= '0' && c <= '9' || c >= 'a' && c <= 'f') {
      } else
        return false;
    }
    return true;
  }

  static public List<String> parse3(String s) {
    return dropPunctuation(javaTokPlusPeriod(s));
  }

  static public String getSnippetTitle(String id) {
    if (id == null)
      return null;
    if (!isSnippetID(id))
      return "?";
    IResourceLoader rl = vm_getResourceLoader();
    if (rl != null)
      return rl.getSnippetTitle(id);
    return getSnippetTitle_noResourceLoader(id);
  }

  static public String getSnippetTitle_noResourceLoader(String id) {
    try {
      if (isLocalSnippetID(id))
        return localSnippetTitle(id);
      long parsedID = parseSnippetID(id);
      String url;
      if (isImageServerSnippet(parsedID))
        url = imageServerURL() + "title/" + parsedID + muricaCredentialsQuery();
      else if (isGeneralFileServerSnippet(parsedID))
        url = "http://butter.botcompany.de:8080/files/name/" + parsedID;
      else
        url = tb_mainServer() + "/tb-int/getfield.php?id=" + parsedID + "&field=title" + standardCredentials_noCookies();
      String title = trim(loadPageSilently(url));
      if (title != null)
        try {
          saveTextFileIfChanged(snippetTitle_cacheFile(id), title);
        } catch (Throwable __e) {
          print(exceptionToStringShort(__e));
        }
      return or(title, "?");
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public String getSnippetTitle(long id) {
    return getSnippetTitle(fsI(id));
  }

  static public List<Object> getMultiPorts() {
    return (List) callOpt(getJavaX(), "getMultiPorts");
  }

  static public String emptyToNull(String s) {
    return eq(s, "") ? null : s;
  }

  static public <A, B> Map<A, B> emptyToNull(Map<A, B> map) {
    return empty(map) ? null : map;
  }

  static public void startMultiPort() {
    List mp = getMultiPorts();
    if (mp != null && mp.isEmpty()) {
      nohupJavax("#1001639");
      throw fail("Upgrading JavaX, please restart this program afterwards.");
    }
  }

  static public <A> Set<A> synchroTreeSet() {
    return Collections.synchronizedSet(new TreeSet<A>());
  }

  static public <A> Set<A> synchroTreeSet(TreeSet<A> set) {
    return Collections.synchronizedSet(set);
  }

  static public boolean forbiddenPort(int port) {
    return port == 5037;
  }

  static public int compareIgnoreCase_jdk(String s1, String s2) {
    if (s1 == null)
      return s2 == null ? 0 : -1;
    if (s2 == null)
      return 1;
    int n1 = s1.length();
    int n2 = s2.length();
    int min = Math.min(n1, n2);
    for (int i = 0; i < min; i++) {
      char c1 = s1.charAt(i);
      char c2 = s2.charAt(i);
      if (c1 != c2) {
        c1 = Character.toUpperCase(c1);
        c2 = Character.toUpperCase(c2);
        if (c1 != c2) {
          c1 = Character.toLowerCase(c1);
          c2 = Character.toLowerCase(c2);
          if (c1 != c2)
            return c1 - c2;
        }
      }
    }
    return n1 - n2;
  }

  static public Font loadFont(String snippetID) {
    try {
      return loadFont(snippetID, 12f);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Font loadFont(InputStream in) {
    try {
      return Font.createFont(Font.TRUETYPE_FONT, in);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Font loadFont(String snippetID, float fontSize) {
    return loadFont(loadLibrary(snippetID), fontSize);
  }

  static public Font loadFont(File f, float fontSize) {
    try {
      return Font.createFont(Font.TRUETYPE_FONT, f).deriveFont(fontSize);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public Font loadFont(InputStream in, float fontSize) {
    try {
      return Font.createFont(Font.TRUETYPE_FONT, in).deriveFont(fontSize);
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public int or0(Integer i) {
    return i == null ? 0 : i;
  }

  static public long or0(Long l) {
    return l == null ? 0L : l;
  }

  static public double or0(Double d) {
    return d == null ? 0.0 : d;
  }

  static public String getString(Map map, Object key) {
    return map == null ? null : (String) map.get(key);
  }

  static public String getString(List l, int idx) {
    return (String) get(l, idx);
  }

  static public String getString(Object o, Object key) {
    if (o instanceof Map)
      return getString((Map) o, key);
    if (key instanceof String)
      return (String) getOpt(o, (String) key);
    throw fail("Not a string key: " + getClassName(key));
  }

  static public String getString(String key, Object o) {
    return getString(o, (Object) key);
  }

  static public Object evalInNewThread(final Object f) {
    final Flag flag = new Flag();
    final Var var = new Var();
    final Var<Throwable> exception = new Var();
    {
      startThread(new Runnable() {

        public void run() {
          try {
            try {
              var.set(callF(f));
            } catch (Throwable e) {
              exception.set(e);
            }
            flag.raise();
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "try {\r\n      var.set(callF(f));\r\n    } catch (Throwable e) {\r\n      exception...";
        }
      });
    }
    flag.waitUntilUp();
    if (exception.has())
      throw rethrow(exception.get());
    return var.get();
  }

  static public List<Class> dependentClasses() {
    return cleanUpAndGetWeakReferencesList(hotwire_classes);
  }

  static public Dimension getScreenSize() {
    return Toolkit.getDefaultToolkit().getScreenSize();
  }

  static public Dimension getScreenSize(int iScreen) {
    return toDimension(screenBounds(iScreen).widthAndHeight());
  }

  static public int findEndOfCurlyBracketPart(List<String> cnc, int i) {
    int j = i + 2, level = 1;
    while (j < cnc.size()) {
      if (eq(cnc.get(j), "{"))
        ++level;
      else if (eq(cnc.get(j), "}"))
        --level;
      if (level == 0)
        return j + 1;
      ++j;
    }
    return cnc.size();
  }

  static public <A> List<A> dropFirstAndLast(int n, List<A> l) {
    return cloneSubList(l, n, l(l) - n);
  }

  static public <A> List<A> dropFirstAndLast(int m, int n, List<A> l) {
    return cloneSubList(l, m, l(l) - n);
  }

  static public <A> List<A> dropFirstAndLast(List<A> l) {
    return dropFirstAndLast(1, l);
  }

  static public String dropFirstAndLast(String s) {
    return substring(s, 1, l(s) - 1);
  }

  static public Rectangle getBounds(final Component c) {
    return c == null ? null : swing(new F0<Rectangle>() {

      public Rectangle get() {
        try {
          return c.getBounds();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.getBounds();";
      }
    });
  }

  static public <A> IterableIterator<A> iteratorFromFunction_f0(final F0<A> f) {
    class IFF2 extends IterableIterator<A> {

      public A a;

      public boolean done = false;

      public boolean hasNext() {
        getNext();
        return !done;
      }

      public A next() {
        getNext();
        if (done)
          throw fail();
        A _a = a;
        a = null;
        return _a;
      }

      public void getNext() {
        if (done || a != null)
          return;
        a = f.get();
        done = a == null;
      }
    }
    ;
    return new IFF2();
  }

  static public <A> IterableIterator<A> iteratorFromFunction_if0(final IF0<A> f) {
    class IFF2 extends IterableIterator<A> {

      public A a;

      public boolean done = false;

      public boolean hasNext() {
        getNext();
        return !done;
      }

      public A next() {
        getNext();
        if (done)
          throw fail();
        A _a = a;
        a = null;
        return _a;
      }

      public void getNext() {
        if (done || a != null)
          return;
        a = f.get();
        done = a == null;
      }
    }
    ;
    return new IFF2();
  }

  static public boolean hasLettersAllUpperCase(String s) {
    return hasLetters(s) && !containsLowerCase(s);
  }

  static public List<String> javaTokForStructure(String s) {
    return javaTok_noMLS(s);
  }

  static public String structure_addTokenMarkers(String s) {
    return join(structure_addTokenMarkers(javaTokForStructure(s)));
  }

  static public List<String> structure_addTokenMarkers(List<String> tok) {
    TreeSet<Integer> refs = new TreeSet();
    for (int i = 1; i < l(tok); i += 2) {
      String t = tok.get(i);
      if (t.startsWith("t") && isInteger(t.substring(1)))
        refs.add(parseInt(t.substring(1)));
    }
    if (empty(refs))
      return tok;
    for (int i : refs) {
      int idx = i * 2 + 1;
      if (idx >= l(tok))
        continue;
      String t = "";
      if (endsWithLetterOrDigit(tok.get(idx - 1)))
        t = " ";
      tok.set(idx, t + "m" + i + " " + tok.get(idx));
    }
    return tok;
  }

  static public boolean headless() {
    return isHeadless();
  }

  static public JTextField setTextAndSelectAll(final JTextField tf, final String text) {
    if (tf != null) {
      swing(() -> {
        tf.setText(text);
        tf.selectAll();
      });
    }
    return tf;
  }

  static public JTextField consoleInputField() {
    Object console = get(getJavaX(), "console");
    return (JTextField) getOpt(console, "tfInput");
  }

  static public void focusConsole(String s) {
    setConsoleInput(s);
    focusConsole();
  }

  static public void focusConsole() {
    JComponent tf = consoleInputFieldOrComboBox();
    if (tf != null) {
      tf.requestFocus();
    }
  }

  static public List<WeakReference<Class>> hotwire_classes = synchroList();

  static public Class<?> hotwireDependent(String src) {
    Class c = hotwire(src);
    makeDependent(c);
    return c;
  }

  static public boolean jInternalFrame_iconifiable = true;

  static public JInternalFrame jInternalFrame() {
    return jInternalFrame("");
  }

  static public JInternalFrame jInternalFrame(final String title) {
    return swing(new F0<JInternalFrame>() {

      public JInternalFrame get() {
        try {
          JInternalFrame f = new JInternalFrame(title, true, true, true, jInternalFrame_iconifiable);
          f.setVisible(true);
          return f;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JInternalFrame f = new JInternalFrame(title, true, true, true, jInternalFrame...";
      }
    });
  }

  static public void setInternalFrameContents(final Component c, final Object contents) {
    {
      swing(() -> {
        JInternalFrame frame = getInternalFrame(c);
        if (frame == null)
          return;
        frame.getContentPane().removeAll();
        frame.getContentPane().setLayout(new BorderLayout());
        if (contents != null)
          frame.getContentPane().add(wrap(contents));
        revalidate(frame);
      });
    }
  }

  static public <A extends Component> A setBounds(final int x, final int y, final int w, final int h, final A a) {
    if (a != null) {
      swing(() -> {
        a.setBounds(x, y, w, h);
      });
    }
    return a;
  }

  static public <A extends Component> A setBounds(A a, Rect r) {
    if (a != null && r != null) {
      swing(() -> {
        a.setBounds(toRectangle(r));
      });
    }
    return a;
  }

  static public <A extends Component> A setBounds(A a, Rectangle r) {
    if (a != null && r != null) {
      swing(() -> {
        a.setBounds(r);
      });
    }
    return a;
  }

  static public <A extends Component> A setBounds(Rect r, A a) {
    return setBounds(a, r);
  }

  static public <A extends Component> A setBounds(A a, int x, int y, int w, int h) {
    return setBounds(x, y, w, h, a);
  }

  static public void internalFrameDefaultPosition(JInternalFrame f) {
    f.setSize(500, 300);
    centerInternalFrame(f);
  }

  static public int fixInternalFrame_borderTopLeft = 0;

  static public int fixInternalFrame_borderBottomRight = 40;

  static public JInternalFrame fixInternalFrame(final JInternalFrame f) {
    return swing(new F0<JInternalFrame>() {

      public JInternalFrame get() {
        try {
          Container c = f.getParent();
          if (c == null)
            return f;
          Rect r = toRect(f.getBounds());
          int a = fixInternalFrame_borderTopLeft, b = fixInternalFrame_borderBottomRight;
          Rect outer = new Rect(a, a, c.getWidth() - b, c.getHeight() - b);
          if (!rectContains(outer, r))
            f.setLocation(max(a, min(r.x, outer.x2())), max(a, min(r.y, outer.y2())));
          if (r.w > c.getWidth() || r.h > c.getHeight())
            f.setSize(c.getWidth() - a, c.getHeight() - a);
          return f;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "Container c = f.getParent();\r\n    if (c == null) ret f;\r\n    Rect r = toRect(...";
      }
    });
  }

  static public String xltrim(String s) {
    int i = 0, n = l(s);
    while (i < n && contains(" \t\r\n", s.charAt(i))) ++i;
    return substr(s, i);
  }

  static public String takeCharsWhile(String s, Object pred) {
    int i = 0;
    while (i < l(s) && isTrue(callF(pred, s.charAt(i)))) ++i;
    return substring(s, 0, i);
  }

  static public String takeCharsWhile(IF1<Character, Boolean> f, String s) {
    return takeCharsWhile(s, f);
  }

  static public String ok2(String s) {
    return "ok " + s;
  }

  static public String intToHex_flexLength(int i) {
    return Integer.toHexString(i);
  }

  static public String htmlencode_forParams_v2(String s) {
    if (s == null)
      return "";
    StringBuilder out = new StringBuilder(Math.max(16, s.length()));
    for (int i = 0; i < s.length(); i++) {
      char c = s.charAt(i);
      if (c > 127 || c == '"' || c == '<' || c == '>' || c == '&') {
        out.append("&#");
        out.append((int) c);
        out.append(';');
      } else
        out.append(c);
    }
    return out.toString();
  }

  static public Map<BufferedImage, Object> createGraphics_modulators = synchroIdentityHashMap();

  static public Graphics2D createGraphics(BufferedImage img) {
    Graphics2D g = img.createGraphics();
    Object mod = createGraphics_modulators.get(img);
    if (mod != null)
      callF(mod, g);
    return g;
  }

  static public void createGraphics_modulate(BufferedImage img, Object mod) {
    mapPut2(createGraphics_modulators, img, mod);
  }

  static public ThreadLocal<Boolean> imageGraphics_antiAlias = new ThreadLocal();

  static public Graphics2D imageGraphics(BufferedImage img) {
    return !isFalse(imageGraphics_antiAlias.get()) ? antiAliasGraphics(img) : createGraphics(img);
  }

  static public Throwable unwrapTrivialExceptionWraps(Throwable e) {
    if (e == null)
      return e;
    while (e.getClass() == RuntimeException.class && e.getCause() != null && eq(e.getMessage(), str(e.getCause()))) e = e.getCause();
    return e;
  }

  static public <A> A println(A a) {
    return print(a);
  }

  static public String imageServerURL() {
    return or2(trim(loadTextFile(javaxDataDir("image-server-url.txt"))), "http://botcompany.de/images/raw/");
  }

  static volatile public boolean muricaPassword_pretendNotAuthed = false;

  static public String muricaPassword() {
    if (muricaPassword_pretendNotAuthed)
      return null;
    return trim(loadTextFile(muricaPasswordFile()));
  }

  static public String fileServerURL() {
    return "https://botcompany.de/files";
  }

  static public boolean isMac() {
    return System.getProperty("os.name").toLowerCase().contains("mac");
  }

  static public String multiLineQuoteWithSpaces(String s) {
    return multiLineQuote(" " + s + " ");
  }

  static public boolean substanceLookAndFeelEnabled() {
    return startsWith(getLookAndFeel(), "org.pushingpixels.");
  }

  static public JComponent getTitlePaneComponent(RootPaneContainer window) {
    if (window instanceof JInternalFrame)
      return getInternalFrameTitlePaneComponent((JInternalFrame) window);
    if (!substanceLookAndFeelEnabled() || window == null)
      return null;
    JRootPane rootPane = window.getRootPane();
    if (rootPane != null) {
      Object ui = rootPane.getUI();
      return (JComponent) call(ui, "getTitlePane");
    }
    return null;
  }

  static public String smartJoin(String[] args) {
    if (empty(args))
      return "";
    if (args.length == 1)
      return args[0];
    String[] a = new String[args.length];
    for (int i = 0; i < a.length; i++) a[i] = !isJavaIdentifier(args[i]) && !isQuoted(args[i]) ? quote(args[i]) : args[i];
    return join(" ", a);
  }

  static public String smartJoin(List<String> args) {
    return smartJoin(toStringArray(args));
  }

  static public List<String> standardClassesSnippetIDs() {
    return ll("#1003674", "#1034167");
  }

  static public List<String> tlft_j(String text) {
    return toLinesFullTrim_java(text);
  }

  static public File localSnippetFile(long snippetID) {
    return localSnippetsDir(snippetID + ".text");
  }

  static public File localSnippetFile(String snippetID) {
    return localSnippetFile(parseSnippetID(snippetID));
  }

  static public String standardCredentialsUser() {
    return trim(loadTextFile(oneOfTheFiles(javaxSecretDir("tinybrain-username"), userDir(".tinybrain/username"))));
  }

  static public String standardCredentialsPass() {
    return trim(loadTextFile(oneOfTheFiles(javaxSecretDir("tinybrain-userpass"), userDir(".tinybrain/userpass"))));
  }

  static public boolean networkAllowanceTest(String url) {
    return isAllowed("networkAllowanceTest", url);
  }

  static public <A> A printWithTime(A a) {
    return printWithTime("", a);
  }

  static public <A> A printWithTime(String s, A a) {
    print(hmsWithColons() + ": " + s, a);
    return a;
  }

  static public InputStream urlConnection_getInputStream(URLConnection con) throws IOException {
    return con.getInputStream();
  }

  static public String toHex(byte[] bytes) {
    return bytesToHex(bytes);
  }

  static public String toHex(byte[] bytes, int ofs, int len) {
    return bytesToHex(bytes, ofs, len);
  }

  static public byte[] utf8(String s) {
    return toUtf8(s);
  }

  static public URLConnection setURLConnectionTimeouts(URLConnection con, long timeout) {
    con.setConnectTimeout(toInt(timeout));
    con.setReadTimeout(toInt(timeout));
    if (con.getConnectTimeout() != timeout || con.getReadTimeout() != timeout)
      print("Warning: Timeouts not set by JDK.");
    return con;
  }

  static public URLConnection setURLConnectionDefaultTimeouts(URLConnection con, long timeout) {
    if (con.getConnectTimeout() == 0) {
      con.setConnectTimeout(toInt(timeout));
      if (con.getConnectTimeout() != timeout)
        print("Warning: URL connect timeout not set by JDK.");
    }
    if (con.getReadTimeout() == 0) {
      con.setReadTimeout(toInt(timeout));
      if (con.getReadTimeout() != timeout)
        print("Warning: URL read timeout not set by JDK.");
    }
    return con;
  }

  static public List<String> dropPunctuation_keep = ll("*", "<", ">");

  static public List<String> dropPunctuation(List<String> tok) {
    tok = new ArrayList<String>(tok);
    for (int i = 1; i < tok.size(); i += 2) {
      String t = tok.get(i);
      if (t.length() == 1 && !Character.isLetter(t.charAt(0)) && !Character.isDigit(t.charAt(0)) && !dropPunctuation_keep.contains(t)) {
        tok.set(i - 1, tok.get(i - 1) + tok.get(i + 1));
        tok.remove(i);
        tok.remove(i);
        i -= 2;
      }
    }
    return tok;
  }

  static public String dropPunctuation(String s) {
    return join(dropPunctuation(nlTok(s)));
  }

  static public String localSnippetTitle(String snippetID) {
    if (!isLocalSnippetID(snippetID))
      return null;
    File f = localSnippetFile(snippetID);
    if (!f.exists())
      return null;
    return or2(getFileInfoField(dropExtension(f), "Title"), "Unnamed");
  }

  static public String muricaCredentialsQuery() {
    return htmlQuery(muricaCredentials());
  }

  static public boolean isGeneralFileServerSnippet(long id) {
    return id >= 1400000 && id < 1500000;
  }

  static public String standardCredentials_noCookies() {
    return standardCredentials() + "&noCookies=1";
  }

  static public boolean saveTextFileIfChanged(File f, String contents) {
    return saveTextFileIfDifferent(f, contents);
  }

  static public File snippetTitle_cacheFile(String snippetID) {
    return javaxCachesDir("Snippet Titles/" + psI(snippetID));
  }

  static public <A> List<A> cleanUpAndGetWeakReferencesList(List<WeakReference<A>> l) {
    if (l == null)
      return null;
    synchronized (l) {
      List<A> out = new ArrayList();
      for (int i = 0; i < l(l); i++) {
        A a = l.get(i).get();
        if (a == null)
          l.remove(i--);
        else
          out.add(a);
      }
      return out;
    }
  }

  static public Dimension toDimension(WidthAndHeight wh) {
    return wh == null ? null : new Dimension(wh.getWidth(), wh.getHeight());
  }

  static public boolean hasLetters(String s) {
    for (int i = 0; i < s.length(); i++) if (Character.isLetter(s.charAt(i)))
      return true;
    return false;
  }

  static public boolean containsLowerCase(String s) {
    for (int i = 0; i < l(s); i++) if (isLowerCase(s.charAt(i)))
      return true;
    return false;
  }

  static public void setConsoleInput(String text) {
    consoleSetInput(text);
  }

  static public JComponent consoleInputFieldOrComboBox() {
    Object console = get(getJavaX(), "console");
    JComboBox cb = (JComboBox) (getOpt(console, "cbInput"));
    if (cb != null)
      return cb;
    return (JTextField) getOpt(console, "tfInput");
  }

  static public String substr(String s, int x) {
    return substring(s, x);
  }

  static public String substr(String s, int x, int y) {
    return substring(s, x, y);
  }

  static public <A, B> Map<A, B> synchroIdentityHashMap() {
    return synchroMap(new IdentityHashMap());
  }

  static public <A, B> void mapPut2(Map<A, B> map, A key, B value) {
    if (map != null && key != null)
      if (value != null)
        map.put(key, value);
      else
        map.remove(key);
  }

  static public Graphics2D antiAliasGraphics(BufferedImage img) {
    return antiAliasOn(createGraphics(img));
  }

  static public File muricaPasswordFile() {
    return new File(javaxSecretDir(), "murica/muricaPasswordFile");
  }

  static public String multiLineQuote(String s) {
    for (int i = 0; ; i++) {
      String closer = "]" + rep('=', i) + "]";
      if (!contains(s, closer))
        return "[" + rep('=', i) + "[" + s + closer;
    }
  }

  static public String getLookAndFeel() {
    return getClassName(UIManager.getLookAndFeel());
  }

  static public JComponent getInternalFrameTitlePaneComponent(JInternalFrame f) {
    return (JComponent) childWithClassNameEndingWith(f, "InternalFrameTitlePane");
  }

  static public List<String> toLinesFullTrim_java(String text) {
    return tlft(joinLines(map(__103 -> javaDropComments(__103), tlft(text))));
  }

  static public File localSnippetsDir() {
    return javaxDataDir("Personal Programs");
  }

  static public File localSnippetsDir(String sub) {
    return newFile(localSnippetsDir(), sub);
  }

  static public File oneOfTheFiles(String... paths) {
    if (paths != null)
      for (String path : paths) if (fileExists(path))
        return newFile(path);
    return null;
  }

  static public File oneOfTheFiles(File... files) {
    return oneOfTheFiles(asList(files));
  }

  static public File oneOfTheFiles(Iterable<File> files) {
    if (files != null)
      for (File f : files) if (fileExists(f))
        return f;
    return null;
  }

  static volatile public Object isAllowed_function;

  static volatile public boolean isAllowed_all = true;

  static public boolean isAllowed(String askingMethod, Object... args) {
    Object f = vm_generalMap_get("isAllowed_function");
    if (f != null && !isTrue(callF(f, askingMethod, args)))
      return false;
    return isAllowed_all || isTrue(callF(isAllowed_function, askingMethod, args));
  }

  static public String hmsWithColons() {
    return hmsWithColons(now());
  }

  static public String hmsWithColons(long time) {
    return new SimpleDateFormat("HH:mm:ss").format(time);
  }

  static public List<String> nlTok(String s) {
    return javaTokPlusPeriod(s);
  }

  static public String getFileInfoField(File f, String field) {
    return getOneLineFileInfoField(f, field);
  }

  static public File dropExtension(File f) {
    return f == null ? null : fileInSameDir(f, dropExtension(f.getName()));
  }

  static public String dropExtension(String s) {
    return takeFirst(s, smartLastIndexOf(s, '.'));
  }

  static public String htmlQuery(Map params) {
    return empty(params) ? "" : "?" + makePostData(params);
  }

  static public String htmlQuery(Object... data) {
    return empty(data) ? "" : "?" + makePostData(data);
  }

  static public Object[] muricaCredentials() {
    String pass = muricaPassword();
    return nempty(pass) ? new Object[] { "_pass", pass } : new Object[0];
  }

  static public boolean saveTextFileIfDifferent(File f, String contents) {
    if (eq(loadTextFile(f), contents))
      return false;
    {
      saveTextFile(f, contents);
      return true;
    }
  }

  static public boolean isLowerCase(char c) {
    return Character.isLowerCase(c);
  }

  static public Graphics2D antiAliasOn(Graphics2D g) {
    g.setRenderingHint(RenderingHints.KEY_TEXT_ANTIALIASING, RenderingHints.VALUE_TEXT_ANTIALIAS_ON);
    g.setRenderingHint(RenderingHints.KEY_ANTIALIASING, RenderingHints.VALUE_ANTIALIAS_ON);
    return g;
  }

  static public Component childWithClassNameEndingWith(Component c, String suffix) {
    if (endsWith(className(c), suffix))
      return c;
    Component x;
    for (Component comp : getComponents(c)) if ((x = childWithClassNameEndingWith(comp, suffix)) != null)
      return x;
    return null;
  }

  static public String joinLines(List<String> lines) {
    return fromLines(lines);
  }

  static public String joinLines(String glue, String text) {
    return join(glue, toLines(text));
  }

  static public String javaDropComments(String s) {
    return javaDropAllComments(s);
  }

  static public String getOneLineFileInfoField(File f, String field) {
    File infoFile = associatedInfosFile(f);
    List<String> lines = lines(loadTextFile(infoFile));
    return firstStartingWithIC_drop(lines, field + ": ");
  }

  static public int smartLastIndexOf(String s, char c) {
    if (s == null)
      return 0;
    int i = s.lastIndexOf(c);
    return i >= 0 ? i : l(s);
  }

  static public <A> int smartLastIndexOf(List<A> l, A sub) {
    int i = lastIndexOf(l, sub);
    return i < 0 ? l(l) : i;
  }

  static public String javaDropAllComments(String s) {
    return join(javaDropAllComments(javaTok(s)));
  }

  static public List<String> javaDropAllComments(List<String> tok) {
    for (int i = 0; i < l(tok); i += 2) tok.set(i, tok_javaDropCommentsFromWhitespace(tok.get(i)));
    return tok;
  }

  static public File associatedInfosFile(File f) {
    return replaceExtension(f, ".infos");
  }

  static public String firstStartingWithIC_drop(Collection<String> l, final String prefix) {
    for (String s : unnull(l)) if (swic(s, prefix))
      return substring(s, l(prefix));
    return null;
  }

  static public String firstStartingWithIC_drop(String prefix, Collection<String> l) {
    return firstStartingWithIC_drop(l, prefix);
  }

  static public String tok_javaDropCommentsFromWhitespace(String s) {
    int l = l(s), j = 0;
    StringBuilder buf = new StringBuilder();
    while (j < l) {
      char c = s.charAt(j);
      char d = j + 1 >= l ? '\0' : s.charAt(j + 1);
      if (c == '/' && d == '*') {
        do ++j; while (j < l && !s.substring(j, Math.min(j + 2, l)).equals("*/"));
        j = Math.min(j + 2, l);
      } else if (c == '/' && d == '/') {
        do ++j; while (j < l && "\r\n".indexOf(s.charAt(j)) < 0);
      } else {
        buf.append(c);
        ++j;
      }
    }
    return str(buf);
  }

  static public File replaceExtension(File f, String extOld, String extNew) {
    return newFile(replaceExtension(f2s(f), extOld, extNew));
  }

  static public File replaceExtension(File f, String extNew) {
    return replaceExtension(f, fileExtension(f), extNew);
  }

  static public String replaceExtension(String s, String extOld, String extNew) {
    s = dropSuffixIC(addPrefixOptIfNempty(".", extOld), s);
    return s + addPrefixOptIfNempty(".", extNew);
  }

  static public String replaceExtension(String name, String extNew) {
    return replaceExtension(name, fileExtension(name), extNew);
  }

  static public String fileExtension(File f) {
    if (f == null)
      return null;
    return fileExtension(f.getName());
  }

  static public String fileExtension(String s) {
    return substring(s, smartLastIndexOf(s, '.'));
  }

  static public String dropSuffixIC(String suffix, String s) {
    return s == null ? null : ewic(s, suffix) ? s.substring(0, l(s) - l(suffix)) : s;
  }

  static public class JSection extends SingleComponentPanel {

    public JSection(Component c) {
      super(c);
    }

    public String getTitle() {
      Border border = getBorder();
      if (border instanceof TitledBorder)
        return ((TitledBorder) border).getTitle();
      return null;
    }
  }

  static public class WithToolTip<A> extends Var<A> {

    final public WithToolTip<A> setToolTip(String toolTip) {
      return toolTip(toolTip);
    }

    public WithToolTip<A> toolTip(String toolTip) {
      this.toolTip = toolTip;
      return this;
    }

    final public String getToolTip() {
      return toolTip();
    }

    public String toolTip() {
      return toolTip;
    }

    public String toolTip;

    public WithToolTip() {
    }

    public WithToolTip(A value, String toolTip) {
      super(value);
      this.toolTip = toolTip;
    }

    public String toString() {
      return formatFunctionCall("WithToolTip", toolTip, get());
    }
  }

  static public class SingleThread {

    public boolean running = false;

    public Thread thread;

    public void run(Object r) {
      go(r);
    }

    synchronized public boolean go(final Object runnable) {
      if (running)
        return false;
      running = true;
      thread = startThread("Single Thread", new Runnable() {

        public void run() {
          try {
            try {
              callF(runnable);
            } finally {
              _done();
            }
          } catch (Exception __e) {
            throw rethrow(__e);
          }
        }

        public String toString() {
          return "try {\r\n        callF(runnable);\r\n      } finally {\r\n        _done();\r\n      }";
        }
      });
      return true;
    }

    synchronized public void _done() {
      running = false;
      thread = null;
    }

    synchronized public boolean running() {
      return running;
    }

    synchronized public Thread getThread() {
      return thread;
    }
  }

  static public class StructureStringIndenter {

    final public StructureStringIndenter setLevels(int levels) {
      return levels(levels);
    }

    public StructureStringIndenter levels(int levels) {
      this.levels = levels;
      return this;
    }

    final public int getLevels() {
      return levels();
    }

    public int levels() {
      return levels;
    }

    public int levels = 100;

    final public StructureStringIndenter setInlineChars(int inlineChars) {
      return inlineChars(inlineChars);
    }

    public StructureStringIndenter inlineChars(int inlineChars) {
      this.inlineChars = inlineChars;
      return this;
    }

    final public int getInlineChars() {
      return inlineChars();
    }

    public int inlineChars() {
      return inlineChars;
    }

    public int inlineChars = 40;

    final public StructureStringIndenter setVerbose(boolean verbose) {
      return verbose(verbose);
    }

    public StructureStringIndenter verbose(boolean verbose) {
      this.verbose = verbose;
      return this;
    }

    final public boolean getVerbose() {
      return verbose();
    }

    public boolean verbose() {
      return verbose;
    }

    public boolean verbose = false;

    public List<String> tok;

    public Map<Integer, Integer> bracketMap;

    public String get(String s) {
      if (s == null)
        return null;
      tok = javaTokForStructure(s);
      int n = l(tok);
      bracketMap = getBracketMap(tok, __1 -> isOpeningBracket(__1), __2 -> isClosingBracket(__2));
      int levels = clampToInt(this.levels * 2L);
      StringBuilder buf = new StringBuilder();
      int indent = 0;
      for (int i = 0; i < n; i++) {
        String t = tok.get(i);
        if (isOpeningBracket(t)) {
          String prev = _get(tok, i - 2);
          Integer j = or(bracketMap.get(i), n);
          if (j != null && (eq(prev, "intarray") || !tokenRangeLongerThanNChars(tok, i + 1, j + 1, inlineChars))) {
            buf.append(joinSubList(tok, i, j + 1));
            i = j;
          } else {
            if (verbose)
              print("Bracket part longer than " + inlineChars + " chars: " + quote(shortenJoinSubList(inlineChars, tok, i, j + 1)));
            indent += 2;
            buf.append(t);
            if (indent <= levels)
              buf.append("\n").append(spaces(indent));
          }
        } else if (isClosingBracket(t)) {
          indent -= 2;
          if (indent < levels)
            buf.append("\n").append(spaces(indent));
          buf.append(t);
        } else if (indent <= levels && eq(t, ",")) {
          buf.append(t).append("\n").append(spaces(indent));
          i++;
        } else
          buf.append(t);
      }
      return str(buf);
    }
  }

  static public class Best_comparable<A> {

    public A best;

    public Comparable score;

    public boolean verboseNewBest, replaceIfSameScore;

    transient public Object onChange;

    transient public Object stringifier;

    synchronized public boolean isNewBest(Comparable score) {
      return this.score == null || (replaceIfSameScore ? cmp(score, this.score) >= 0 : cmp(score, this.score) > 0);
    }

    synchronized public Comparable bestScore() {
      return score;
    }

    public Comparable score() {
      return bestScore();
    }

    public Comparable getScore() {
      return bestScore();
    }

    synchronized public float floatScoreOr(float defaultValue) {
      return best == null ? defaultValue : (float) score;
    }

    public boolean put(Pair<? extends A, Comparable> p) {
      return p != null && put(p.a, p.b);
    }

    public boolean put(Best<? extends A> b) {
      return b != null && put(b.get(), b.score);
    }

    public boolean put(A a, Comparable score) {
      ping();
      boolean change = false;
      if (a != null)
        synchronized (this) {
          if (isNewBest(score)) {
            best = a;
            this.score = score;
            change = true;
          }
        }
      if (change) {
        if (verboseNewBest)
          print("New best! " + this);
        pcallF(onChange);
      }
      return change;
    }

    synchronized public A get() {
      return best;
    }

    synchronized public boolean has() {
      return best != null;
    }

    synchronized public Pair<A, Comparable> pair() {
      return main.pair(best, bestScore());
    }

    synchronized public A getIfScoreAbove(Comparable x) {
      return cmp(x, score()) >= 0 ? best : null;
    }

    public String toString() {
      return !has() ? "-" : "Score " + score + ": " + callStringifier(stringifier, best);
    }

    public boolean putAndPrintIfNewBest(A a, Comparable score) {
      if (!put(a, score))
        return false;
      {
        print(this);
        return true;
      }
    }

    synchronized public void clear() {
      best = null;
      score = 0;
    }
  }

  static public class G22Challenge extends G22LeftArrowScript {

    static final public String _fieldOrder = "type usesRNG type_singleImage type_animation types lvType lvUsesRNG";

    public String type = "Single Image";

    public boolean usesRNG = false;

    static public String type_singleImage = "Single Image";

    static public String type_animation = "Animation";

    static public List<String> types = ll(type_singleImage, type_animation);

    public void _onChange() {
      super._onChange();
      {
        if (lvType != null)
          lvType.set(type);
      }
      {
        if (lvUsesRNG != null)
          lvUsesRNG.set(usesRNG);
      }
    }

    transient public SimpleLiveValue<String> lvType;

    synchronized public SimpleLiveValue<String> lvType() {
      {
        if (lvType == null)
          lvType = new SimpleLiveValue(String.class, type).onChange(new Runnable() {

            public void run() {
              try {
                setField("type", lvType.get());
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "setField(type := lvType!);";
            }
          });
        return lvType;
      }
    }

    transient public SimpleLiveValue<Boolean> lvUsesRNG;

    synchronized public SimpleLiveValue<Boolean> lvUsesRNG() {
      {
        if (lvUsesRNG == null)
          lvUsesRNG = new SimpleLiveValue(Boolean.class, usesRNG).onChange(new Runnable() {

            public void run() {
              try {
                setField("usesRNG", lvUsesRNG.get());
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "setField(usesRNG := lvUsesRNG!);";
            }
          });
        return lvUsesRNG;
      }
    }
  }

  static public class DefunctClassLoader {
  }

  static public interface ITokCondition {

    public boolean get(List<String> tok, int i);
  }

  static abstract public class TokCondition implements ITokCondition {

    public abstract boolean get(List<String> tok, int i);
  }

  static public class IntVar {

    public int a;

    public synchronized void set(int v) {
      if (v != a) {
        a = v;
        notifyAll();
      }
    }

    public synchronized int get() {
      return a;
    }

    synchronized public int waitForValue(int x) {
      try {
        while (a != x) wait();
        return a;
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public String toString() {
      return str(this.get());
    }
  }

  static public class RightAlignedLine extends JPanel {

    public RightAlignedLine(int spacing, Component... components) {
      this(components);
      setSpacing(spacing);
    }

    public RightAlignedLine(Component... components) {
      setLayout(LetterLayout.rightAlignedRow());
      for (Component component : components) if (component != null)
        add(component);
    }

    public void setSpacing(int spacing) {
      ((LetterLayout) getLayout()).setSpacing(spacing, spacing);
    }

    public void add(String text) {
      add(new JLabel(text));
    }
  }

  static public class PopupMenuMaker {

    final public PopupMenuMaker setAllowScrolling(boolean allowScrolling) {
      return allowScrolling(allowScrolling);
    }

    public PopupMenuMaker allowScrolling(boolean allowScrolling) {
      this.allowScrolling = allowScrolling;
      return this;
    }

    final public boolean getAllowScrolling() {
      return allowScrolling();
    }

    public boolean allowScrolling() {
      return allowScrolling;
    }

    public boolean allowScrolling = true;

    final public PopupMenuMaker setEvent(MouseEvent event) {
      return event(event);
    }

    public PopupMenuMaker event(MouseEvent event) {
      this.event = event;
      return this;
    }

    final public MouseEvent getEvent() {
      return event();
    }

    public MouseEvent event() {
      return event;
    }

    public MouseEvent event;

    final public PopupMenuMaker setPtInComponent(PtInComponent ptInComponent) {
      return ptInComponent(ptInComponent);
    }

    public PopupMenuMaker ptInComponent(PtInComponent ptInComponent) {
      this.ptInComponent = ptInComponent;
      return this;
    }

    final public PtInComponent getPtInComponent() {
      return ptInComponent();
    }

    public PtInComponent ptInComponent() {
      return ptInComponent;
    }

    public PtInComponent ptInComponent;

    final public PopupMenuMaker setFillMenu(IVF1<JPopupMenu> fillMenu) {
      return fillMenu(fillMenu);
    }

    public PopupMenuMaker fillMenu(IVF1<JPopupMenu> fillMenu) {
      this.fillMenu = fillMenu;
      return this;
    }

    final public IVF1<JPopupMenu> getFillMenu() {
      return fillMenu();
    }

    public IVF1<JPopupMenu> fillMenu() {
      return fillMenu;
    }

    public IVF1<JPopupMenu> fillMenu;

    final public PopupMenuMaker setExistingMenu(JPopupMenu existingMenu) {
      return existingMenu(existingMenu);
    }

    public PopupMenuMaker existingMenu(JPopupMenu existingMenu) {
      this.existingMenu = existingMenu;
      return this;
    }

    final public JPopupMenu getExistingMenu() {
      return existingMenu();
    }

    public JPopupMenu existingMenu() {
      return existingMenu;
    }

    public JPopupMenu existingMenu;

    final public PopupMenuMaker setAddSeparator(boolean addSeparator) {
      return addSeparator(addSeparator);
    }

    public PopupMenuMaker addSeparator(boolean addSeparator) {
      this.addSeparator = addSeparator;
      return this;
    }

    final public boolean getAddSeparator() {
      return addSeparator();
    }

    public boolean addSeparator() {
      return addSeparator;
    }

    public boolean addSeparator = true;

    public JPopupMenu menu;

    public PopupMenuMaker() {
    }

    public PopupMenuMaker(MouseEvent event, IVF1<JPopupMenu> fillMenu) {
      this.fillMenu = fillMenu;
      this.event = event;
    }

    public void run() {
      swing(() -> {
        if (existingMenu != null) {
          fix();
          var menu = existingMenu;
          int emptyCount = menu.getComponentCount();
          if (addSeparator)
            menu.addSeparator();
          int emptyCount2 = menu.getComponentCount();
          {
            if (fillMenu != null)
              fillMenu.get(menu);
          }
          if (menu.getComponentCount() == emptyCount2)
            truncateContainer(menu, emptyCount);
          packWindow(menu);
        } else {
          JPopupMenu menu = new JPopupMenu();
          int emptyCount = menu.getComponentCount();
          {
            if (fillMenu != null)
              fillMenu.get(menu);
          }
          if (menu.getComponentCount() == emptyCount)
            return;
          if (allowScrolling) {
            menu = new JPopupMenu();
            JMenuScroller scroller = JMenuScroller.setScrollerFor(menu);
            scroller.fillMenu = toVF1(fillMenu);
          }
          if (ptInComponent == null)
            ptInComponent = ptInComponentFromEvent(event);
          if (hasParentOfType(JPopupMenu.class, ptInComponent.component)) {
            menu.setInvoker(ptInComponent.component);
            menu.setVisible(true);
          } else
            menu.show(ptInComponent.component, ptInComponent.p.x, ptInComponent.p.y);
        }
      });
    }

    static public void fix() {
      JPopupMenu.setDefaultLightWeightPopupEnabled(false);
    }
  }

  static public class SimpleLiveValue<A> extends LiveValue<A> implements IVarWithNotify<A> {

    transient public Set<Runnable> onChange;

    public SimpleLiveValue<A> onChange(Runnable r) {
      onChange = createOrAddToSyncLinkedHashSet(onChange, r);
      return this;
    }

    public SimpleLiveValue<A> removeChangeListener(Runnable r) {
      main.remove(onChange, r);
      return this;
    }

    public void change() {
      if (onChange != null)
        for (var listener : onChange) pcallF_typed(listener);
    }

    public Class<A> type;

    volatile public A value;

    public SimpleLiveValue(Class<A> type) {
      this.type = type;
    }

    public SimpleLiveValue(Class<A> type, A value) {
      this.value = value;
      this.type = type;
    }

    public Class<A> getType() {
      return type;
    }

    public A get() {
      return value;
    }

    public void fireChanged() {
      change();
    }

    public void set(A a) {
      if (neq(value, a)) {
        value = a;
        fireChanged();
      }
    }
  }

  static public class CountingOutputStream extends FilterOutputStream {

    public long counter;

    public CountingOutputStream(OutputStream out) {
      super(out);
    }

    @Override
    public void write(int b) throws IOException {
      ++counter;
      out.write(b);
    }

    @Override
    public void write(byte[] b) throws IOException {
      counter += b.length;
      out.write(b, 0, b.length);
    }

    @Override
    public void write(byte[] b, int off, int len) throws IOException {
      if (len == 0)
        return;
      counter += len;
      out.write(b, off, len);
    }

    public long getFilePointer() {
      return counter;
    }
  }

  static public class WeakIdentityHashMap<K, V> implements Map<K, V> {

    final public ReferenceQueue<K> queue = new ReferenceQueue<K>();

    public Map<IdentityWeakReference, V> backingStore = new HashMap<IdentityWeakReference, V>();

    public WeakIdentityHashMap() {
      _registerWeakMap(this);
    }

    public synchronized void clear() {
      backingStore.clear();
      reap();
    }

    public synchronized boolean containsKey(Object key) {
      reap();
      return backingStore.containsKey(new IdentityWeakReference(key));
    }

    public synchronized boolean containsValue(Object value) {
      reap();
      return backingStore.containsValue(value);
    }

    public synchronized Set<Map.Entry<K, V>> entrySet() {
      reap();
      Set<Map.Entry<K, V>> ret = new HashSet<Map.Entry<K, V>>();
      for (Map.Entry<IdentityWeakReference, V> ref : backingStore.entrySet()) {
        final K key = ref.getKey().get();
        final V value = ref.getValue();
        Map.Entry<K, V> entry = new Map.Entry<K, V>() {

          public synchronized K getKey() {
            return key;
          }

          public synchronized V getValue() {
            return value;
          }

          public synchronized V setValue(V value) {
            throw new UnsupportedOperationException();
          }
        };
        ret.add(entry);
      }
      return Collections.unmodifiableSet(ret);
    }

    public synchronized Set<K> keySet() {
      reap();
      IdentityHashMap<K, Boolean> map = new IdentityHashMap();
      for (IdentityWeakReference ref : backingStore.keySet()) {
        K k = ref.get();
        if (k != null)
          map.put(k, Boolean.TRUE);
      }
      return map.keySet();
    }

    public synchronized boolean equals(Object o) {
      if (!(o instanceof WeakIdentityHashMap)) {
        return false;
      }
      return backingStore.equals(((WeakIdentityHashMap) o).backingStore);
    }

    public synchronized V get(Object key) {
      reap();
      return backingStore.get(new IdentityWeakReference(key));
    }

    public synchronized V put(K key, V value) {
      reap();
      return backingStore.put(new IdentityWeakReference(key), value);
    }

    public synchronized int hashCode() {
      reap();
      return backingStore.hashCode();
    }

    public synchronized boolean isEmpty() {
      reap();
      return backingStore.isEmpty();
    }

    public synchronized void putAll(Map t) {
      throw new UnsupportedOperationException();
    }

    public synchronized V remove(Object key) {
      reap();
      return backingStore.remove(new IdentityWeakReference(key));
    }

    public synchronized int size() {
      reap();
      return backingStore.size();
    }

    public synchronized Collection<V> values() {
      reap();
      return backingStore.values();
    }

    private synchronized void reap() {
      Object zombie = queue.poll();
      while (zombie != null) {
        IdentityWeakReference victim = (IdentityWeakReference) zombie;
        backingStore.remove(victim);
        zombie = queue.poll();
      }
    }

    public class IdentityWeakReference extends WeakReference<K> {

      public int hash;

      @SuppressWarnings("unchecked")
      public IdentityWeakReference(Object obj) {
        super((K) obj, queue);
        hash = System.identityHashCode(obj);
      }

      public synchronized int hashCode() {
        return hash;
      }

      public synchronized boolean equals(Object o) {
        if (this == o) {
          return true;
        }
        if (!(o instanceof WeakIdentityHashMap.IdentityWeakReference)) {
          return false;
        }
        IdentityWeakReference ref = (IdentityWeakReference) o;
        if (this.get() == ref.get()) {
          return true;
        }
        return false;
      }
    }
  }

  static public class FixedRateTimer extends java.util.Timer implements AutoCloseable {

    public FixedRateTimer() {
      this(false);
    }

    public FixedRateTimer(boolean daemon) {
      this(defaultTimerName(), daemon);
    }

    public FixedRateTimer(String name) {
      this(name, false);
    }

    public FixedRateTimer(String name, boolean daemon) {
      super(name, daemon);
      _registerTimer(this);
    }

    public List<Entry> entries = synchroList();

    static public class Entry implements IFieldsToList {

      public TimerTask task;

      public long firstTime;

      public long period;

      public Entry() {
      }

      public Entry(TimerTask task, long firstTime, long period) {
        this.period = period;
        this.firstTime = firstTime;
        this.task = task;
      }

      public String toString() {
        return shortClassName_dropNumberPrefix(this) + "(" + task + ", " + firstTime + ", " + period + ")";
      }

      public Object[] _fieldsToList() {
        return new Object[] { task, firstTime, period };
      }
    }

    public void scheduleAtFixedRate(TimerTask task, long delay, long period) {
      entries.add(new Entry(task, now() + delay, period));
      super.scheduleAtFixedRate(task, delay, period);
    }

    public void cancel() {
      entries.clear();
      super.cancel();
    }

    public int purge() {
      entries.clear();
      return super.purge();
    }

    public FixedRateTimer changeRate(int newPeriod) {
      Object r = ((SmartTimerTask) first(entries).task).r;
      cancel();
      return doEvery(newPeriod, r);
    }

    public void close() {
      try {
        cancel();
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }
  }

  static public class AutoComboBox extends JComboBox<String> {

    public String[] keyWord;

    public Vector myVector = new Vector();

    public boolean acceptOnTab = false;

    public AutoComboBox() {
      setModel(new DefaultComboBoxModel(myVector));
      setSelectedIndex(-1);
      setEditable(true);
      JTextField text = (JTextField) this.getEditor().getEditorComponent();
      text.setFocusable(true);
      text.setText("");
      text.addKeyListener(new ComboListener(this, myVector));
      if (acceptOnTab)
        text.setFocusTraversalKeysEnabled(false);
      setMyVector();
    }

    public void setKeyWord(String[] keyWord) {
      this.keyWord = keyWord;
      setMyVector();
    }

    public void setKeyWord(Collection<String> keyWord) {
      setKeyWord(toStringArray(keyWord));
    }

    private void setMyVector() {
      copyArrayToVector(keyWord, myVector);
    }

    public class ComboListener extends KeyAdapter {

      public JComboBox cb;

      public Vector vector;

      public ComboListener(JComboBox cb, Vector vector) {
        this.vector = vector;
        this.cb = cb;
      }

      public void keyPressed(KeyEvent key) {
        if (key.getKeyCode() == KeyEvent.VK_ENTER)
          return;
        if (key.getKeyCode() == KeyEvent.VK_ESCAPE) {
          cb.hidePopup();
          return;
        }
        if (acceptOnTab && key.getKeyCode() == KeyEvent.VK_TAB) {
          _print("Have tab event (modifiers=" + key.getModifiers() + ")");
          if ((key.getModifiers() & ActionEvent.SHIFT_MASK) == 0 && cb.isPopupVisible()) {
            cb.setSelectedIndex(0);
            cb.hidePopup();
          } else
            swing_standardTabBehavior(key);
          return;
        }
        JTextField tf = (JTextField) (cb.getEditor().getEditorComponent());
        if (tf.getCaretPosition() != l(tf.getText()))
          return;
        String text = ((JTextField) key.getSource()).getText();
        Vector list = getFilteredList(text);
        if (nempty(list)) {
          cb.setModel(new DefaultComboBoxModel(list));
          cb.setSelectedIndex(-1);
          tf.setText(text);
          cb.showPopup();
        } else
          cb.hidePopup();
      }

      public Vector getFilteredList(String text) {
        return emptyAfterTrim(text) ? vector : new Vector(scoredSearch(text, vector));
      }
    }
  }

  static public class ProgramScan {

    static public int threads = isWindows() ? 500 : 10;

    static public int timeout = 5000;

    static public String ip = "127.0.0.1";

    static public int quickScanFrom = 10000, quickScanTo = 10999;

    static public int maxNumberOfVMs_android = 4;

    static public int maxNumberOfVMs_nonAndroid = 50;

    static public int maxNumberOfVMs;

    static public boolean verbose = false;

    static public class Program {

      public int port;

      public String helloString;

      public Program(int port, String helloString) {
        this.helloString = helloString;
        this.port = port;
      }
    }

    static public List<Program> scan() {
      try {
        return scan(1, 65535);
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    static public List<Program> scan(int fromPort, int toPort) {
      return scan(fromPort, toPort, new int[0]);
    }

    static public List<Program> scan(int fromPort, int toPort, int[] preferredPorts) {
      try {
        Set<Integer> preferredPortsSet = new HashSet<Integer>(asList(preferredPorts));
        int scanSize = toPort - fromPort + 1;
        String name = toPort < 10000 ? "bot" : "program";
        int threads = isWindows() ? min(500, scanSize) : min(scanSize, 10);
        final ExecutorService es = Executors.newFixedThreadPool(threads);
        if (verbose)
          print(firstToUpper(name) + "-scanning " + ip + " with timeout " + timeout + " ms in " + threads + " threads.");
        startTiming();
        List<Future<Program>> futures = new ArrayList();
        List<Integer> ports = new ArrayList();
        for (int port : preferredPorts) {
          futures.add(checkPort(es, ip, port, timeout));
          ports.add(port);
        }
        for (int port = fromPort; port <= toPort; port++) if (!preferredPortsSet.contains(port) && !forbiddenPort(port)) {
          futures.add(checkPort(es, ip, port, timeout));
          ports.add(port);
        }
        es.shutdown();
        List<Program> programs = new ArrayList();
        long time = now();
        int i = 0;
        for (final Future<Program> f : futures) {
          if (verbose)
            print("Waiting for port " + get(ports, i++) + " at time " + (now() - time));
          Program p = f.get();
          if (p != null)
            programs.add(p);
        }
        if (verbose)
          print("Found " + programs.size() + " " + name + "(s) on " + ip);
        return programs;
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    static public Future<Program> checkPort(final ExecutorService es, final String ip, final int port, final int timeout) {
      return es.submit(new Callable<Program>() {

        @Override
        public Program call() {
          try {
            Socket socket = new Socket();
            try {
              socket.setSoTimeout(timeout);
              socket.connect(new InetSocketAddress(ip, port), timeout);
              BufferedReader in = new BufferedReader(new InputStreamReader(socket.getInputStream(), "UTF-8"));
              String hello = or(in.readLine(), "?");
              return new Program(port, hello);
            } finally {
              socket.close();
            }
          } catch (Exception ex) {
            return null;
          }
        }
      });
    }

    static public List<Program> quickScan() {
      return scan(quickScanFrom, quickScanTo);
    }

    static public List<Program> quickBotScan() {
      return quickBotScan(new int[0]);
    }

    static public List<Program> quickBotScan(int[] preferredPorts) {
      if (maxNumberOfVMs == 0)
        maxNumberOfVMs = isAndroid() ? maxNumberOfVMs_android : maxNumberOfVMs_nonAndroid;
      return scan(4999, 5000 + maxNumberOfVMs - 1, preferredPorts);
    }
  }

  static public class TimeoutException_Inner extends RuntimeExceptionWithCustomStackTrace {

    public Thread thread;

    public double timeoutSeconds;

    public Object function;

    public TimeoutException_Inner(double timeoutSeconds, Object function, Thread thread) {
      super("Timeout after " + iceil(timeoutSeconds) + "s by " + shorten_str(function), new Throwable("Caller"), thread.getStackTrace());
      this.thread = thread;
      this.function = function;
      this.timeoutSeconds = timeoutSeconds;
    }
  }

  static public class LeftAlignedLine extends JPanel {

    public LeftAlignedLine(int spacing, Component... components) {
      this(components);
      setSpacing(spacing);
    }

    public LeftAlignedLine(Component... components) {
      setLayout(LetterLayout.leftAlignedRow());
      addAll(this, components);
    }

    public void setSpacing(int spacing) {
      ((LetterLayout) getLayout()).setSpacing(spacing, spacing);
    }

    public void add(String text) {
      add(new JLabel(text));
    }
  }

  static public class TreeMultiMap<A, B> extends MultiMap<A, B> {

    public TreeMultiMap() {
      super(true);
    }

    public TreeMultiMap(MultiMap<A, B> map) {
      this();
      putAll(map);
    }

    public NavigableMap<A, List<B>> innerMap() {
      return (NavigableMap) data;
    }
  }

  final static public class ContentsIndexedList<A> extends RandomAccessAbstractList<A> implements IContentsIndexedList<A>, IContentsIndexedList2<A> {

    public Map<A, TreeSet<Elem<A>>> index = new HashMap();

    final public ArrayList<Elem<A>> list = new ArrayList();

    final static public class Elem<A> extends HasIndex {

      public A s;

      public String toString() {
        return "Elem " + quote(s) + "@" + idx;
      }
    }

    public ContentsIndexedList() {
    }

    public ContentsIndexedList(Map<A, TreeSet<Elem<A>>> index) {
      this.index = index;
    }

    public ContentsIndexedList(Collection<A> l) {
      addAll(l);
    }

    public A get(int i) {
      return list.get(i).s;
    }

    public int size() {
      return list.size();
    }

    public A set(int i, A s) {
      Elem<A> t = list.get(i);
      A old = t.s;
      if (eq(old, s))
        return old;
      removeFromIdx(t);
      t.s = s;
      addToIdx(t);
      return old;
    }

    public boolean add(A s) {
      ++modCount;
      Elem<A> t = new Elem();
      t.s = s;
      t.idx = size();
      list.add(t);
      addToIdx(t);
      return true;
    }

    public void add(int i, A s) {
      ++modCount;
      Elem<A> t = new Elem();
      t.s = s;
      t.idx = i;
      list.add(i, t);
      reorder(i + 1);
      addToIdx(t);
    }

    public boolean addAll(int i, Collection<? extends A> l) {
      int n = l.size();
      if (n == 0)
        return false;
      ++modCount;
      List<Elem<A>> l2 = emptyList(n);
      int j = i;
      for (A s : l) {
        Elem<A> t = new Elem();
        t.s = s;
        t.idx = j++;
        l2.add(t);
      }
      list.addAll(i, l2);
      reorder(i + n);
      for (Elem<A> t : l2) addToIdx(t);
      return true;
    }

    public A remove(int i) {
      ++modCount;
      Elem<A> t = list.get(i);
      removeFromIdx(t);
      list.remove(i);
      reorder(i);
      return t.s;
    }

    public void reorder(int fromIdx) {
      int n = size();
      for (int i = fromIdx; i < n; i++) list.get(i).idx = i;
    }

    public void removeFromIdx(Elem<A> t) {
      TreeSet<Elem<A>> idx = index.get(t.s);
      idx.remove(t);
      if (idx.isEmpty())
        index.remove(t.s);
    }

    public void addToIdx(Elem<A> t) {
      TreeSet<Elem<A>> idx = index.get(t.s);
      if (idx == null)
        index.put(t.s, idx = new TreeSet());
      idx.add(t);
    }

    @Override
    public int indexOf(Object s) {
      TreeSet<Elem<A>> l = index.get(s);
      return l == null ? -1 : first(l).idx;
    }

    @Override
    public int lastIndexOf(Object s) {
      TreeSet<Elem<A>> l = index.get(s);
      return l == null ? -1 : last(l).idx;
    }

    @Override
    public boolean contains(Object s) {
      return index.containsKey(s);
    }

    public void clear() {
      ++modCount;
      index.clear();
      list.clear();
    }

    public void removeRange(int fromIndex, int toIndex) {
      if (fromIndex == toIndex)
        return;
      ++modCount;
      for (int i = fromIndex; i < toIndex; i++) removeFromIdx(list.get(i));
      list.subList(fromIndex, toIndex).clear();
      reorder(fromIndex);
    }

    public int[] indicesOf(A o) {
      TreeSet<Elem<A>> idx = index.get(o);
      if (idx == null)
        return emptyIntArray();
      int[] a = new int[idx.size()];
      int i = 0;
      for (Elem<A> t : idx) a[i++] = t.idx;
      return a;
    }

    public TreeSet<HasIndex> indicesOf_treeSetOfHasIndex(A o) {
      return (TreeSet) index.get(o);
    }
  }

  static final public class WidthAndHeightFinal extends Meta implements WidthAndHeight, IFieldsToList {

    static final public String _fieldOrder = "width height";

    public int width;

    public int height;

    public WidthAndHeightFinal() {
    }

    public WidthAndHeightFinal(int width, int height) {
      this.height = height;
      this.width = width;
    }

    public boolean equals(Object o) {
      if (!(o instanceof WidthAndHeightFinal))
        return false;
      WidthAndHeightFinal __0 = (WidthAndHeightFinal) o;
      return width == __0.width && height == __0.height;
    }

    public int hashCode() {
      int h = -1177452162;
      h = boostHashCombine(h, _hashCode(width));
      h = boostHashCombine(h, _hashCode(height));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { width, height };
    }

    public int getWidth() {
      return width;
    }

    public int getHeight() {
      return height;
    }

    public WidthAndHeightFinal(int wAndH) {
      this(wAndH, wAndH);
    }

    public String toString() {
      return n2(width) + "*" + n2(height) + " px";
    }
  }

  static public class SynchronizedNavigableMap<K, V> extends SynchronizedSortedMap<K, V> implements NavigableMap<K, V> {

    public SynchronizedNavigableMap() {
    }

    public NavigableMap<K, V> innerMap() {
      return (NavigableMap) m;
    }

    public SynchronizedNavigableMap(NavigableMap<K, V> m) {
      super(m);
    }

    public SynchronizedNavigableMap(NavigableMap<K, V> m, Object mutex) {
      super(m, mutex);
    }

    public Entry<K, V> lowerEntry(K key) {
      synchronized (mutex) {
        return innerMap().lowerEntry(key);
      }
    }

    public K lowerKey(K key) {
      synchronized (mutex) {
        return innerMap().lowerKey(key);
      }
    }

    public Entry<K, V> floorEntry(K key) {
      synchronized (mutex) {
        return innerMap().floorEntry(key);
      }
    }

    public K floorKey(K key) {
      synchronized (mutex) {
        return innerMap().floorKey(key);
      }
    }

    public Entry<K, V> ceilingEntry(K key) {
      synchronized (mutex) {
        return innerMap().ceilingEntry(key);
      }
    }

    public K ceilingKey(K key) {
      synchronized (mutex) {
        return innerMap().ceilingKey(key);
      }
    }

    public Entry<K, V> higherEntry(K key) {
      synchronized (mutex) {
        return innerMap().higherEntry(key);
      }
    }

    public K higherKey(K key) {
      synchronized (mutex) {
        return innerMap().higherKey(key);
      }
    }

    public Entry<K, V> firstEntry() {
      synchronized (mutex) {
        return innerMap().firstEntry();
      }
    }

    public Entry<K, V> lastEntry() {
      synchronized (mutex) {
        return innerMap().lastEntry();
      }
    }

    public Entry<K, V> pollFirstEntry() {
      synchronized (mutex) {
        return innerMap().pollFirstEntry();
      }
    }

    public Entry<K, V> pollLastEntry() {
      synchronized (mutex) {
        return innerMap().pollLastEntry();
      }
    }

    public NavigableMap<K, V> descendingMap() {
      synchronized (mutex) {
        return new SynchronizedNavigableMap<>(innerMap().descendingMap(), mutex);
      }
    }

    public NavigableSet<K> keySet() {
      return navigableKeySet();
    }

    public NavigableSet<K> navigableKeySet() {
      synchronized (mutex) {
        return new SynchronizedNavigableSet<>(innerMap().navigableKeySet(), mutex);
      }
    }

    public NavigableSet<K> descendingKeySet() {
      synchronized (mutex) {
        return new SynchronizedNavigableSet<>(innerMap().descendingKeySet(), mutex);
      }
    }

    public SortedMap<K, V> subMap(K fromKey, K toKey) {
      synchronized (mutex) {
        return new SynchronizedNavigableMap<>(innerMap().subMap(fromKey, true, toKey, false), mutex);
      }
    }

    public SortedMap<K, V> headMap(K toKey) {
      synchronized (mutex) {
        return new SynchronizedNavigableMap<>(innerMap().headMap(toKey, false), mutex);
      }
    }

    public SortedMap<K, V> tailMap(K fromKey) {
      synchronized (mutex) {
        return new SynchronizedNavigableMap<>(innerMap().tailMap(fromKey, true), mutex);
      }
    }

    public NavigableMap<K, V> subMap(K fromKey, boolean fromInclusive, K toKey, boolean toInclusive) {
      synchronized (mutex) {
        return new SynchronizedNavigableMap<>(innerMap().subMap(fromKey, fromInclusive, toKey, toInclusive), mutex);
      }
    }

    public NavigableMap<K, V> headMap(K toKey, boolean inclusive) {
      synchronized (mutex) {
        return new SynchronizedNavigableMap<>(innerMap().headMap(toKey, inclusive), mutex);
      }
    }

    public NavigableMap<K, V> tailMap(K fromKey, boolean inclusive) {
      synchronized (mutex) {
        return new SynchronizedNavigableMap<>(innerMap().tailMap(fromKey, inclusive), mutex);
      }
    }
  }

  static public interface IContentsIndexedList2<A> extends List<A> {

    public TreeSet<HasIndex> indicesOf_treeSetOfHasIndex(A o);
  }

  static public class PNGFile extends Concept {

    public String pngPath;

    public Rect r;

    public PNGFile() {
    }

    public PNGFile(String pngPath) {
      this.pngPath = pngPath;
    }

    public PNGFile(RGBImage img) {
      this(img.getBufferedImage());
    }

    public File pngFile() {
      if (pngPath == null) {
        pngPath = _programID() + "/" + id + ".png";
        change();
      }
      return prepareFile(new File(javaxDataDir(), pngPath));
    }

    public PNGFile(BufferedImage img) {
      savePNG(pngFile(), img);
    }

    public BufferedImage loadImage() {
      return loadImage2(pngFile());
    }

    public BufferedImage getImage() {
      return loadImage();
    }

    public BufferedImage getImageSafe() {
      try {
        return loadImage();
      } catch (Throwable __e) {
        pcallFail(__e);
      }
      return null;
    }

    public String md5() {
      try {
        return md5OfBufferedImage(getImage());
      } catch (Throwable __e) {
        pcallFail(__e);
      }
      return "-";
    }

    public boolean hasImage() {
      return pngFile().exists();
    }
  }

  static public interface Producer<A> {

    public A next();
  }

  static public class Value<A> implements IF0<A>, IFieldsToList {

    public A value;

    public Value() {
    }

    public Value(A value) {
      this.value = value;
    }

    public boolean equals(Object o) {
      if (!(o instanceof Value))
        return false;
      Value __1 = (Value) o;
      return eq(value, __1.value);
    }

    public int hashCode() {
      int h = 82420049;
      h = boostHashCombine(h, _hashCode(value));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { value };
    }

    public A get() {
      return value;
    }

    public String toString() {
      return str(get());
    }
  }

  static public interface IIntPred {

    public boolean get(int a);
  }

  static public class Cache<A> {

    public Object maker;

    public A value;

    public long loaded;

    static public boolean debug = false;

    public long changeCount;

    public Lock lock = lock();

    public Cache() {
    }

    public Cache(Object maker) {
      this.maker = maker;
    }

    public Cache(IF0<A> maker) {
      this.maker = maker;
    }

    public A get() {
      if (hasLock(lock))
        return value;
      Lock __0 = lock;
      lock(__0);
      try {
        if (loaded == 0) {
          value = make();
          changeCount++;
          loaded = sysNow();
        }
        return value;
      } finally {
        unlock(__0);
      }
    }

    public void clear() {
      Lock __1 = lock;
      lock(__1);
      try {
        if (debug && loaded != 0)
          print("Clearing cache");
        value = null;
        changeCount++;
        loaded = 0;
      } finally {
        unlock(__1);
      }
    }

    public void clear(double seconds) {
      Lock __2 = lock;
      lock(__2);
      try {
        if (seconds != 0 && loaded != 0 && sysNow() >= loaded + seconds * 1000)
          clear();
      } finally {
        unlock(__2);
      }
    }

    public void set(A a) {
      Lock __3 = lock;
      lock(__3);
      try {
        value = a;
        ++changeCount;
        loaded = sysNow();
      } finally {
        unlock(__3);
      }
    }

    public A make() {
      return (A) callF(maker);
    }
  }

  static public class Chain<A> implements Iterable<A> {

    public A element;

    public Chain<A> next;

    public int size;

    public Chain() {
    }

    public Chain(A element) {
      this.element = element;
      size = 1;
    }

    public Chain(A element, Chain<A> next) {
      this.next = next;
      this.element = element;
      size = next != null ? next.size + 1 : 1;
    }

    public String toString() {
      return str(toList());
    }

    public ArrayList<A> toList() {
      ArrayList<A> l = emptyList(size);
      Chain<A> c = this;
      while (c != null) {
        l.add(c.element);
        c = c.next;
      }
      return l;
    }

    public Iterator<A> iterator() {
      return toList().iterator();
    }
  }

  static public class CompactHashMap<K, V> extends CompactAbstractMap<K, V> {

    final static public int INITIAL_SIZE = 3;

    final static public double LOAD_FACTOR = 0.6;

    final static public Object nullObject = new Object();

    final static public Object deletedObject = new Object();

    public int elements;

    public int freecells;

    public Object[] table;

    public CompactHashMap() {
      this(INITIAL_SIZE);
    }

    public CompactHashMap(int size) {
      table = new Object[(size == 0 ? 1 : size) * 2];
      elements = 0;
      freecells = tableSize();
    }

    public CompactHashMap(Map<K, V> map) {
      this(0);
      if (map != null)
        putAll(map);
    }

    public synchronized int size() {
      return elements;
    }

    public synchronized boolean isEmpty() {
      return elements == 0;
    }

    public synchronized void clear() {
      elements = 0;
      for (int ix = 0; ix < tableSize(); ix++) {
        key(ix, null);
        value(ix, null);
      }
      freecells = tableSize();
    }

    public synchronized boolean containsKey(Object k) {
      return key(findKeyIndex(k)) != null;
    }

    public synchronized boolean containsValue(Object v) {
      if (v == null)
        v = (V) nullObject;
      for (int ix = 0; ix < tableSize(); ix++) if (value(ix) != null && value(ix).equals(v))
        return true;
      return false;
    }

    public synchronized Set<Entry<K, V>> entrySet() {
      return new EntrySet();
    }

    public synchronized V remove(Object k) {
      int index = findKeyIndex(k);
      if (key(index) != null) {
        V v = value(index);
        key(index, deletedObject);
        value(index, deletedObject);
        elements--;
        return v;
      } else
        return null;
    }

    public synchronized V put(K k, V v) {
      if (k == null)
        k = (K) nullObject;
      int hash = k.hashCode();
      int index = (hash & 0x7FFFFFFF) % tableSize();
      int offset = 1;
      int deletedix = -1;
      while (key(index) != null && !(key(index).hashCode() == hash && key(index).equals(k))) {
        if (key(index) == deletedObject)
          deletedix = index;
        index = ((index + offset) & 0x7FFFFFFF) % tableSize();
        offset = offset * 2 + 1;
        if (offset == -1)
          offset = 2;
      }
      if (key(index) == null) {
        if (deletedix != -1)
          index = deletedix;
        else
          freecells--;
        elements++;
        key(index, k);
        value(index, v);
        if (1 - (freecells / (double) tableSize()) > LOAD_FACTOR)
          rehash(tableSize() * 2 + 1);
        return null;
      } else {
        V oldv = value(index);
        value(index, v);
        return oldv;
      }
    }

    public void rehash(int newCapacity) {
      int oldCapacity = tableSize();
      Object[] newTable = new Object[newCapacity * 2];
      for (int ix = 0; ix < oldCapacity; ix++) {
        Object k = key(ix);
        if (k == null || k == deletedObject)
          continue;
        int hash = k.hashCode();
        int index = (hash & 0x7FFFFFFF) % newCapacity;
        int offset = 1;
        while (newTable[index * 2] != null) {
          index = ((index + offset) & 0x7FFFFFFF) % newCapacity;
          offset = offset * 2 + 1;
          if (offset == -1)
            offset = 2;
        }
        newTable[index * 2] = k;
        newTable[index * 2 + 1] = value(ix);
      }
      table = newTable;
      freecells = tableSize() - elements;
    }

    public synchronized V get(Object k) {
      return value(findKeyIndex(k));
    }

    public synchronized Collection<V> values() {
      return new ValueCollection();
    }

    public synchronized Set<K> keySet() {
      return new KeySet();
    }

    final public int findKeyIndex(Object k) {
      if (k == null)
        k = nullObject;
      int hash = k.hashCode();
      int index = (hash & 0x7FFFFFFF) % tableSize();
      int offset = 1;
      while (key(index) != null && !(key(index).hashCode() == hash && key(index).equals(k))) {
        index = ((index + offset) & 0x7FFFFFFF) % tableSize();
        offset = offset * 2 + 1;
        if (offset == -1)
          offset = 2;
      }
      return index;
    }

    public class KeySet extends AbstractSet<K> {

      public int size() {
        synchronized (CompactHashMap.this) {
          return elements;
        }
      }

      public boolean contains(Object k) {
        synchronized (CompactHashMap.this) {
          return containsKey(k);
        }
      }

      public Iterator<K> iterator() {
        synchronized (CompactHashMap.this) {
          return new KeyIterator();
        }
      }
    }

    public class KeyIterator<K> implements Iterator<K> {

      public int ix;

      public KeyIterator() {
        synchronized (CompactHashMap.this) {
          for (; ix < tableSize(); ix++) if (value(ix) != null && key(ix) != deletedObject)
            break;
        }
      }

      public boolean hasNext() {
        synchronized (CompactHashMap.this) {
          return ix < tableSize();
        }
      }

      public void remove() {
        throw new UnsupportedOperationException("Collection is read-only");
      }

      public K next() {
        synchronized (CompactHashMap.this) {
          if (ix >= tableSize())
            throw new NoSuchElementException();
          K key = (K) key(ix++);
          for (; ix < tableSize(); ix++) if (key(ix) != null && key(ix) != deletedObject)
            break;
          return key;
        }
      }
    }

    public class EntrySet extends AbstractSet<Map.Entry<K, V>> {

      public int size() {
        synchronized (CompactHashMap.this) {
          return elements;
        }
      }

      public boolean contains(Object o) {
        synchronized (CompactHashMap.this) {
          if (o instanceof Map.Entry) {
            Object key = ((Map.Entry) o).getKey();
            if (!containsKey((Map.Entry) o))
              return false;
            return eq(((Map.Entry) o).getValue(), get(key));
          }
          return false;
        }
      }

      public Iterator<Map.Entry<K, V>> iterator() {
        return new EntryIterator();
      }
    }

    public class EntryIterator implements Iterator<Map.Entry<K, V>> {

      public int ix;

      public EntryIterator() {
        synchronized (CompactHashMap.this) {
          for (; ix < tableSize(); ix++) if (value(ix) != null && key(ix) != deletedObject)
            break;
        }
      }

      public boolean hasNext() {
        synchronized (CompactHashMap.this) {
          return ix < tableSize();
        }
      }

      public void remove() {
        throw new UnsupportedOperationException("Collection is read-only");
      }

      public Map.Entry<K, V> next() {
        synchronized (CompactHashMap.this) {
          if (ix >= tableSize())
            throw new NoSuchElementException();
          K key = key(ix);
          V val = value(ix);
          ++ix;
          for (; ix < tableSize(); ix++) if (key(ix) != null && key(ix) != deletedObject)
            break;
          return simpleMapEntry(key, val);
        }
      }
    }

    public class ValueCollection<V> extends AbstractCollection<V> {

      public int size() {
        synchronized (CompactHashMap.this) {
          return elements;
        }
      }

      public Iterator<V> iterator() {
        return new ValueIterator();
      }

      public boolean contains(Object v) {
        return containsValue(v);
      }
    }

    public class ValueIterator<V> implements Iterator<V> {

      public int ix;

      public ValueIterator() {
        synchronized (CompactHashMap.this) {
          for (; ix < table.length / 2; ix++) if (value(ix) != null && value(ix) != deletedObject)
            break;
        }
      }

      public boolean hasNext() {
        synchronized (CompactHashMap.this) {
          return ix < tableSize();
        }
      }

      public void remove() {
        throw new UnsupportedOperationException("Collection is read-only");
      }

      public V next() {
        synchronized (CompactHashMap.this) {
          if (ix >= tableSize())
            throw new NoSuchElementException();
          V value = (V) value(ix++);
          for (; ix < tableSize(); ix++) if (value(ix) != null && value(ix) != deletedObject)
            break;
          return value;
        }
      }
    }

    public K key(int i) {
      return (K) table[i * 2];
    }

    public void key(int i, Object key) {
      table[i * 2] = key;
    }

    public V value(int i) {
      return (V) table[i * 2 + 1];
    }

    public void value(int i, Object value) {
      table[i * 2 + 1] = value;
    }

    public int tableSize() {
      return table.length / 2;
    }
  }

  static public class UpdateTrigger implements Runnable, IFieldsToList {

    public Updateable target;

    public UpdateTrigger() {
    }

    public UpdateTrigger(Updateable target) {
      this.target = target;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + target + ")";
    }

    public boolean equals(Object o) {
      if (!(o instanceof UpdateTrigger))
        return false;
      UpdateTrigger __1 = (UpdateTrigger) o;
      return eq(target, __1.target);
    }

    public int hashCode() {
      int h = -1756880753;
      h = boostHashCombine(h, _hashCode(target));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { target };
    }

    public void run() {
      try {
        {
          if (target != null)
            target.update();
        }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }
  }

  static public class BetterThread extends Thread {

    public Runnable target;

    public BetterThread(Runnable target) {
      this.target = target;
      _created();
    }

    public BetterThread(Runnable target, String name) {
      super(name);
      this.target = target;
      _created();
    }

    public void _created() {
      vmBus_send("threadCreated", this);
    }

    public void run() {
      try {
        try {
          vmBus_send("threadStarted", this);
          if (target != null)
            target.run();
        } finally {
          vmBus_send("threadEnded", this);
        }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }

    public Runnable getTarget() {
      return target;
    }
  }

  static public class TimedCache<A> {

    public long timeout;

    volatile public A value;

    public Object function;

    public long set;

    public Lock lock = lock();

    public boolean keepValueWhileCalculating = false;

    public int stores, fails, hits;

    public TimedCache(double timeoutSeconds, IF0<A> function) {
      this(function, timeoutSeconds);
    }

    public TimedCache(double timeoutSeconds, Object function) {
      this(function, timeoutSeconds);
    }

    public TimedCache(IF0<A> function, double timeoutSeconds) {
      this((Object) function, timeoutSeconds);
    }

    public TimedCache(Object function, double timeoutSeconds) {
      this(timeoutSeconds);
      this.function = function;
    }

    public TimedCache(double timeoutSeconds) {
      timeout = toMS(timeoutSeconds);
    }

    public A set(A a) {
      Lock __0 = lock;
      lock(__0);
      try {
        ++stores;
        value = a;
        set = now();
        return a;
      } finally {
        unlock(__0);
      }
    }

    public boolean has() {
      Lock __1 = lock;
      lock(__1);
      try {
        clean();
        if (set != 0) {
          ++hits;
          return true;
        }
        ++fails;
        return false;
      } finally {
        unlock(__1);
      }
    }

    public A get() {
      Lock __2 = lock;
      lock(__2);
      try {
        if (function != null)
          return get(function);
        clean();
        if (set != 0)
          ++hits;
        else
          ++fails;
        return value;
      } finally {
        unlock(__2);
      }
    }

    public A get(IF0<A> makerFunction) {
      return get((Object) makerFunction);
    }

    public A get(Object makerFunction) {
      Lock __3 = lock;
      lock(__3);
      try {
        if (keepValueWhileCalculating) {
          if (value == null || shouldClean())
            set((A) callF(makerFunction));
          return value;
        } else {
          return this.has() ? getNoClean() : set((A) callF(makerFunction));
        }
      } finally {
        unlock(__3);
      }
    }

    public A getNoClean() {
      Lock __4 = lock;
      lock(__4);
      try {
        return value;
      } finally {
        unlock(__4);
      }
    }

    public void clean() {
      Lock __5 = lock;
      lock(__5);
      try {
        if (shouldClean())
          clear();
      } finally {
        unlock(__5);
      }
    }

    public boolean shouldClean() {
      return timeout > 0 && now() > set + timeout;
    }

    public void clear() {
      Lock __6 = lock;
      lock(__6);
      try {
        set = 0;
        value = null;
      } finally {
        unlock(__6);
      }
    }

    public String stats() {
      return "Stores: " + stores + ", hits: " + hits + ", fails: " + fails;
    }

    public A peek() {
      return value;
    }
  }

  static public interface ISetAndGet<A> extends ISetter<A>, IF0<A> {
  }

  static abstract public class LiveValue<A> implements IF0WithChangeListeners<A> {

    abstract public Class<A> getType();

    public abstract A get();
  }

  static public class ToJava {

    public Object get(Object o) {
      {
        var __1 = getOpt(o);
        if (__1 != null)
          return __1;
      }
      throw fail("Can't ToJava: " + className(o));
    }

    public Object getOpt(Object o) {
      if (o == null)
        return "null";
      if (o instanceof String)
        return quote(o);
      if (o instanceof Number)
        return str(o);
      if (o instanceof IFieldsToList)
        return formatFunctionCall("new " + shortName((IFieldsToList) o), map(__104 -> get(__104), ((IFieldsToList) o)._fieldsToList()));
      if (o instanceof List)
        return functionCall_list("ll", map(__105 -> get(__105), (List) o));
      if (o instanceof Class)
        return shortClassName((Class) o) + ".class";
      if (o instanceof int[])
        return "new int[] {" + joinWithComma(toList((int[]) o)) + "}";
      return null;
    }
  }

  static public interface IContentsIndexedList<A> extends List<A> {

    public int[] indicesOf(A o);
  }

  static public class DoubleRect {

    public double x, y, w, h;

    public DoubleRect() {
    }

    public DoubleRect(Rectangle r) {
      x = r.x;
      y = r.y;
      w = r.width;
      h = r.height;
    }

    public DoubleRect(double x, double y, double w, double h) {
      this.h = h;
      this.w = w;
      this.y = y;
      this.x = x;
    }

    public boolean eq(Object o) {
      if (!(o instanceof DoubleRect))
        return false;
      if (o == this)
        return true;
      DoubleRect r = (DoubleRect) o;
      return x == r.x && y == r.y && w == r.w && h == r.h;
    }

    public String toString() {
      return x + "," + y + " / " + w + "," + h;
    }

    public double x1() {
      return x;
    }

    public double y1() {
      return y;
    }

    public double x2() {
      return x + w;
    }

    public double y2() {
      return y + h;
    }

    public boolean contains(Pt p) {
      return contains(p.x, p.y);
    }

    public boolean contains(double _x, double _y) {
      return _x >= x && _y >= y && _x < x + w && _y < y + h;
    }

    public boolean empty() {
      return w <= 0 || h <= 0;
    }
  }

  static public class Lowest<A> implements IBest<A> {

    public A best;

    public double score;

    transient public Object onChange;

    synchronized public boolean isNewBest(double score) {
      return best == null || score < this.score;
    }

    synchronized public double bestScore() {
      return best == null ? Double.NaN : score;
    }

    public double score() {
      return bestScore();
    }

    synchronized public float floatScore() {
      return best == null ? Float.NaN : (float) score;
    }

    synchronized public float floatScoreOr(float defaultValue) {
      return best == null ? defaultValue : (float) score;
    }

    public boolean put(A a, double score) {
      boolean change = false;
      synchronized (this) {
        if (a != null && isNewBest(score)) {
          best = a;
          this.score = score;
          change = true;
        }
      }
      if (change)
        pcallF(onChange);
      return change;
    }

    synchronized public void clear() {
      best = null;
      score = 0;
    }

    synchronized public A get() {
      return best;
    }

    synchronized public boolean has() {
      return best != null;
    }

    synchronized public Pair<A, Double> pair() {
      return best == null ? null : new Pair(best, bestScore());
    }

    public String toString() {
      return "Score " + formatDouble_significant2(score, 4) + ": " + best;
    }
  }

  static public interface IResourceLoader {

    public String loadSnippet(String snippetID);

    public String getTranspiled(String snippetID);

    public int getSnippetType(String snippetID);

    public String getSnippetTitle(String snippetID);

    public File loadLibrary(String snippetID);

    default public File pathToJavaXJar() {
      return pathToJavaxJar_noResourceLoader();
    }

    default public File getSnippetJar(String snippetID, String transpiledSrc) {
      return null;
    }
  }

  static public class Either<A, B> {

    public byte which;

    public Object value;

    public Either() {
    }

    public Either(int which, Object value) {
      this.which = (byte) which;
      this.value = value;
    }

    public boolean isA() {
      return which == 1;
    }

    public boolean isB() {
      return which == 2;
    }

    public A a() {
      if (which != 1)
        _failMe();
      return (A) value;
    }

    public B b() {
      if (which != 2)
        _failMe();
      return (B) value;
    }

    public A aOpt() {
      return which != 1 ? null : (A) value;
    }

    public B bOpt() {
      return which != 2 ? null : (B) value;
    }

    public void _failMe() {
      throw fail("Either object is of wrong type: " + shortClassName(value));
    }

    public String toString() {
      return "Either" + (isA() ? "A" : "B") + "(" + value + ")";
    }
  }

  static public class InstantNeverHideToolTip extends MouseAdapter {

    public JComponent component;

    public JToolTip toolTip;

    public Popup popup;

    final public InstantNeverHideToolTip setOffset(Pt offset) {
      return offset(offset);
    }

    public InstantNeverHideToolTip offset(Pt offset) {
      this.offset = offset;
      return this;
    }

    final public Pt getOffset() {
      return offset();
    }

    public Pt offset() {
      return offset;
    }

    public Pt offset = pt(20, 20);

    public int x, y;

    public String text;

    public IF0<String> calculateText;

    public IF1<Pt, String> calculateTextFromCoordinates;

    final public InstantNeverHideToolTip setVerbose(boolean verbose) {
      return verbose(verbose);
    }

    public InstantNeverHideToolTip verbose(boolean verbose) {
      this.verbose = verbose;
      return this;
    }

    final public boolean getVerbose() {
      return verbose();
    }

    public boolean verbose() {
      return verbose;
    }

    public boolean verbose = false;

    public Pt mousePt = pt(0, 0);

    public InstantNeverHideToolTip(IF0<String> calculateText, JComponent component) {
      this(component);
      this.calculateText = calculateText;
    }

    public InstantNeverHideToolTip(IF1<Pt, String> calculateTextFromCoordinates, JComponent component) {
      this(component);
      this.calculateTextFromCoordinates = calculateTextFromCoordinates;
    }

    public InstantNeverHideToolTip(String text, JComponent component) {
      this(component);
      this.text = text;
    }

    public InstantNeverHideToolTip(JComponent component) {
      this.component = component;
      {
        swing(() -> {
          component.addMouseListener(InstantNeverHideToolTip.this);
          component.addMouseMotionListener(InstantNeverHideToolTip.this);
          toolTip = component.createToolTip();
          bindToComponent(component, null, () -> hideToolTip());
        });
      }
    }

    @Override
    public void mouseEntered(MouseEvent e) {
      mousePt(ptFromEvent(e));
      showToolTip();
    }

    public void mousePt(Pt p) {
      mousePt = p;
      if (p != null) {
        var p2 = translatePt(convertPointToScreen(p, component), offset);
        x = p2.x;
        y = p2.y;
      }
    }

    @Override
    public void mouseDragged(MouseEvent e) {
      mouseMoved(e);
    }

    @Override
    public void mouseMoved(MouseEvent e) {
      mousePt(ptFromEvent(e));
      if (verbose)
        printVars("mousePt", mousePt, "calculateTextFromCoordinates", calculateTextFromCoordinates);
      if (calculateTextFromCoordinates != null) {
        if (toolTipShowing())
          text = null;
        updateText();
      }
    }

    public void updateText() {
      swing(() -> {
        if (calculateText != null)
          setText(calculateText.get());
        else if (calculateTextFromCoordinates != null)
          setText(calculateTextFromCoordinates.get(mousePt));
      });
    }

    public void showToolTip() {
      updateText();
      showToolTip_noUpdateText();
    }

    public void showToolTip_noUpdateText() {
      if (empty(text))
        return;
      toolTip.setTipText(text);
      popup = PopupFactory.getSharedInstance().getPopup(component, toolTip, x, y);
      popup.show();
    }

    public void mouseExited(MouseEvent e) {
      hideToolTip();
    }

    public boolean toolTipShowing() {
      return popup != null;
    }

    public void hideToolTip() {
      if (popup != null) {
        popup.hide();
        popup = null;
      }
    }

    public String getText() {
      return text;
    }

    public void setText(String text) {
      swing(() -> {
        if (verbose)
          printVars("setText", "text", text);
        if (eq(text, getText()))
          return;
        InstantNeverHideToolTip.this.text = text;
        if (verbose)
          printVars("setText", "showing", toolTipShowing(), "x", x, "y", y);
        if (toolTipShowing()) {
          hideToolTip();
          showToolTip_noUpdateText();
        }
      });
    }

    public InstantNeverHideToolTip offset(int pixels) {
      return offset(pt(pixels, pixels));
    }
  }

  static public class proxy_InvocationHandler implements InvocationHandler {

    public Object target;

    public proxy_InvocationHandler() {
    }

    public proxy_InvocationHandler(Object target) {
      this.target = target;
    }

    public Object invoke(Object proxy, Method method, Object[] args) {
      return call(target, method.getName(), unnull(args));
    }
  }

  final static public class TokenIndexedList3 extends RandomAccessAbstractList<String> implements IContentsIndexedList<String>, IContentsIndexedList2<String> {

    final public HashMap<String, TreeSet<Token>> index = new HashMap();

    final public ArrayList<Token> list = new ArrayList();

    final static public class Token extends HasIndex {

      public String s;

      public String toString() {
        return "Token " + quote(s) + "@" + idx;
      }
    }

    public TokenIndexedList3() {
    }

    public TokenIndexedList3(Collection<String> l) {
      addAll(l);
    }

    public String get(int i) {
      return list.get(i).s;
    }

    public int size() {
      return list.size();
    }

    public String set(int i, String s) {
      Token t = list.get(i);
      String old = t.s;
      if (eq(old, s))
        return old;
      removeFromIdx(t);
      t.s = s;
      addToIdx(t);
      return old;
    }

    public boolean add(String s) {
      ++modCount;
      Token t = new Token();
      t.s = s;
      t.idx = size();
      list.add(t);
      addToIdx(t);
      return true;
    }

    public void add(int i, String s) {
      ++modCount;
      Token t = new Token();
      t.s = s;
      t.idx = i;
      list.add(i, t);
      reorder(i + 1);
      addToIdx(t);
    }

    public boolean addAll(int i, Collection<? extends String> l) {
      int n = l.size();
      if (n == 0)
        return false;
      ++modCount;
      List<Token> l2 = emptyList(n);
      int j = i;
      for (String s : l) {
        Token t = new Token();
        t.s = s;
        t.idx = j++;
        l2.add(t);
      }
      list.addAll(i, l2);
      reorder(i + n);
      for (Token t : l2) addToIdx(t);
      return true;
    }

    public String remove(int i) {
      ++modCount;
      Token t = list.get(i);
      removeFromIdx(t);
      list.remove(i);
      reorder(i);
      return t.s;
    }

    public void reorder(int fromIdx) {
      int n = size();
      for (int i = fromIdx; i < n; i++) list.get(i).idx = i;
    }

    public void removeFromIdx(Token t) {
      TreeSet<Token> idx = index.get(t.s);
      idx.remove(t);
      if (idx.isEmpty())
        index.remove(t.s);
    }

    public void addToIdx(Token t) {
      TreeSet<Token> idx = index.get(t.s);
      if (idx == null)
        index.put(t.s, idx = new TreeSet());
      idx.add(t);
    }

    @Override
    public int indexOf(Object s) {
      TreeSet<Token> l = index.get(s);
      return l == null ? -1 : first(l).idx;
    }

    @Override
    public int lastIndexOf(Object s) {
      TreeSet<Token> l = index.get(s);
      return l == null ? -1 : last(l).idx;
    }

    @Override
    public boolean contains(Object s) {
      return index.containsKey(s);
    }

    public void clear() {
      ++modCount;
      index.clear();
      list.clear();
    }

    public void removeRange(int fromIndex, int toIndex) {
      if (fromIndex == toIndex)
        return;
      ++modCount;
      for (int i = fromIndex; i < toIndex; i++) removeFromIdx(list.get(i));
      list.subList(fromIndex, toIndex).clear();
      reorder(fromIndex);
    }

    public int[] indicesOf(String o) {
      TreeSet<Token> idx = index.get(o);
      if (idx == null)
        return emptyIntArray();
      int[] a = new int[idx.size()];
      int i = 0;
      for (Token t : idx) a[i++] = t.idx;
      return a;
    }

    public TreeSet<HasIndex> indicesOf_treeSetOfHasIndex(String o) {
      return (TreeSet) index.get(o);
    }
  }

  static public class ChangeTrigger implements Runnable, IFieldsToList {

    public ChangeTriggerable target;

    public ChangeTrigger() {
    }

    public ChangeTrigger(ChangeTriggerable target) {
      this.target = target;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + target + ")";
    }

    public boolean equals(Object o) {
      if (!(o instanceof ChangeTrigger))
        return false;
      ChangeTrigger __1 = (ChangeTrigger) o;
      return eq(target, __1.target);
    }

    public int hashCode() {
      int h = -1239972920;
      h = boostHashCombine(h, _hashCode(target));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { target };
    }

    public void run() {
      try {
        {
          if (target != null)
            target.change();
        }
      } catch (Exception __e) {
        throw rethrow(__e);
      }
    }
  }

  static public class Flattener {

    public List out = new ArrayList();

    public Flattener() {
    }

    public Flattener(Object... l) {
      add(l);
    }

    public void add(Object o) {
      if (o instanceof Object[])
        for (var x : ((Object[]) o)) add(x);
      else if (o instanceof Iterable)
        for (var x : ((Iterable) o)) add(x);
      else if (o != null)
        out.add(o);
    }

    public void add(Object... l) {
      add((Object) l);
    }

    public List toList() {
      return out;
    }

    public Object[] toArray() {
      return toObjectArray(out);
    }
  }

  static public class TimestampRange implements Comparable<TimestampRange>, IFieldsToList {

    static final public String _fieldOrder = "start end";

    public Timestamp start;

    public Timestamp end;

    public TimestampRange() {
    }

    public TimestampRange(Timestamp start, Timestamp end) {
      this.end = end;
      this.start = start;
    }

    public boolean equals(Object o) {
      if (!(o instanceof TimestampRange))
        return false;
      TimestampRange __1 = (TimestampRange) o;
      return eq(start, __1.start) && eq(end, __1.end);
    }

    public int hashCode() {
      int h = -2020922905;
      h = boostHashCombine(h, _hashCode(start));
      h = boostHashCombine(h, _hashCode(end));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { start, end };
    }

    public TimestampRange(long start, long end) {
      this(new Timestamp(start), new Timestamp(end));
    }

    final public Timestamp startTime() {
      return start();
    }

    public Timestamp start() {
      return start;
    }

    final public Timestamp endTime() {
      return end();
    }

    public Timestamp end() {
      return end;
    }

    final public TimestampRange startTime(Timestamp start) {
      return start(start);
    }

    public TimestampRange start(Timestamp start) {
      this.start = start;
      return this;
    }

    final public TimestampRange endTime(Timestamp end) {
      return end(end);
    }

    public TimestampRange end(Timestamp end) {
      this.end = end;
      return this;
    }

    public boolean complete() {
      return start != null && end != null;
    }

    public Duration duration() {
      return !complete() ? null : end.minusAsDuration(start);
    }

    public long length() {
      return !complete() ? 0 : end.unixDate() - start.unixDate();
    }

    public String toString() {
      return start + " to " + end;
    }

    public int compareTo(TimestampRange r) {
      return cmp(start, r.start);
    }

    public List<Timestamp> toList() {
      return ll(start, end);
    }
  }

  static public class BetterLabel extends JLabel {

    public boolean autoToolTip = true;

    public BetterLabel() {
      final WeakReference<BetterLabel> me = new WeakReference<>(this);
      componentPopupMenu(this, BetterLabel_menuItems(me));
    }

    public BetterLabel(String text) {
      this();
      this.setText(text);
    }

    public void setText(String text) {
      super.setText(text);
      if (autoToolTip)
        if (!swic(text, "<html>"))
          setToolTipText(nullIfEmpty(text));
    }
  }

  static public VF1<JPopupMenu> BetterLabel_menuItems(final WeakReference<BetterLabel> me) {
    return new VF1<JPopupMenu>() {

      public void get(JPopupMenu menu) {
        try {
          addMenuItem(menu, "Copy text to clipboard", new Runnable() {

            public void run() {
              try {
                copyTextToClipboard(me.get().getText());
              } catch (Exception __e) {
                throw rethrow(__e);
              }
            }

            public String toString() {
              return "copyTextToClipboard(me.get().getText());";
            }
          });
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "addMenuItem(menu, \"Copy text to clipboard\", r {\r\n      copyTextToClipboard(me...";
      }
    };
  }

  static public class GrabbableIntPixels implements IFieldsToList {

    static final public String _fieldOrder = "data w h offset scanlineStride";

    public int[] data;

    public int w;

    public int h;

    public int offset;

    public int scanlineStride;

    public GrabbableIntPixels() {
    }

    public GrabbableIntPixels(int[] data, int w, int h, int offset, int scanlineStride) {
      this.scanlineStride = scanlineStride;
      this.offset = offset;
      this.h = h;
      this.w = w;
      this.data = data;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + data + ", " + w + ", " + h + ", " + offset + ", " + scanlineStride + ")";
    }

    public boolean equals(Object o) {
      if (!(o instanceof GrabbableIntPixels))
        return false;
      GrabbableIntPixels __1 = (GrabbableIntPixels) o;
      return eq(data, __1.data) && w == __1.w && h == __1.h && offset == __1.offset && scanlineStride == __1.scanlineStride;
    }

    public int hashCode() {
      int h = -1183022196;
      h = boostHashCombine(h, _hashCode(data));
      h = boostHashCombine(h, _hashCode(w));
      h = boostHashCombine(h, _hashCode(h));
      h = boostHashCombine(h, _hashCode(offset));
      h = boostHashCombine(h, _hashCode(scanlineStride));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { data, w, h, offset, scanlineStride };
    }

    public int[] asPackedArray() {
      if (offset == 0 && data.length == w * h)
        return data;
      int[] pixels = new int[w * h];
      for (int y = 0; y < h; y++) arrayCopy(data, offset + y * scanlineStride, pixels, y * h, w);
      return pixels;
    }
  }

  static public class MRUCache<A, B> extends LinkedHashMap<A, B> {

    public int maxSize = 10;

    public MRUCache() {
    }

    public MRUCache(int maxSize) {
      this.maxSize = maxSize;
    }

    public boolean removeEldestEntry(Map.Entry eldest) {
      return size() > maxSize;
    }

    public Object _serialize() {
      return ll(maxSize, cloneLinkedHashMap(this));
    }

    static public MRUCache _deserialize(List l) {
      MRUCache m = new MRUCache();
      m.maxSize = (int) first(l);
      m.putAll((LinkedHashMap) second(l));
      return m;
    }
  }

  static public class TransferableImage implements Transferable {

    public Image i;

    public TransferableImage(Image i) {
      this.i = i;
    }

    public Object getTransferData(DataFlavor flavor) throws UnsupportedFlavorException, IOException {
      if (flavor.equals(DataFlavor.imageFlavor) && i != null) {
        return i;
      } else {
        throw new UnsupportedFlavorException(flavor);
      }
    }

    public DataFlavor[] getTransferDataFlavors() {
      DataFlavor[] flavors = new DataFlavor[1];
      flavors[0] = DataFlavor.imageFlavor;
      return flavors;
    }

    public boolean isDataFlavorSupported(DataFlavor flavor) {
      DataFlavor[] flavors = getTransferDataFlavors();
      for (int i = 0; i < flavors.length; i++) {
        if (flavor.equals(flavors[i])) {
          return true;
        }
      }
      return false;
    }
  }

  static public class AlphanumComparator implements Comparator<String> {

    public boolean ignoreCase = false;

    private final boolean isDigit(char ch) {
      return ((ch >= 48) && (ch <= 57));
    }

    private final String getChunk(String s, int slength, int marker) {
      StringBuilder chunk = new StringBuilder();
      char c = s.charAt(marker);
      chunk.append(c);
      marker++;
      if (isDigit(c))
        while (marker < slength) {
          c = s.charAt(marker);
          if (!isDigit(c))
            break;
          chunk.append(c);
          marker++;
        }
      else
        while (marker < slength) {
          c = s.charAt(marker);
          if (isDigit(c))
            break;
          chunk.append(c);
          marker++;
        }
      return chunk.toString();
    }

    public int compare(String s1, String s2) {
      if (s1 == null)
        return s2 == null ? 0 : -1;
      if (s2 == null)
        return 1;
      int thisMarker = 0;
      int thatMarker = 0;
      int s1Length = s1.length();
      int s2Length = s2.length();
      while (thisMarker < s1Length && thatMarker < s2Length) {
        String thisChunk = getChunk(s1, s1Length, thisMarker);
        thisMarker += thisChunk.length();
        String thatChunk = getChunk(s2, s2Length, thatMarker);
        thatMarker += thatChunk.length();
        int result = 0;
        if (isDigit(thisChunk.charAt(0)) && isDigit(thatChunk.charAt(0))) {
          int thisChunkLength = thisChunk.length();
          result = thisChunkLength - thatChunk.length();
          if (result == 0) {
            for (int i = 0; i < thisChunkLength; i++) {
              result = thisChunk.charAt(i) - thatChunk.charAt(i);
              if (result != 0) {
                return result;
              }
            }
          }
        } else {
          result = thisChunk.compareTo(thatChunk);
        }
        if (result != 0)
          return result;
      }
      return s1Length - s2Length;
    }
  }

  static public class ReverseChain<A> implements Iterable<A> {

    public A element;

    public ReverseChain<A> prev;

    public int size;

    public ReverseChain() {
    }

    public ReverseChain(ReverseChain<A> prev, A element) {
      this.element = element;
      this.prev = prev;
      if (prev == null)
        size = 1;
      else {
        prev.check();
        size = prev.size + 1;
      }
    }

    public void check() {
      if (size < 1)
        throw fail("You called the ReverseChain default constructor. Don't do that");
    }

    public String toString() {
      return str(toList());
    }

    public ArrayList<A> toList() {
      check();
      ArrayList<A> l = emptyList(size);
      for (int i = 0; i < size; i++) l.add(null);
      int i = size;
      ReverseChain<A> c = this;
      while (c != null) {
        l.set(--i, c.element);
        c = c.prev;
      }
      return l;
    }

    public Iterator<A> iterator() {
      return toList().iterator();
    }
  }

  public interface Updateable {

    public void update();
  }

  static public class NumPadFixingInputMap extends InputMap {

    public void put(KeyStroke keyStroke, Object actionMapKey) {
      super.put(keyStroke, actionMapKey);
      Integer code = rsyntaxTextArea_fixNumPad_map.get(keyStroke.getKeyCode());
      if (code != null)
        put(KeyStroke.getKeyStroke(code, keyStroke.getModifiers()), actionMapKey);
    }

    public void replaceOn(JComponent c) {
      InputMap im = c.getInputMap();
      setParent(im.getParent());
      for (KeyStroke key : im.keys()) put(key, im.get(key));
      c.setInputMap(JComponent.WHEN_FOCUSED, this);
    }
  }

  static public class SynchronizedSortedMap<K, V> extends SynchronizedMap<K, V> implements SortedMap<K, V> {

    public SynchronizedSortedMap() {
    }

    public SortedMap<K, V> innerMap() {
      return (SortedMap) m;
    }

    public SynchronizedSortedMap(SortedMap<K, V> m) {
      super(m);
    }

    public SynchronizedSortedMap(SortedMap<K, V> m, Object mutex) {
      super(m, mutex);
    }

    public Comparator<? super K> comparator() {
      synchronized (mutex) {
        return innerMap().comparator();
      }
    }

    public SortedMap<K, V> subMap(K fromKey, K toKey) {
      synchronized (mutex) {
        return new SynchronizedSortedMap<>(innerMap().subMap(fromKey, toKey), mutex);
      }
    }

    public SortedMap<K, V> headMap(K toKey) {
      synchronized (mutex) {
        return new SynchronizedSortedMap<>(innerMap().headMap(toKey), mutex);
      }
    }

    public SortedMap<K, V> tailMap(K fromKey) {
      synchronized (mutex) {
        return new SynchronizedSortedMap<>(innerMap().tailMap(fromKey), mutex);
      }
    }

    public K firstKey() {
      synchronized (mutex) {
        return innerMap().firstKey();
      }
    }

    public K lastKey() {
      synchronized (mutex) {
        return innerMap().lastKey();
      }
    }
  }

  static public class HasIndex implements Comparable<HasIndex> {

    public int idx;

    public HasIndex() {
    }

    public HasIndex(int idx) {
      this.idx = idx;
    }

    public int compareTo(HasIndex h) {
      return idx - h.idx;
    }

    final public int get() {
      return idx;
    }
  }

  static public class VerticalCenterLayout extends AbstractLayoutManager {

    public void layoutContainer(Container parent) {
      List<Component> components = getComponents(parent);
      if (l(components) > 1) {
        print("VerticalCenterLayout fail");
        return;
      }
      Component c = first(components);
      if (c == null)
        return;
      int w = parent.getWidth(), h = parent.getHeight();
      Dimension size = c.getPreferredSize();
      int y = (h - size.height) / 2;
      c.setBounds(0, y, w, size.height);
      preferredSize(size);
    }
  }

  static public class JMenuScroller {

    public VF1<JPopupMenu> fillMenu;

    public JPopupMenu menu;

    public Component[] menuItems;

    public MenuScrollItem upItem;

    public MenuScrollItem downItem;

    final public MenuScrollListener menuListener = new MenuScrollListener();

    public int scrollCount;

    public int interval;

    public int topFixedCount;

    public int bottomFixedCount;

    public int firstIndex = 0;

    public int keepVisibleIndex = -1;

    public static JMenuScroller setScrollerFor(JMenu menu) {
      return new JMenuScroller(menu);
    }

    public static JMenuScroller setScrollerFor(JPopupMenu menu) {
      return new JMenuScroller(menu);
    }

    public static JMenuScroller setScrollerFor(JMenu menu, int scrollCount) {
      return new JMenuScroller(menu, scrollCount);
    }

    public static JMenuScroller setScrollerFor(JPopupMenu menu, int scrollCount) {
      return new JMenuScroller(menu, scrollCount);
    }

    public static JMenuScroller setScrollerFor(JMenu menu, int scrollCount, int interval) {
      return new JMenuScroller(menu, scrollCount, interval);
    }

    public static JMenuScroller setScrollerFor(JPopupMenu menu, int scrollCount, int interval) {
      return new JMenuScroller(menu, scrollCount, interval);
    }

    public static JMenuScroller setScrollerFor(JMenu menu, int scrollCount, int interval, int topFixedCount, int bottomFixedCount) {
      return new JMenuScroller(menu, scrollCount, interval, topFixedCount, bottomFixedCount);
    }

    public static JMenuScroller setScrollerFor(JPopupMenu menu, int scrollCount, int interval, int topFixedCount, int bottomFixedCount) {
      return new JMenuScroller(menu, scrollCount, interval, topFixedCount, bottomFixedCount);
    }

    public JMenuScroller(JMenu menu) {
      this(menu, 15);
    }

    public JMenuScroller(JPopupMenu menu) {
      this(menu, 15);
    }

    public JMenuScroller(JMenu menu, int scrollCount) {
      this(menu, scrollCount, 150);
    }

    public JMenuScroller(JPopupMenu menu, int scrollCount) {
      this(menu, scrollCount, 150);
    }

    public JMenuScroller(JMenu menu, int scrollCount, int interval) {
      this(menu, scrollCount, interval, 0, 0);
    }

    public JMenuScroller(JPopupMenu menu, int scrollCount, int interval) {
      this(menu, scrollCount, interval, 0, 0);
    }

    public JMenuScroller(JMenu menu, int scrollCount, int interval, int topFixedCount, int bottomFixedCount) {
      this(menu.getPopupMenu(), scrollCount, interval, topFixedCount, bottomFixedCount);
    }

    public JMenuScroller(JPopupMenu menu, int scrollCount, int interval, int topFixedCount, int bottomFixedCount) {
      if (scrollCount <= 0 || interval <= 0) {
        throw new IllegalArgumentException("scrollCount and interval must be greater than 0");
      }
      if (topFixedCount < 0 || bottomFixedCount < 0) {
        throw new IllegalArgumentException("topFixedCount and bottomFixedCount cannot be negative");
      }
      upItem = new MenuScrollItem(UP, -1);
      downItem = new MenuScrollItem(DOWN, +1);
      setScrollCount(scrollCount);
      setInterval(interval);
      setTopFixedCount(topFixedCount);
      setBottomFixedCount(bottomFixedCount);
      this.menu = menu;
      menu.addPopupMenuListener(menuListener);
    }

    public int getInterval() {
      return interval;
    }

    public void setInterval(int interval) {
      if (interval <= 0) {
        throw new IllegalArgumentException("interval must be greater than 0");
      }
      upItem.setInterval(interval);
      downItem.setInterval(interval);
      this.interval = interval;
    }

    public int getscrollCount() {
      return scrollCount;
    }

    public void setScrollCount(int scrollCount) {
      if (scrollCount <= 0) {
        throw new IllegalArgumentException("scrollCount must be greater than 0");
      }
      this.scrollCount = scrollCount;
    }

    public int getTopFixedCount() {
      return topFixedCount;
    }

    public void setTopFixedCount(int topFixedCount) {
      if (firstIndex <= topFixedCount) {
        firstIndex = topFixedCount;
      } else {
        firstIndex += (topFixedCount - this.topFixedCount);
      }
      this.topFixedCount = topFixedCount;
    }

    public int getBottomFixedCount() {
      return bottomFixedCount;
    }

    public void setBottomFixedCount(int bottomFixedCount) {
      this.bottomFixedCount = bottomFixedCount;
    }

    public void keepVisible(JMenuItem item) {
      if (item == null) {
        keepVisibleIndex = -1;
      } else {
        int index = menu.getComponentIndex(item);
        keepVisibleIndex = index;
      }
    }

    public void keepVisible(int index) {
      keepVisibleIndex = index;
    }

    public void dispose() {
      if (menu != null) {
        menu.removePopupMenuListener(menuListener);
        menu = null;
      }
    }

    @Override
    public void finalize() throws Throwable {
      dispose();
    }

    private void refreshMenu() {
      if (menuItems != null && menuItems.length > 0) {
        firstIndex = Math.max(topFixedCount, firstIndex);
        firstIndex = Math.min(menuItems.length - bottomFixedCount - scrollCount, firstIndex);
        upItem.setEnabled(firstIndex > topFixedCount);
        downItem.setEnabled(firstIndex + scrollCount < menuItems.length - bottomFixedCount);
        menu.removeAll();
        for (int i = 0; i < topFixedCount; i++) {
          menu.add(menuItems[i]);
        }
        if (topFixedCount > 0) {
          menu.addSeparator();
        }
        menu.add(upItem);
        for (int i = firstIndex; i < scrollCount + firstIndex; i++) {
          menu.add(menuItems[i]);
        }
        menu.add(downItem);
        if (bottomFixedCount > 0) {
          menu.addSeparator();
        }
        for (int i = menuItems.length - bottomFixedCount; i < menuItems.length; i++) {
          menu.add(menuItems[i]);
        }
        JComponent parent = (JComponent) upItem.getParent();
        parent.revalidate();
        parent.repaint();
      }
    }

    public class MenuScrollListener implements PopupMenuListener {

      @Override
      public void popupMenuWillBecomeVisible(PopupMenuEvent e) {
        if (fillMenu != null) {
          clearPopupMenu(menu);
          callF(fillMenu, menu);
        }
        setMenuItems();
      }

      @Override
      public void popupMenuWillBecomeInvisible(PopupMenuEvent e) {
        if (fillMenu != null)
          clearPopupMenu(menu);
        else
          restoreMenuItems();
      }

      @Override
      public void popupMenuCanceled(PopupMenuEvent e) {
        if (fillMenu != null)
          clearPopupMenu(menu);
        else
          restoreMenuItems();
      }

      private void setMenuItems() {
        menuItems = menu.getComponents();
        if (keepVisibleIndex >= topFixedCount && keepVisibleIndex <= menuItems.length - bottomFixedCount && (keepVisibleIndex > firstIndex + scrollCount || keepVisibleIndex < firstIndex)) {
          firstIndex = Math.min(firstIndex, keepVisibleIndex);
          firstIndex = Math.max(firstIndex, keepVisibleIndex - scrollCount + 1);
        }
        if (menuItems.length > topFixedCount + scrollCount + bottomFixedCount) {
          refreshMenu();
        }
      }

      private void restoreMenuItems() {
        menu.removeAll();
        for (Component component : menuItems) {
          menu.add(component);
        }
      }
    }

    public class MenuScrollTimer extends javax.swing.Timer {

      public MenuScrollTimer(final int increment, int interval) {
        super(interval, new ActionListener() {

          @Override
          public void actionPerformed(ActionEvent e) {
            firstIndex += increment;
            refreshMenu();
          }
        });
      }
    }

    public class MenuScrollItem extends JMenuItem implements ChangeListener {

      public MenuScrollTimer timer;

      public MenuScrollItem(MenuIcon icon, int increment) {
        setIcon(icon);
        setDisabledIcon(icon);
        timer = new MenuScrollTimer(increment, interval);
        addChangeListener(this);
      }

      public void setInterval(int interval) {
        timer.setDelay(interval);
      }

      @Override
      public void stateChanged(ChangeEvent e) {
        if (isArmed() && !timer.isRunning()) {
          timer.start();
        }
        if (!isArmed() && timer.isRunning()) {
          timer.stop();
        }
      }
    }

    static public MenuIcon UP = new MenuIcon(9, 1, 9);

    static public MenuIcon DOWN = new MenuIcon(1, 9, 1);

    static public class MenuIcon implements Icon {

      final public int[] xPoints = { 1, 5, 9 };

      final public int[] yPoints;

      public MenuIcon(int... yPoints) {
        this.yPoints = yPoints;
      }

      @Override
      public void paintIcon(Component c, Graphics g, int x, int y) {
        Dimension size = c.getSize();
        Graphics g2 = g.create(size.width / 2 - 5, size.height / 2 - 5, 10, 10);
        g2.setColor(Color.GRAY);
        g2.drawPolygon(xPoints, yPoints, 3);
        if (c.isEnabled()) {
          g2.setColor(Color.BLACK);
          g2.fillPolygon(xPoints, yPoints, 3);
        }
        g2.dispose();
      }

      @Override
      public int getIconWidth() {
        return 0;
      }

      @Override
      public int getIconHeight() {
        return 10;
      }
    }
  }

  static public class PtInComponent<A extends Component> implements IFieldsToList {

    public A component;

    public Pt p;

    public PtInComponent() {
    }

    public PtInComponent(A component, Pt p) {
      this.p = p;
      this.component = component;
    }

    public String toString() {
      return shortClassName_dropNumberPrefix(this) + "(" + component + ", " + p + ")";
    }

    public boolean equals(Object o) {
      if (!(o instanceof PtInComponent))
        return false;
      PtInComponent __1 = (PtInComponent) o;
      return eq(component, __1.component) && eq(p, __1.p);
    }

    public int hashCode() {
      int h = -1774729068;
      h = boostHashCombine(h, _hashCode(component));
      h = boostHashCombine(h, _hashCode(p));
      return h;
    }

    public Object[] _fieldsToList() {
      return new Object[] { component, p };
    }

    public PtInComponent(Pt p, A component) {
      this.component = component;
      this.p = p;
    }
  }

  public interface IBest<A> {

    public boolean put(A a, double score);
  }

  abstract static public class CompactAbstractMap<K, V> implements Map<K, V> {

    public int size() {
      return entrySet().size();
    }

    public boolean isEmpty() {
      return size() == 0;
    }

    public boolean containsValue(Object value) {
      Iterator<Entry<K, V>> i = entrySet().iterator();
      if (value == null) {
        while (i.hasNext()) {
          Entry<K, V> e = i.next();
          if (e.getValue() == null)
            return true;
        }
      } else {
        while (i.hasNext()) {
          Entry<K, V> e = i.next();
          if (value.equals(e.getValue()))
            return true;
        }
      }
      return false;
    }

    public boolean containsKey(Object key) {
      Iterator<Entry<K, V>> i = entrySet().iterator();
      if (key == null) {
        while (i.hasNext()) {
          Entry<K, V> e = i.next();
          if (e.getKey() == null)
            return true;
        }
      } else {
        while (i.hasNext()) {
          Entry<K, V> e = i.next();
          if (key.equals(e.getKey()))
            return true;
        }
      }
      return false;
    }

    public V get(Object key) {
      Iterator<Entry<K, V>> i = entrySet().iterator();
      if (key == null) {
        while (i.hasNext()) {
          Entry<K, V> e = i.next();
          if (e.getKey() == null)
            return e.getValue();
        }
      } else {
        while (i.hasNext()) {
          Entry<K, V> e = i.next();
          if (key.equals(e.getKey()))
            return e.getValue();
        }
      }
      return null;
    }

    public V put(K key, V value) {
      throw new UnsupportedOperationException();
    }

    public V remove(Object key) {
      Iterator<Entry<K, V>> i = entrySet().iterator();
      Entry<K, V> correctEntry = null;
      if (key == null) {
        while (correctEntry == null && i.hasNext()) {
          Entry<K, V> e = i.next();
          if (e.getKey() == null)
            correctEntry = e;
        }
      } else {
        while (correctEntry == null && i.hasNext()) {
          Entry<K, V> e = i.next();
          if (key.equals(e.getKey()))
            correctEntry = e;
        }
      }
      V oldValue = null;
      if (correctEntry != null) {
        oldValue = correctEntry.getValue();
        i.remove();
      }
      return oldValue;
    }

    public void putAll(Map<? extends K, ? extends V> m) {
      for (Entry<? extends K, ? extends V> e : m.entrySet()) put(e.getKey(), e.getValue());
    }

    public void clear() {
      entrySet().clear();
    }

    public Set<K> keySet() {
      return new AbstractSet<K>() {

        public Iterator<K> iterator() {
          return new Iterator<K>() {

            public Iterator<Entry<K, V>> i = entrySet().iterator();

            public boolean hasNext() {
              return i.hasNext();
            }

            public K next() {
              return i.next().getKey();
            }

            public void remove() {
              i.remove();
            }
          };
        }

        public int size() {
          return CompactAbstractMap.this.size();
        }

        public boolean isEmpty() {
          return CompactAbstractMap.this.isEmpty();
        }

        public void clear() {
          CompactAbstractMap.this.clear();
        }

        public boolean contains(Object k) {
          return CompactAbstractMap.this.containsKey(k);
        }
      };
    }

    public Collection<V> values() {
      return new AbstractCollection<V>() {

        public Iterator<V> iterator() {
          return new Iterator<V>() {

            public Iterator<Entry<K, V>> i = entrySet().iterator();

            public boolean hasNext() {
              return i.hasNext();
            }

            public V next() {
              return i.next().getValue();
            }

            public void remove() {
              i.remove();
            }
          };
        }

        public int size() {
          return CompactAbstractMap.this.size();
        }

        public boolean isEmpty() {
          return CompactAbstractMap.this.isEmpty();
        }

        public void clear() {
          CompactAbstractMap.this.clear();
        }

        public boolean contains(Object v) {
          return CompactAbstractMap.this.containsValue(v);
        }
      };
    }

    public abstract Set<Entry<K, V>> entrySet();

    public boolean equals(Object o) {
      if (o == this)
        return true;
      if (!(o instanceof Map))
        return false;
      Map<?, ?> m = (Map<?, ?>) o;
      if (m.size() != size())
        return false;
      try {
        for (Entry<K, V> e : entrySet()) {
          K key = e.getKey();
          V value = e.getValue();
          if (value == null) {
            if (!(m.get(key) == null && m.containsKey(key)))
              return false;
          } else {
            if (!value.equals(m.get(key)))
              return false;
          }
        }
      } catch (ClassCastException unused) {
        return false;
      } catch (NullPointerException unused) {
        return false;
      }
      return true;
    }

    public int hashCode() {
      int h = 0;
      for (Entry<K, V> entry : entrySet()) h += entry.hashCode();
      return h;
    }

    public String toString() {
      Iterator<Entry<K, V>> i = entrySet().iterator();
      if (!i.hasNext())
        return "{}";
      StringBuilder sb = new StringBuilder();
      sb.append('{');
      for (; ; ) {
        Entry<K, V> e = i.next();
        K key = e.getKey();
        V value = e.getValue();
        sb.append(key == this ? "(this Map)" : key);
        sb.append('=');
        sb.append(value == this ? "(this Map)" : value);
        if (!i.hasNext())
          return sb.append('}').toString();
        sb.append(',').append(' ');
      }
    }

    public Object clone() throws CloneNotSupportedException {
      CompactAbstractMap<?, ?> result = (CompactAbstractMap<?, ?>) super.clone();
      return result;
    }

    public static class SimpleEntry<K, V> implements Entry<K, V>, java.io.Serializable {

      @java.io.Serial
      static final public long serialVersionUID = -8499721149061103585L;

      @SuppressWarnings("serial")
      final public K key;

      @SuppressWarnings("serial")
      public V value;

      public SimpleEntry(K key, V value) {
        this.key = key;
        this.value = value;
      }

      public SimpleEntry(Entry<? extends K, ? extends V> entry) {
        this.key = entry.getKey();
        this.value = entry.getValue();
      }

      public K getKey() {
        return key;
      }

      public V getValue() {
        return value;
      }

      public V setValue(V value) {
        V oldValue = this.value;
        this.value = value;
        return oldValue;
      }

      public boolean equals(Object o) {
        if (!(o instanceof Map.Entry))
          return false;
        Entry<?, ?> e = (Entry<?, ?>) o;
        return eq(key, e.getKey()) && eq(value, e.getValue());
      }

      public int hashCode() {
        return (key == null ? 0 : key.hashCode()) ^ (value == null ? 0 : value.hashCode());
      }

      public String toString() {
        return key + "=" + value;
      }
    }

    public static class SimpleImmutableEntry<K, V> implements Entry<K, V>, java.io.Serializable {

      @java.io.Serial
      static final public long serialVersionUID = 7138329143949025153L;

      @SuppressWarnings("serial")
      final public K key;

      @SuppressWarnings("serial")
      final public V value;

      public SimpleImmutableEntry(K key, V value) {
        this.key = key;
        this.value = value;
      }

      public SimpleImmutableEntry(Entry<? extends K, ? extends V> entry) {
        this.key = entry.getKey();
        this.value = entry.getValue();
      }

      public K getKey() {
        return key;
      }

      public V getValue() {
        return value;
      }

      public V setValue(V value) {
        throw new UnsupportedOperationException();
      }

      public boolean equals(Object o) {
        if (!(o instanceof Map.Entry))
          return false;
        Entry<?, ?> e = (Entry<?, ?>) o;
        return eq(key, e.getKey()) && eq(value, e.getValue());
      }

      public int hashCode() {
        return (key == null ? 0 : key.hashCode()) ^ (value == null ? 0 : value.hashCode());
      }

      public String toString() {
        return key + "=" + value;
      }
    }
  }

  static public class RuntimeExceptionWithCustomStackTrace extends RuntimeException {

    public RuntimeExceptionWithCustomStackTrace(String msg, Throwable cause, StackTraceElement[] stackTrace) {
      super(msg, cause, false, true);
      setStackTrace(stackTrace);
    }
  }

  static public class Best<A> implements IBest<A> {

    public A best;

    public double score;

    public boolean verboseNewBest, replaceIfSameScore;

    final public Best<A> setLowerIsBetter(boolean lowerIsBetter) {
      return lowerIsBetter(lowerIsBetter);
    }

    public Best<A> lowerIsBetter(boolean lowerIsBetter) {
      this.lowerIsBetter = lowerIsBetter;
      return this;
    }

    final public boolean getLowerIsBetter() {
      return lowerIsBetter();
    }

    public boolean lowerIsBetter() {
      return lowerIsBetter;
    }

    public boolean lowerIsBetter = false;

    transient public Object onChange;

    transient public Object stringifier;

    synchronized public boolean isNewBest(double score) {
      return best == null || !isNaN(score) && (replaceIfSameScore ? compareScores(score, this.score) >= 0 : compareScores(score, this.score) > 0);
    }

    public double worstScore() {
      return lowerIsBetter ? infinity() : minusInfinity();
    }

    public int compareScores(double a, double b) {
      return lowerIsBetter ? -cmp(a, b) : cmp(a, b);
    }

    synchronized public double bestScore() {
      return best == null ? worstScore() : score;
    }

    public double score() {
      return bestScore();
    }

    public double getScore() {
      return bestScore();
    }

    synchronized public float floatScoreOr(float defaultValue) {
      return best == null ? defaultValue : (float) score;
    }

    public boolean put(Scored<? extends A> s) {
      return s != null && put(s.get(), s.score());
    }

    public boolean put(Pair<? extends A, Double> p) {
      return p != null && put(p.a, p.b);
    }

    public boolean put(Best<? extends A> b) {
      return b != null && put(b.get(), b.score);
    }

    public boolean put(A a, double score) {
      ping();
      boolean change = false;
      if (a != null)
        synchronized (this) {
          if (isNewBest(score)) {
            best = a;
            this.score = score;
            change = true;
          }
        }
      if (change) {
        if (verboseNewBest)
          print("New best! " + this);
        pcallF(onChange);
      }
      return change;
    }

    synchronized public A get() {
      return best;
    }

    synchronized public boolean has() {
      return best != null;
    }

    synchronized public Pair<A, Double> pair() {
      return main.pair(best, bestScore());
    }

    synchronized public Scored<A> scored() {
      return best == null ? null : new Scored<A>(best, bestScore());
    }

    synchronized public A getIfScoreAbove(double x) {
      return compareScores(score(), x) >= 0 ? best : null;
    }

    public String toString() {
      return "Score " + formatDouble_significant2(score, 4) + ": " + callStringifier(stringifier, best);
    }

    public boolean putAndPrintIfNewBest(A a, double score) {
      if (!put(a, score))
        return false;
      {
        print(this);
        return true;
      }
    }

    synchronized public void clear() {
      best = null;
      score = 0;
    }
  }

  static public class LetterLayout implements LayoutManager {

    public String[] lines;

    public Map<String, Component> map = new TreeMap();

    public Map<Component, String> constraints = new HashMap();

    public RC[] rows;

    public RC[] cols;

    public Cell[][] cells;

    public int spacingX = 10, spacingY = 10;

    public int insetTop, insetBottom, insetLeft, insetRight;

    public int template;

    public boolean formWideLeftSide, formWideRightSide;

    static final public int STALACTITE = 1, LEFT_ALIGNED_ROW = 2, CENTERED_ROW = 3, FORM = 4, RIGHT_ALIGNED_ROW = 5;

    public boolean debug = false;

    public void setLeftBorder(int border) {
      insetLeft = border;
    }

    public void setRightBorder(int border) {
      insetRight = border;
    }

    public static JComponent withBorder(JComponent component, int border) {
      JPanel panel = new JPanel(new LetterLayout("C").setBorder(border));
      panel.add("C", component);
      return panel;
    }

    public static JPanel panel(String... lines) {
      return new JPanel(new LetterLayout(lines));
    }

    public static JPanel stalactitePanel() {
      return new JPanel(stalactite());
    }

    static public class DummyComponent extends JComponent {
    }

    static public class Cell {

      public boolean aux = false;

      public int minWidth, minHeight;

      public Component component;

      public int colspan, rowspan;

      public double weightX, weightY;
    }

    static public class RC {

      public int min;

      public double weightSum;

      public int start;

      public int minEnd;
    }

    public LetterLayout(int template) {
      this.template = template;
    }

    public LetterLayout(String... lines) {
      this.lines = lines;
    }

    public void layoutContainer(Container container) {
      prepareLayout(container);
      if (debug)
        System.out.println("Container size: " + container.getSize());
      Insets insets = getInsets(container);
      for (int r = 0; r < rows.length; r++) {
        for (int i = 0; i < cols.length; ) {
          Cell cell = cells[i][r];
          if (cell.aux)
            ++i;
          else {
            if (cell.component != null) {
              int x1 = cols[i].start;
              int y1 = rows[r].start;
              int x2 = i + cell.colspan < cols.length ? cols[i + cell.colspan].start - spacingX : container.getWidth() - insets.right;
              int y2 = r + cell.rowspan < rows.length ? rows[r + cell.rowspan].start - spacingY : container.getHeight() - insets.bottom;
              if (debug)
                System.out.println("Layouting (" + i + ", " + r + ", " + cell.component.getClass().getName() + "): " + x1 + " " + y1 + " " + x2 + " " + y2);
              cell.component.setBounds(x1, y1, x2 - x1, y2 - y1);
            }
            i += cells[i][r].colspan;
          }
        }
      }
    }

    private void prepareLayout(Container container) {
      applyTemplate(container);
      int numRows = lines.length, numCols = lines[0].length();
      for (int i = 1; i < numRows; i++) if (lines[i].length() != numCols)
        throw new IllegalArgumentException("Lines have varying length");
      cells = new Cell[numCols][numRows];
      rows = new RC[numRows];
      cols = new RC[numCols];
      for (int r = 0; r < numRows; r++) rows[r] = new RC();
      for (int i = 0; i < numCols; i++) cols[i] = new RC();
      for (int r = 0; r < numRows; r++) for (int i = 0; i < numCols; i++) cells[i][r] = new Cell();
      for (int r = 0; r < numRows; r++) {
        String line = lines[r];
        for (int i = 0; i < numCols; ) {
          Cell cell = cells[i][r];
          if (cell.aux) {
            ++i;
            continue;
          }
          char ch = line.charAt(i);
          int iNext = i;
          do ++iNext; while (iNext < numCols && ch == line.charAt(iNext));
          int rNext = r;
          do ++rNext; while (rNext < numRows && ch == lines[rNext].charAt(i));
          cell.weightX = numCols == 1 || iNext > i + 1 ? 1.0 : 0.0;
          cell.weightY = numRows == 1 || rNext > r + 1 ? 1.0 : 0.0;
          Component c = map.get(String.valueOf(ch));
          cell.component = c;
          if (c != null) {
            cell.minWidth = c.getMinimumSize().width + spacingX;
            cell.minHeight = getMinimumHeight(c) + spacingY;
          }
          cell.colspan = iNext - i;
          cell.rowspan = rNext - r;
          if (cell.colspan == 1)
            cols[i].min = Math.max(cols[i].min, cell.minWidth);
          if (cell.rowspan == 1)
            rows[r].min = Math.max(rows[r].min, cell.minHeight);
          for (int r2 = r; r2 < rNext; r2++) for (int i2 = i; i2 < iNext; i2++) if (r2 != r || i2 != i)
            cells[i2][r2].aux = true;
          i = iNext;
        }
      }
      while (true) {
        for (int i = 0; i < numCols; i++) {
          int minStart = i == 0 ? 0 : cols[i - 1].minEnd;
          double weightStart = i == 0 ? 0.0 : cols[i - 1].weightSum;
          for (int r = 0; r < numRows; r++) {
            Cell cell = cells[i][r];
            if (!cell.aux) {
              RC rc = cols[i + cell.colspan - 1];
              rc.minEnd = Math.max(rc.minEnd, minStart + cell.minWidth);
              rc.weightSum = Math.max(rc.weightSum, weightStart + cell.weightX);
            }
          }
        }
        for (int r = 0; r < numRows; r++) {
          int minStart = r == 0 ? 0 : rows[r - 1].minEnd;
          double weightStart = r == 0 ? 0.0 : rows[r - 1].weightSum;
          for (int i = 0; i < numCols; i++) {
            Cell cell = cells[i][r];
            if (!cell.aux) {
              RC rc = rows[r + cell.rowspan - 1];
              rc.minEnd = Math.max(rc.minEnd, minStart + cell.minHeight);
              rc.weightSum = Math.max(rc.weightSum, weightStart + cell.weightY);
            }
          }
        }
        if (allWeightsZero(cols)) {
          for (int r = 0; r < numRows; r++) for (int i = 0; i < numCols; i++) cells[i][r].weightX = 1.0;
          continue;
        }
        if (allWeightsZero(rows)) {
          for (int r = 0; r < numRows; r++) for (int i = 0; i < numCols; i++) cells[i][r].weightY = 1.0;
          continue;
        }
        break;
      }
      Insets insets = getInsets(container);
      determineStarts(cols, insets.left, container.getWidth() - insets.left - insets.right + spacingX, spacingX);
      determineStarts(rows, insets.top, container.getHeight() - insets.top - insets.bottom + spacingY, spacingY);
    }

    private boolean allWeightsZero(RC[] rcs) {
      for (int i = 0; i < rcs.length; i++) if (rcs[i].weightSum != 0.0)
        return false;
      return true;
    }

    private static int getMinimumHeight(Component c) {
      return c.getMinimumSize().height;
    }

    private void applyTemplate(Container container) {
      if (template == STALACTITE) {
        Component[] components = container.getComponents();
        lines = new String[components.length + 2];
        map.clear();
        for (int i = 0; i < components.length; i++) {
          String s = String.valueOf(makeIndexChar(i));
          map.put(s, components[i]);
          lines[i] = s;
        }
        lines[components.length] = lines[components.length + 1] = " ";
      } else if (template == FORM) {
        Component[] components = container.getComponents();
        int numRows = components.length / 2;
        lines = new String[numRows + 2];
        map.clear();
        for (int row = 0; row < numRows; row++) {
          String lower = String.valueOf(makeIndexChar(row));
          String upper = String.valueOf(makeAlternateIndexChar(row));
          Component rightComponent = components[row * 2 + 1];
          if (rightComponent instanceof DummyComponent)
            upper = lower;
          lines[row] = (formWideLeftSide ? lower + lower : lower) + (formWideRightSide ? upper + upper : upper);
          map.put(lower, components[row * 2]);
          if (!(rightComponent instanceof DummyComponent))
            map.put(upper, rightComponent);
        }
        lines[numRows] = lines[numRows + 1] = (formWideLeftSide ? "  " : " ") + (formWideRightSide ? "  " : " ");
      } else if (template == LEFT_ALIGNED_ROW) {
        lines = new String[] { makeSingleRow(container) + RIGHT_CHAR + RIGHT_CHAR };
      } else if (template == CENTERED_ROW) {
        lines = new String[] { "" + LEFT_CHAR + LEFT_CHAR + makeSingleRow(container) + RIGHT_CHAR + RIGHT_CHAR };
      } else if (template == RIGHT_ALIGNED_ROW) {
        lines = new String[] { "" + LEFT_CHAR + LEFT_CHAR + makeSingleRow(container) };
      }
    }

    private String makeSingleRow(Container container) {
      Component[] components = container.getComponents();
      StringBuffer buf = new StringBuffer();
      map.clear();
      for (int i = 0; i < components.length; i++) {
        var c = components[i];
        String s = constraints.get(c);
        if (isOneOfSingleChars(s, LEFT_CHAR, RIGHT_CHAR))
          continue;
        s = str(makeAlternateIndexChar(i));
        setConstraints(c, s);
        buf.append(s);
      }
      return buf.toString();
    }

    private static void determineStarts(RC[] rcs, int start, int totalSize, int spacing) {
      int minTotal = rcs[rcs.length - 1].minEnd;
      double weightSum = rcs[rcs.length - 1].weightSum;
      int spare = (int) ((totalSize - minTotal) / (weightSum == 0.0 ? 1.0 : weightSum));
      int x = start, minSum = 0;
      double prevWeightSum = 0.0;
      for (int i = 0; i < rcs.length; i++) {
        int width = rcs[i].minEnd - minSum + (int) ((rcs[i].weightSum - prevWeightSum) * spare) - spacing;
        rcs[i].start = x;
        x += width + spacing;
        prevWeightSum = rcs[i].weightSum;
        minSum = rcs[i].minEnd;
      }
    }

    public void addLayoutComponent(String s, Component component) {
      setConstraints(component, s);
    }

    public void setConstraints(Component component, String s) {
      mapPutOrRemove(map, s, component);
      mapPutOrRemove(constraints, component, s);
    }

    public void removeLayoutComponent(Component component) {
      map.values().remove(component);
      constraints.remove(component);
    }

    public Dimension minimumLayoutSize(Container container) {
      prepareLayout(container);
      Insets insets = getInsets(container);
      Dimension result = new Dimension(insets.left + cols[cols.length - 1].minEnd + insets.right - spacingX, insets.top + rows[rows.length - 1].minEnd + insets.bottom - spacingY);
      return result;
    }

    private Insets getInsets(Container container) {
      Insets insets = container.getInsets();
      return new Insets(insets.top + insetTop, insets.left + insetLeft, insets.bottom + insetBottom, insets.right + insetRight);
    }

    public Dimension preferredLayoutSize(Container container) {
      return minimumLayoutSize(container);
    }

    public LetterLayout setSpacing(int x, int y) {
      spacingX = x;
      spacingY = y;
      return this;
    }

    public LetterLayout setSpacing(int spacing) {
      return setSpacing(spacing, spacing);
    }

    public LetterLayout setBorder(int top, int left, int bottom, int right) {
      insetTop = top;
      insetLeft = left;
      insetBottom = bottom;
      insetRight = right;
      return this;
    }

    public LetterLayout setBorder(int inset) {
      return setBorder(inset, inset, inset, inset);
    }

    public LetterLayout setTopBorder(int inset) {
      insetTop = inset;
      return this;
    }

    public static LetterLayout stalactite() {
      return new LetterLayout(STALACTITE);
    }

    public static LetterLayout leftAlignedRow() {
      return new LetterLayout(LEFT_ALIGNED_ROW);
    }

    public static LetterLayout leftAlignedRow(int spacing) {
      return leftAlignedRow().setSpacing(spacing);
    }

    public static LetterLayout centeredRow() {
      return new LetterLayout(CENTERED_ROW);
    }

    public static LetterLayout rightAlignedRow() {
      return new LetterLayout(RIGHT_ALIGNED_ROW);
    }

    public static JPanel rightAlignedRowPanel(JComponent... components) {
      return makePanel(new LetterLayout(RIGHT_ALIGNED_ROW), components);
    }

    private static JPanel makePanel(LetterLayout letterLayout, JComponent[] components) {
      JPanel panel = new JPanel(letterLayout);
      for (JComponent component : components) {
        panel.add(component);
      }
      return panel;
    }

    public static LetterLayout form() {
      LetterLayout letterLayout = new LetterLayout(FORM);
      letterLayout.formWideLeftSide = true;
      letterLayout.formWideRightSide = true;
      return letterLayout;
    }

    public static LetterLayout formWideRightSide() {
      LetterLayout letterLayout = new LetterLayout(FORM);
      letterLayout.formWideRightSide = true;
      return letterLayout;
    }

    public static Component getDummyComponent() {
      return new DummyComponent();
    }

    public static JPanel newPanel(String... lines) {
      return new JPanel(new LetterLayout(lines));
    }

    public boolean isDebug() {
      return debug;
    }

    public void setDebug(boolean debug) {
      this.debug = debug;
    }

    public static char makeIndexChar(int idx) {
      return (char) ('a' + idx * 2);
    }

    public static char makeAlternateIndexChar(int idx) {
      return (char) ('b' + idx * 2);
    }

    public static char LEFT_CHAR = ',', RIGHT_CHAR = '.';

    public static void main(String[] args) {
      System.out.println((int) makeIndexChar(0));
      System.out.println((int) makeAlternateIndexChar(0));
      System.out.println((int) makeIndexChar(32000));
      System.out.println((int) makeAlternateIndexChar(32000));
      System.out.println((int) LEFT_CHAR);
      System.out.println((int) RIGHT_CHAR);
    }
  }

  static public class SynchronizedNavigableSet<E> extends SynchronizedSortedSet<E> implements NavigableSet<E> {

    public SynchronizedNavigableSet() {
    }

    @java.io.Serial
    static final public long serialVersionUID = -5505529816273629798L;

    @SuppressWarnings("serial")
    public NavigableSet<E> ns;

    public SynchronizedNavigableSet(NavigableSet<E> s) {
      super(s);
      ns = s;
    }

    public SynchronizedNavigableSet(NavigableSet<E> s, Object mutex) {
      super(s, mutex);
      ns = s;
    }

    public E lower(E e) {
      synchronized (mutex) {
        return ns.lower(e);
      }
    }

    public E floor(E e) {
      synchronized (mutex) {
        return ns.floor(e);
      }
    }

    public E ceiling(E e) {
      synchronized (mutex) {
        return ns.ceiling(e);
      }
    }

    public E higher(E e) {
      synchronized (mutex) {
        return ns.higher(e);
      }
    }

    public E pollFirst() {
      synchronized (mutex) {
        return ns.pollFirst();
      }
    }

    public E pollLast() {
      synchronized (mutex) {
        return ns.pollLast();
      }
    }

    public NavigableSet<E> descendingSet() {
      synchronized (mutex) {
        return new SynchronizedNavigableSet<>(ns.descendingSet(), mutex);
      }
    }

    public Iterator<E> descendingIterator() {
      synchronized (mutex) {
        return descendingSet().iterator();
      }
    }

    public NavigableSet<E> subSet(E fromElement, E toElement) {
      synchronized (mutex) {
        return new SynchronizedNavigableSet<>(ns.subSet(fromElement, true, toElement, false), mutex);
      }
    }

    public NavigableSet<E> headSet(E toElement) {
      synchronized (mutex) {
        return new SynchronizedNavigableSet<>(ns.headSet(toElement, false), mutex);
      }
    }

    public NavigableSet<E> tailSet(E fromElement) {
      synchronized (mutex) {
        return new SynchronizedNavigableSet<>(ns.tailSet(fromElement, true), mutex);
      }
    }

    public NavigableSet<E> subSet(E fromElement, boolean fromInclusive, E toElement, boolean toInclusive) {
      synchronized (mutex) {
        return new SynchronizedNavigableSet<>(ns.subSet(fromElement, fromInclusive, toElement, toInclusive), mutex);
      }
    }

    public NavigableSet<E> headSet(E toElement, boolean inclusive) {
      synchronized (mutex) {
        return new SynchronizedNavigableSet<>(ns.headSet(toElement, inclusive), mutex);
      }
    }

    public NavigableSet<E> tailSet(E fromElement, boolean inclusive) {
      synchronized (mutex) {
        return new SynchronizedNavigableSet<>(ns.tailSet(fromElement, inclusive), mutex);
      }
    }
  }

  static public class SynchronizedSortedSet<E> extends SynchronizedSet<E> implements SortedSet<E> {

    public SynchronizedSortedSet() {
    }

    @java.io.Serial
    static final public long serialVersionUID = 8695801310862127406L;

    @SuppressWarnings("serial")
    public SortedSet<E> ss;

    public SynchronizedSortedSet(SortedSet<E> s) {
      super(s);
      ss = s;
    }

    public SynchronizedSortedSet(SortedSet<E> s, Object mutex) {
      super(s, mutex);
      ss = s;
    }

    public Comparator<? super E> comparator() {
      synchronized (mutex) {
        return ss.comparator();
      }
    }

    public SortedSet<E> subSet(E fromElement, E toElement) {
      synchronized (mutex) {
        return new SynchronizedSortedSet<>(ss.subSet(fromElement, toElement), mutex);
      }
    }

    public SortedSet<E> headSet(E toElement) {
      synchronized (mutex) {
        return new SynchronizedSortedSet<>(ss.headSet(toElement), mutex);
      }
    }

    public SortedSet<E> tailSet(E fromElement) {
      synchronized (mutex) {
        return new SynchronizedSortedSet<>(ss.tailSet(fromElement), mutex);
      }
    }

    public E first() {
      synchronized (mutex) {
        return ss.first();
      }
    }

    public E last() {
      synchronized (mutex) {
        return ss.last();
      }
    }
  }

  static public GlobalID aGlobalIDObjUnlessLoading() {
    return dynamicObjectIsLoading() ? null : aGlobalIDObj();
  }

  static public Border getBorder(final JComponent c) {
    return c == null ? null : swing(new F0<Border>() {

      public Border get() {
        try {
          return c.getBorder();
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "return c.getBorder();";
      }
    });
  }

  static public Map<Integer, Integer> getBracketMap(List tok) {
    return getBracketMap(tok, getBracketMap_opening, getBracketMap_closing);
  }

  static public Map<Integer, Integer> getBracketMap(List tok, Collection<String> opening, Collection<String> closing) {
    return getBracketMap(tok, opening, closing, 0, l(tok));
  }

  static public Map<Integer, Integer> getBracketMap(List tok, Collection<String> opening, Collection<String> closing, int from, int to) {
    TreeMap<Integer, Integer> map = new TreeMap();
    List<Integer> stack = new ArrayList();
    for (int i = from | 1; i < to; i += 2) {
      Object t = tok.get(i);
      if (opening.contains(t))
        stack.add(i);
      else if (closing.contains(t))
        if (!empty(stack))
          map.put(liftLast(stack), i);
    }
    return map;
  }

  static public Map<Integer, Integer> getBracketMap(List<String> tok, IF1<String, Boolean> opening, IF1<String, Boolean> closing) {
    return getBracketMap(tok, opening, closing, 0, l(tok));
  }

  static public Map<Integer, Integer> getBracketMap(List<String> tok, IF1<String, Boolean> opening, IF1<String, Boolean> closing, int from, int to) {
    TreeMap<Integer, Integer> map = new TreeMap();
    List<Integer> stack = new ArrayList();
    for (int i = from | 1; i < to; i += 2) {
      String t = tok.get(i);
      if (opening.get(t))
        stack.add(i);
      else if (closing.get(t))
        if (!empty(stack))
          map.put(liftLast(stack), i);
    }
    return map;
  }

  static public Set<String> getBracketMap_opening = lithashset("{", "(");

  static public Set<String> getBracketMap_closing = lithashset("}", ")");

  static public boolean isOpeningBracket(String s) {
    return eqOneOf(s, "(", "{", "[");
  }

  static public boolean isClosingBracket(String s) {
    return eqOneOf(s, ")", "}", "]");
  }

  static public int clampToInt(long l) {
    return (int) clamp(l, Integer.MIN_VALUE, Integer.MAX_VALUE);
  }

  static public boolean tokenRangeLongerThanNChars(List<String> tok, int iStart, int iEnd, int maxChars) {
    int nChars = 0, n = l(tok);
    iStart = Math.max(0, iStart);
    iEnd = Math.min(n, iEnd);
    for (int i = iStart; i < iEnd; i++) {
      nChars += l(tok.get(i));
      if (nChars > maxChars)
        return true;
    }
    return false;
  }

  static public String shortenJoinSubList(int max, List<String> l, int i, int j) {
    return shortenJoin(max, subList(l, i, j));
  }

  static public String shortenJoinSubList(int max, List<String> l, int i) {
    return shortenJoin(max, subList(l, i));
  }

  static public String spaces(int n) {
    return rep(' ', n);
  }

  static public <A> float getScore(Scored<A> s) {
    return s == null ? 0 : s.score;
  }

  static public String callStringifier(Object stringifier, Object o) {
    return stringifier != null ? str(callF(stringifier, o)) : str(o);
  }

  static public void addSeparator(JMenu menu) {
    menu.addSeparator();
  }

  static public void addSeparator(JPopupMenu menu) {
    menu.addSeparator();
  }

  static public void truncateContainer(Container c, int n) {
    swing(() -> {
      if (c != null)
        while (c.getComponentCount() > n) c.remove(c.getComponentCount() - 1);
    });
  }

  static public <A extends Component> A packWindow(final A c) {
    {
      swing(() -> {
        Window w = getWindow(c);
        if (w != null)
          w.pack();
      });
    }
    return c;
  }

  static public PtInComponent ptInComponentFromEvent(MouseEvent evt) {
    return new PtInComponent(evt.getComponent(), pt(evt.getX(), evt.getY()));
  }

  static public boolean hasParentOfType(Class<?> type, Component c) {
    return parentOfType(c, type) != null;
  }

  static public Set<java.util.Timer> _registerTimer_list = newWeakHashSet();

  static public void _registerTimer(java.util.Timer timer) {
    _registerTimer_list.add(timer);
  }

  static public void cleanMeUp__registerTimer() {
    cancelTimers(getAndClearList(_registerTimer_list));
  }

  static public void setSelectedIndex(final JList l, final int i) {
    if (l != null) {
      swing(() -> {
        l.setSelectedIndex(i);
      });
    }
  }

  static public void setSelectedIndex(final JComboBox cb, final int i) {
    if (cb != null) {
      swing(() -> {
        cb.setSelectedIndex(i);
      });
    }
  }

  static public void copyArrayToVector(Object[] array, Vector v) {
    v.clear();
    v.addAll(toList(array));
  }

  static public void swing_standardTabBehavior(KeyEvent key) {
    if ((key.getModifiers() & ActionEvent.SHIFT_MASK) != 0)
      KeyboardFocusManager.getCurrentKeyboardFocusManager().focusPreviousComponent();
    else
      KeyboardFocusManager.getCurrentKeyboardFocusManager().focusNextComponent();
  }

  static public boolean emptyAfterTrim(String s) {
    return empty(trim(s));
  }

  static public List<String> scoredSearch(String query, Iterable<String> data) {
    Map<String, Integer> scores = new HashMap();
    List<String> searchTerms = scoredSearch_prepare(query);
    if (empty(searchTerms))
      return asList(data);
    for (String s : data) {
      int score = scoredSearch_score(s, searchTerms);
      if (score != 0)
        scores.put(s, score);
    }
    return keysSortedByValuesDesc(scores);
  }

  static public long stopTiming_defaultMin = 10;

  static public long startTiming_startTime;

  static public void startTiming() {
    startTiming_startTime = now();
  }

  static public void stopTiming() {
    stopTiming(null);
  }

  static public void stopTiming(String text) {
    stopTiming(text, stopTiming_defaultMin);
  }

  static public void stopTiming(String text, long minToPrint) {
    long time = now() - startTiming_startTime;
    if (time >= minToPrint) {
      text = or2(text, "Time: ");
      print(text + time + " ms");
    }
  }

  static public <A, B> A floorKey(NavigableMap<A, B> map, A key) {
    if (map == null)
      return null;
    return map.floorKey(key);
  }

  static public <A, B> Map.Entry<A, B> higherEntry(NavigableMap<A, B> map, A key) {
    return map == null ? null : map.higherEntry(key);
  }

  static public <A, B> Map.Entry<A, B> lastEntry(NavigableMap<A, B> map) {
    return map == null ? null : map.lastEntry();
  }

  static public <A, B> SortedMap<A, B> subMap(SortedMap<A, B> map, A fromKey, A toKey) {
    return map == null ? null : map.subMap(fromKey, toKey);
  }

  static public File prepareFile(File file) {
    return mkdirsForFile(file);
  }

  static public File prepareFile(File dir, String name) {
    return mkdirsForFile(newFile(dir, name));
  }

  static public RGBImage loadImage(String snippetIDOrURL) {
    return new RGBImage(loadBufferedImage(snippetIDOrURL));
  }

  static public RGBImage loadImage(File f) {
    return new RGBImage(loadBufferedImage(f));
  }

  static public String md5OfBufferedImage(BufferedImage img) {
    return img == null ? null : rgbMD5(new RGBImage(img));
  }

  static public boolean hasLock(Lock lock) {
    return ((ReentrantLock) lock).isHeldByCurrentThread();
  }

  static public <A, B> Map.Entry<A, B> simpleMapEntry(A key, B value) {
    return new Map.Entry<A, B>() {

      public A getKey() {
        return key;
      }

      public B getValue() {
        return value;
      }

      public B setValue(B newValue) {
        throw unimplemented();
      }
    };
  }

  static public FunctionCall functionCall_list(Object fname, Iterable args) {
    return new FunctionCall(fname, toObjectArray(args));
  }

  static public String formatDouble_significant2(double d, int digits) {
    try {
      digits -= Math.floor(max(-10, Math.log10(abs(d)) + 1));
      return formatDouble(d, digits);
    } catch (Throwable _e) {
      print("Had number: " + d + ", digits: " + digits);
      throw rethrow(_e);
    }
  }

  static public File pathToJavaxJar() {
    IResourceLoader rl = vm_getResourceLoader();
    if (rl != null)
      return rl.pathToJavaXJar();
    return pathToJavaxJar_noResourceLoader();
  }

  static public File pathToJavaxJar_noResourceLoader() {
    try {
      int x = latestInstalledJavaX();
      File xfile = new File(userHome(), ".javax/x" + Math.max(x, 30) + ".jar");
      if (!xfile.isFile()) {
        print("Saving " + f2s(xfile));
        String url = x30JarServerURL();
        byte[] data = loadBinaryPage(url);
        if (data.length < 1000000)
          throw fail("Could not load " + url);
        saveBinaryFile(xfile.getPath(), data);
      }
      return xfile;
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }

  static public <A, B> boolean isA(Either<A, B> e) {
    return eitherIsA(e);
  }

  static public Pt mousePt() {
    return toPt(mousePosition());
  }

  static public Pt ptFromEvent(MouseEvent e) {
    return e == null ? null : pt(e.getX(), e.getY());
  }

  static public Pt translatePt(Pt a, Pt b) {
    return addPts(a, b);
  }

  static public Pt translatePt(int x, int y, Pt a) {
    return addPts(a, pt(x, y));
  }

  static public Pt translatePt(Pt a, int x, int y) {
    return translatePt(x, y, a);
  }

  static public Pt convertPointToScreen(Pt p, Component c) {
    if (c == null)
      return p;
    Point p2 = toPoint(p);
    SwingUtilities.convertPointToScreen(p2, c);
    return toPt(p2);
  }

  static public void clearPopupMenu(final JPopupMenu menu) {
    if (menu != null) {
      swing(() -> {
        menu.removeAll();
      });
    }
  }

  static public boolean isNaN(double d) {
    return Double.isNaN(d);
  }

  static public boolean isNaN(float f) {
    return Float.isNaN(f);
  }

  static public double minusInfinity() {
    return negativeInfinity();
  }

  static public <A> Scored<A> scored(A a, float score) {
    return new Scored(a, score);
  }

  static public <A> Scored<A> scored(A a, double score) {
    return new Scored(a, (float) score);
  }

  static public <A> Scored<A> scored(A a, Scored scored) {
    return new Scored(a, getScore(scored));
  }

  static public <A> Scored<A> scored(double score, A a) {
    return scored(a, score);
  }

  static public JPanel withBorder(javax.swing.border.Border border, final Component c) {
    return swing(new F0<JPanel>() {

      public JPanel get() {
        try {
          JPanel p = new JPanel(new BorderLayout());
          p.setBorder(border);
          p.add(c);
          return p;
        } catch (Exception __e) {
          throw rethrow(__e);
        }
      }

      public String toString() {
        return "JPanel p = new JPanel(new BorderLayout);\r\n    p.setBorder(border);\r\n    p.add...";
      }
    });
  }

  static public int getMinimumHeight(final Component c) {
    return getMinimumSize(c).height;
  }

  static public boolean isOneOfSingleChars(String s, char... chars) {
    if (l(s) != 1)
      return false;
    char real = s.charAt(0);
    for (char c : unnullForIteration(chars)) if (real == c)
      return true;
    return false;
  }

  static public GlobalID aGlobalIDObj() {
    return asGlobalID(randomID(16));
  }

  static public GlobalID aGlobalIDObj(Random random) {
    return asGlobalID(randomID(random, 16));
  }

  static public String shortenJoin(int max, Iterable<String> l) {
    StringBuilder buf = new StringBuilder();
    for (String s : unnullForIteration(l)) {
      buf.append(s);
      if (l(buf) > max)
        break;
    }
    return shorten(max, str(buf));
  }

  static public <A> A parentOfType(Component _c, Class<A> theClass) {
    return swing(() -> {
      Component c = _c;
      while (c != null) {
        if (isInstance(theClass, c))
          return (A) c;
        c = c.getParent();
      }
      return null;
    });
  }

  static public void cancelTimers(Collection timers) {
    for (Object timer : timers) cancelTimer(timer);
  }

  static public <A> List<A> getAndClearList(Collection<A> l) {
    if (l == null)
      return emptyList();
    synchronized (collectionMutex(l)) {
      List<A> out = cloneList(l);
      l.clear();
      return out;
    }
  }

  static public <A, B> List<A> keysSortedByValuesDesc(final Map<A, B> map) {
    List<A> l = new ArrayList(map.keySet());
    sort(l, mapComparatorDesc(map));
    return l;
  }

  static public String rgbMD5(RGBImage img) {
    return md5OfRGBImage(img);
  }

  static public RuntimeException unimplemented() {
    throw fail("TODO");
  }

  static public RuntimeException unimplemented(String msg) {
    throw fail("TODO: " + msg);
  }

  static public RuntimeException unimplemented(Object obj) {
    throw fail("TODO: implement method in " + className(obj));
  }

  static public int latestInstalledJavaX() {
    File[] files = new File(userHome(), ".javax").listFiles();
    int v = 0;
    if (files != null)
      for (File f : files) {
        Matcher m = regexpMatcher("x(\\d\\d\\d?)\\.jar", f.getName());
        if (m.matches())
          v = Math.max(v, Integer.parseInt(m.group(1)));
      }
    return v;
  }

  static public String x30JarServerURL() {
    return "https://botcompany.de:9898/x30.jar";
  }

  static public <A, B> boolean eitherIsA(Either<A, B> e) {
    return e != null && e.isA();
  }

  static public Point mousePosition() {
    PointerInfo pi = MouseInfo.getPointerInfo();
    return pi == null ? null : pi.getLocation();
  }

  static public Pt addPts(Pt a, Pt b) {
    return a == null ? b : b == null ? a : new Pt(a.x + b.x, a.y + b.y);
  }

  static public double negativeInfinity() {
    return Double.NEGATIVE_INFINITY;
  }

  static public GlobalID asGlobalID(String id) {
    return id == null ? null : new GlobalID(id);
  }

  static public <A, B> Comparator<A> mapComparatorDesc(final Map<A, B> map) {
    return new Comparator<A>() {

      public int compare(A a, A b) {
        return cmp(map.get(b), map.get(a));
      }
    };
  }

  static public String md5OfRGBImage(RGBImage img) {
    try {
      MessageDigest m = MessageDigest.getInstance("MD5");
      m.update(intToBytes(img.getWidth()));
      int[] pixels = img.getPixels();
      for (int i = 0; i < l(pixels); i++) m.update(intToBytes(pixels[i]));
      return bytesToHex(m.digest());
    } catch (Exception __e) {
      throw rethrow(__e);
    }
  }
}