// doesn't perform any sanity checks... // and this is NL-level, not SNL. static Lisp snlJoinOps(L ops) { Lisp t = lisp("[]"); for (Lisp op : ops) { int i = op.head.indexOf(' '); t.add(lisp(substring(op.head, 0, i))); t.add(op.get(0)); } ret t; }