freelang-editor 11.7.4

package/self/bench/_v12_extract_test.fl

@@ -0,0 +1,14 @@
+;; cg-func-block 의 과정을 수동 검증
+[FUNC js-name :params [n]
+  :body (if (null? n) "_"
+          (let [[a (replace n "-" "_")]]
+            a))]
+[FUNC extract-name :params [n]
+  :body (cond [(= (get n :kind) "variable") (js-name (get n :name))]
+              [(= (get n :kind) "literal") (js-name (get n :value))]
+              [true "_anon"])]
+
+(define v {:kind "variable" :name "src" :line 1})
+(println "kind:" (get v :kind))
+(println "name:" (get v :name))
+(println "extract:" (extract-name v))

package/self/bench/_v12_extract_test.js

@@ -0,0 +1,7 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const map_entries = (m) => m instanceof Map ? [...m.entries()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.entries(m) : []);const map_keys = (m) => m instanceof Map ? [...m.keys()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.keys(m) : []);const map_values = (m) => m instanceof Map ? [...m.values()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.values(m) : []);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);const __argv__ = process.argv.slice(2);
+const js_name = ()=>((n==null)?"_":((()=>{return a;})()));;
+const extract_name = ()=>(null?null:(null?null:(null?null:null)));;
+const v = ({});
+console.log("kind:",_fl_get(v,"kind"));
+console.log("name:",_fl_get(v,"name"));
+console.log("extract:",extract_name(v));

package/self/bench/_v12_inspect.js

@@ -0,0 +1,26 @@
+// Inspect v12-candidate internals
+const fs = require('fs');
+const src = fs.readFileSync(__dirname + '/../../bootstrap-v12-candidate.js', 'utf8');
+// Strip out the driver that auto-runs on argv:
+const driverless = src.replace(/\(\(__argv__==null\)\?null:[\s\S]*$/m, '');
+// Inject exports at end
+const injected = driverless + `\nmodule.exports = { lex, parse, cg, cg_func_block, extract_params, extract_name, param_loop };`;
+fs.writeFileSync(__dirname + '/_v12_inspect_mod.js', injected);
+
+const mod = require('./_v12_inspect_mod.js');
+const { lex, parse, cg, cg_func_block, extract_params, extract_name, param_loop } = mod;
+
+const code = '[FUNC double :params [$x] :body (* $x 2)]';
+const toks = lex(code);
+console.log('TOKS:', toks.length);
+const ast = parse(toks);
+console.log('AST:', JSON.stringify(ast, null, 2));
+console.log('---');
+const fnode = ast[0];
+console.log('CG-FUNC:', cg_func_block(fnode));
+console.log('---');
+const pnode = fnode.fields.params;
+const pitems = pnode.fields.items;
+console.log('pitems:', JSON.stringify(pitems, null, 2));
+console.log('extract-params:', extract_params(pitems));
+console.log('extract-name(item[0]):', extract_name(pitems[0]));

package/self/bench/_v12_inspect_mod.js

@@ -0,0 +1,137 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const map_entries = (m) => m instanceof Map ? [...m.entries()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.entries(m) : []);const map_keys = (m) => m instanceof Map ? [...m.keys()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.keys(m) : []);const map_values = (m) => m instanceof Map ? [...m.values()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.values(m) : []);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);const __argv__ = process.argv.slice(2);
+const is_digit_q = (c)=>((c==null)?false:((c>="0")&&(c<="9")));;
+const is_alpha_q = (c)=>((c==null)?false:(((c>="a")&&(c<="z"))||((c>="A")&&(c<="Z"))));;
+const is_alnum_q = (c)=>(is_digit_q(c)||is_alpha_q(c));;
+const is_space_q = (c)=>((c===" ")||(c==="\t")||(c==="\n")||(c==="\r"));;
+const is_symbol_char_q = (c)=>((c==null)?false:(is_alnum_q(c)||(c==="-")||(c==="_")||(c==="?")||(c==="!")||(c==="/")||(c===".")||(c==="<")||(c===">")||(c==="=")||(c==="+")||(c==="*")||(c==="%")||(c==="&")||(c==="|")||(c==="^")||(c==="~")));;
+const make_state = (src)=>({"src":src,"idx":0,"line":1,"col":1,"tokens":[]});;
+const peek_at = (st,offset)=>((()=>{let src=_fl_get(st,"src");let i=(_fl_get(st,"idx")+offset);return ((i>=_fl_length(src))?null:_fl_char_at(src,i));})());;
+const peek = (st)=>peek_at(st,0);;
+const at_end_q = (st)=>(_fl_get(st,"idx")>=_fl_length(_fl_get(st,"src")));;
+const advance = (st)=>((()=>{let c=peek(st);return ((c==="\n")?({"src":_fl_get(st,"src"),"idx":(_fl_get(st,"idx")+1),"line":(_fl_get(st,"line")+1),"col":1,"tokens":_fl_get(st,"tokens")}):({"src":_fl_get(st,"src"),"idx":(_fl_get(st,"idx")+1),"line":_fl_get(st,"line"),"col":(_fl_get(st,"col")+1),"tokens":_fl_get(st,"tokens")}));})());;
+const emit = (st,kind,value,sl,sc)=>({"src":_fl_get(st,"src"),"idx":_fl_get(st,"idx"),"line":_fl_get(st,"line"),"col":_fl_get(st,"col"),"tokens":_fl_append(_fl_get(st,"tokens"),[({"kind":kind,"value":value,"line":sl,"col":sc})])});;
+const skip_comment = (st)=>(at_end_q(st)?st:((()=>{let c=peek(st);return ((c==="\n")?advance(st):skip_comment(advance(st)));})()));;
+const skip_ws = (st)=>(at_end_q(st)?st:((()=>{let c=peek(st);return (is_space_q(c)?skip_ws(advance(st)):((c===";")?skip_ws(skip_comment(st)):(true?st:null)));})()));;
+const read_number_body = (st,acc,has_dot,line,col)=>(at_end_q(st)?emit(st,"Number",acc,line,col):((()=>{let c=peek(st);return (is_digit_q(c)?read_number_body(advance(st),_fl_str(acc,c),has_dot,line,col):(((c===".")&&(!has_dot))?read_number_body(advance(st),_fl_str(acc,c),true,line,col):(true?emit(st,"Number",acc,line,col):null)));})()));;
+const read_number = (st)=>read_number_body(st,"",false,_fl_get(st,"line"),_fl_get(st,"col"));;
+const translate_esc = (c)=>((c==="n")?"\n":((c==="t")?"\t":((c==="r")?"\r":((c==="\"")?"\"":((c==="\\")?"\\":(true?c:null))))));;
+const read_string_body = (st,acc,line,col)=>(at_end_q(st)?emit(st,"String",acc,line,col):((()=>{let c=peek(st);return ((c==="\"")?emit(advance(st),"String",acc,line,col):((c==="\\")?((()=>{let st2=advance(st);let c2=peek(st2);return read_string_body(advance(st2),_fl_str(acc,translate_esc(c2)),line,col);})()):(true?read_string_body(advance(st),_fl_str(acc,c),line,col):null)));})()));;
+const read_string = (st)=>((()=>{let line=_fl_get(st,"line");let col=_fl_get(st,"col");let st1=advance(st);return read_string_body(st1,"",line,col);})());;
+const read_symbol_body_kind = (st,acc,line,col,kind)=>(at_end_q(st)?emit(st,kind,acc,line,col):((()=>{let c=peek(st);return (is_symbol_char_q(c)?read_symbol_body_kind(advance(st),_fl_str(acc,c),line,col,kind):emit(st,kind,acc,line,col));})()));;
+const read_symbol = (st)=>read_symbol_body_kind(st,"",_fl_get(st,"line"),_fl_get(st,"col"),"Symbol");;
+const read_variable = (st)=>((()=>{let line=_fl_get(st,"line");let col=_fl_get(st,"col");let st1=advance(st);return read_symbol_body_kind(st1,"",line,col,"Variable");})());;
+const read_keyword = (st)=>((()=>{let line=_fl_get(st,"line");let col=_fl_get(st,"col");let st1=advance(st);return read_symbol_body_kind(st1,"",line,col,"Keyword");})());;
+const read_token = (st)=>((()=>{let st1=skip_ws(st);return (at_end_q(st1)?st1:((()=>{let c=peek(st1);let line=_fl_get(st1,"line");let col=_fl_get(st1,"col");return ((c==="(")?emit(advance(st1),"LParen",c,line,col):((c===")")?emit(advance(st1),"RParen",c,line,col):((c==="[")?emit(advance(st1),"LBracket",c,line,col):((c==="]")?emit(advance(st1),"RBracket",c,line,col):((c==="{")?emit(advance(st1),"LBrace",c,line,col):((c==="}")?emit(advance(st1),"RBrace",c,line,col):((c==="\"")?read_string(st1):((c==="$")?read_variable(st1):((c===":")?read_keyword(st1):(is_digit_q(c)?read_number(st1):(((c==="-")&&is_digit_q(peek_at(st1,1)))?read_number_body(advance(st1),"-",false,line,col):(is_symbol_char_q(c)?read_symbol(st1):(true?emit(advance(st1),"Unknown",c,line,col):null)))))))))))));})()));})());;
+const lex_loop = (st)=>((()=>{let st1=skip_ws(st);return (at_end_q(st1)?_fl_get(st1,"tokens"):lex_loop(read_token(st1)));})());;
+const lex = (src)=>lex_loop(make_state(src));;
+const make_literal = (type,value,line)=>({"kind":"literal","type":type,"value":value,"line":line});;
+const make_variable = (name,line)=>({"kind":"variable","name":name,"line":line});;
+const make_keyword = (name,line)=>({"kind":"keyword","name":name,"line":line});;
+const make_sexpr = (op,args,line)=>({"kind":"sexpr","op":op,"args":args,"line":line});;
+const make_array_block = (items,line)=>({"kind":"block","type":"Array","name":null,"fields":({}),"line":line});;
+const make_map_block = (items,line)=>({"kind":"block","type":"Map","name":null,"fields":({}),"line":line});;
+const make_block = (type,name,fields,line)=>({"kind":"block","type":type,"name":name,"fields":fields,"line":line});;
+const p_make = (tokens)=>({"tokens":tokens,"idx":0,"ast":[]});;
+const p_peek = (p)=>((()=>{let i=_fl_get(p,"idx");let t=_fl_get(p,"tokens");return ((i>=_fl_length(t))?null:_fl_get(t,i));})());;
+const p_peek_at = (p,offset)=>((()=>{let i=(_fl_get(p,"idx")+offset);let t=_fl_get(p,"tokens");return ((i>=_fl_length(t))?null:_fl_get(t,i));})());;
+const p_end_q = (p)=>(_fl_get(p,"idx")>=_fl_length(_fl_get(p,"tokens")));;
+const p_advance = (p)=>({"tokens":_fl_get(p,"tokens"),"idx":(_fl_get(p,"idx")+1),"ast":_fl_get(p,"ast")});;
+const p_with_ast = (p,ast)=>({"tokens":_fl_get(p,"tokens"),"idx":_fl_get(p,"idx"),"ast":ast});;
+const p_append_ast = (p,node)=>p_with_ast(p,_fl_append(_fl_get(p,"ast"),[node]));;
+const r_pair = (p,node)=>({"p":p,"node":node});;
+const parse_atom = (p)=>((()=>{let t=p_peek(p);let k=_fl_get(t,"kind");let v=_fl_get(t,"value");let line=_fl_get(t,"line");return ((k==="Number")?r_pair(p_advance(p),make_literal("number",v,line)):((k==="String")?r_pair(p_advance(p),make_literal("string",v,line)):((k==="Symbol")?r_pair(p_advance(p),make_literal("symbol",v,line)):((k==="Variable")?r_pair(p_advance(p),make_variable(v,line)):((k==="Keyword")?r_pair(p_advance(p),make_keyword(v,line)):(true?r_pair(p_advance(p),make_literal("unknown",v,line)):null))))));})());;
+const parse_expr = (p)=>((()=>{let t=p_peek(p);let k=_fl_get(t,"kind");return ((k==="LParen")?parse_sexpr(p):((k==="LBracket")?parse_bracket(p):((k==="LBrace")?parse_map(p):(true?parse_atom(p):null))));})());;
+const parse_sexpr = (p)=>((()=>{let start_tok=p_peek(p);let line=_fl_get(start_tok,"line");let p1=p_advance(p);let first=parse_args(p1,[]);let p2=_fl_get(first,"p");let args=_fl_get(first,"node");return ((_fl_length(args)===0)?r_pair(parse_consume_rparen(p2),make_sexpr("",[],line)):((()=>{let op_node=_fl_get(args,0);let op=((_fl_get(op_node,"kind")==="literal")?_fl_get(op_node,"value"):((_fl_get(op_node,"kind")==="variable")?_fl_str("$",_fl_get(op_node,"name")):"unknown"));let rest=_fl_slice(args,1,_fl_length(args));return r_pair(parse_consume_rparen(p2),make_sexpr(op,rest,line));})()));})());;
+const parse_consume_rparen = (p)=>((()=>{let t=p_peek(p);return (((!(t==null))&&(_fl_get(t,"kind")==="RParen"))?p_advance(p):p);})());;
+const parse_args = (p,acc)=>((()=>{let t=p_peek(p);return ((t==null)?r_pair(p,acc):((_fl_get(t,"kind")==="RParen")?r_pair(p,acc):((_fl_get(t,"kind")==="RBracket")?r_pair(p,acc):((_fl_get(t,"kind")==="RBrace")?r_pair(p,acc):(true?((()=>{let one=parse_expr(p);return parse_args(_fl_get(one,"p"),_fl_append(acc,[_fl_get(one,"node")]));})()):null)))));})());;
+const parse_bracket = (p)=>((()=>{let tok=p_peek(p);let line=_fl_get(tok,"line");let p1=p_advance(p);let next=p_peek(p1);return (((!(next==null))&&(_fl_get(next,"kind")==="Symbol")&&is_block_type_q(_fl_get(next,"value"))&&(_fl_get(next,"value")===upper_case(_fl_get(next,"value"))))?parse_named_block(p1,line):parse_array(p1,line));})());;
+const is_block_type_q = (s)=>((()=>{let c=_fl_char_at(s,0);return ((c>="A")&&(c<="Z"));})());;
+const upper_case = (s)=>s;;
+const parse_array = (p,line)=>((()=>{let collected=parse_args(p,[]);let p2=_fl_get(collected,"p");let items=_fl_get(collected,"node");return r_pair(parse_consume_rbracket(p2),make_array_block(items,line));})());;
+const parse_consume_rbracket = (p)=>((()=>{let t=p_peek(p);return (((!(t==null))&&(_fl_get(t,"kind")==="RBracket"))?p_advance(p):p);})());;
+const parse_named_block = (p,line)=>((()=>{let type_tok=p_peek(p);let type=_fl_get(type_tok,"value");let p1=p_advance(p);let name_info=parse_optional_name(p1);let p2=_fl_get(name_info,"p");let name=_fl_get(name_info,"node");let fields_info=parse_block_fields(p2,({}));let p3=_fl_get(fields_info,"p");let fields=_fl_get(fields_info,"node");return r_pair(parse_consume_rbracket(p3),make_block(type,name,fields,line));})());;
+const parse_optional_name = (p)=>((()=>{let t=p_peek(p);return (((!(t==null))&&(_fl_get(t,"kind")==="Symbol")&&(!(_fl_char_at(_fl_get(t,"value"),0)===":")))?r_pair(p_advance(p),_fl_get(t,"value")):r_pair(p,null));})());;
+const parse_block_fields = (p,acc)=>((()=>{let t=p_peek(p);return ((t==null)?r_pair(p,acc):((_fl_get(t,"kind")==="RBracket")?r_pair(p,acc):((_fl_get(t,"kind")==="Keyword")?((()=>{let key=_fl_get(t,"value");let p1=p_advance(p);let val=parse_expr(p1);let p2=_fl_get(val,"p");let v=_fl_get(val,"node");return parse_block_fields(p2,_fl_map_set(acc,key,v));})()):(true?r_pair(p_advance(p),acc):null))));})());;
+const parse_map = (p)=>((()=>{let tok=p_peek(p);let line=_fl_get(tok,"line");let p1=p_advance(p);let collected=parse_args(p1,[]);let p2=_fl_get(collected,"p");let items=_fl_get(collected,"node");return r_pair(parse_consume_rbrace(p2),make_map_block(items,line));})());;
+const parse_consume_rbrace = (p)=>((()=>{let t=p_peek(p);return (((!(t==null))&&(_fl_get(t,"kind")==="RBrace"))?p_advance(p):p);})());;
+const parse_all = (p)=>(p_end_q(p)?_fl_get(p,"ast"):((()=>{let one=parse_expr(p);let p2=p_append_ast(_fl_get(one,"p"),_fl_get(one,"node"));return parse_all(p2);})()));;
+const parse = (tokens)=>parse_all(p_make(tokens));;
+const js_esc = (s)=>((()=>{let a=_fl_replace(s,"\\","\\\\");let b=_fl_replace(a,"\"","\\\"");let c=_fl_replace(b,"\n","\\n");let d=_fl_replace(c,"\r","\\r");let e=_fl_replace(d,"\t","\\t");return _fl_str("\"",e,"\"");})());;
+const js_reserved_q = (n)=>((n==="default")||(n==="class")||(n==="const")||(n==="let")||(n==="if")||(n==="else")||(n==="switch")||(n==="case")||(n==="break")||(n==="continue")||(n==="for")||(n==="while")||(n==="function")||(n==="return")||(n==="throw")||(n==="try")||(n==="catch")||(n==="new")||(n==="delete")||(n==="typeof")||(n==="instanceof")||(n==="var")||(n==="in")||(n==="of")||(n==="this")||(n==="super")||(n==="void")||(n==="yield")||(n==="async")||(n==="await")||(n==="import")||(n==="export")||(n==="enum")||(n==="do")||(n==="with")||(n==="finally")||(n==="null")||(n==="true")||(n==="false"));;
+const js_name = (n)=>((n==null)?"_":((()=>{let a=_fl_replace(n,"-","_");let b=_fl_replace(a,"?","_q");let c=_fl_replace(b,"!","_x");let d=_fl_replace(c,">","_gt");let e=_fl_replace(d,"<","_lt");let f=_fl_replace(e,"*","_st");let g=_fl_replace(f,"+","_pl");return (js_reserved_q(g)?_fl_str(g,"_"):g);})()));;
+const cg = (n)=>((n==null)?"null":((_fl_get(n,"kind")==="literal")?cg_literal(n):((_fl_get(n,"kind")==="variable")?js_name(_fl_get(n,"name")):((_fl_get(n,"kind")==="keyword")?js_esc(_fl_get(n,"name")):((_fl_get(n,"kind")==="sexpr")?cg_sexpr(n):((_fl_get(n,"kind")==="block")?cg_block(n):((_fl_get(n,"kind")==="pattern-match")?cg_match(n):(true?"null":null))))))));;
+const cg_literal = (n)=>((()=>{let t=_fl_get(n,"type");let v=_fl_get(n,"value");return ((t==="number")?v:((t==="string")?js_esc(v):((t==="boolean")?(v?"true":"false"):((t==="symbol")?((v==="true")?"true":((v==="false")?"false":((v==="null")?"null":(true?js_name(v):null)))):(true?"null":null)))));})());;
+const cg_block = (n)=>((()=>{let t=_fl_get(n,"type");return ((t==="Array")?_fl_str("[",cg_args(_fl_get(_fl_get(n,"fields"),"items")),"]"):((t==="Map")?_fl_str("({",cg_map_entries(_fl_get(n,"fields")),"})"):((t==="FUNC")?cg_func_block(n):(true?"null":null))));})());;
+const cg_map_entries = (fields)=>((()=>{let items=_fl_get(fields,"items");return ((items==null)?cg_map_loop(map_entries(fields),0,""):cg_map_flat_loop(items,0,""));})());;
+const cg_map_loop = (entries,i,acc)=>((i>=_fl_length(entries))?acc:((()=>{let e=_fl_get(entries,i);let k=_fl_get(e,0);let v=cg(_fl_get(e,1));let pair=_fl_str(js_esc(k),":",v);return cg_map_loop(entries,(i+1),((i===0)?pair:_fl_str(acc,",",pair)));})()));;
+const cg_map_flat_loop = (items,i,acc)=>((i>=_fl_length(items))?acc:((()=>{let k_n=_fl_get(items,i);let v_n=_fl_get(items,(i+1));let k_str=cg_keyword_key(k_n);let v_js=_fl_str(cg(v_n));let pair=_fl_str(k_str,":",v_js);return cg_map_flat_loop(items,(i+2),((i===0)?pair:_fl_str(acc,",",pair)));})()));;
+const cg_keyword_key = (n)=>((_fl_get(n,"kind")==="keyword")?js_esc(_fl_get(n,"name")):((_fl_get(n,"kind")==="literal")?js_esc(_fl_str(_fl_get(n,"value"))):(true?"\"_anon\"":null)));;
+const cg_func_block = (n)=>((()=>{let name=js_name(_fl_get(n,"name"));let fields=_fl_get(n,"fields");let pnode=_fl_get(fields,"params");let body=_fl_get(fields,"body");let pitems=((pnode==null)?[]:_fl_get(_fl_get(pnode,"fields"),"items"));let ps=extract_params(pitems);return _fl_str("const ",name," = (",ps,")=>",cg(body),";");})());;
+const cg_if = (args)=>_fl_str("(",cg(_fl_get(args,0)),"?",cg(_fl_get(args,1)),":",((_fl_length(args)>=3)?cg(_fl_get(args,2)):"null"),")");;
+const cg_fn = (args)=>((()=>{let pnode=_fl_get(args,0);let body=_fl_get(args,1);let ps=extract_params(_fl_get(_fl_get(pnode,"fields"),"items"));return _fl_str("((",ps,")=>",cg(body),")");})());;
+const cg_defn = (args)=>((()=>{let name_n=_fl_get(args,0);let pnode=_fl_get(args,1);let body=_fl_get(args,2);let name=extract_name(name_n);let ps=extract_params(_fl_get(_fl_get(pnode,"fields"),"items"));return _fl_str("const ",name," = (",ps,")=>",cg(body));})());;
+const cg_define = (args)=>((_fl_length(args)===2)?_fl_str("const ",extract_name(_fl_get(args,0))," = ",cg(_fl_get(args,1))):cg_defn(args));;
+const cg_let = (args)=>((()=>{let bnode=_fl_get(args,0);let items=_fl_get(_fl_get(bnode,"fields"),"items");let first_item=((items==null)?null:_fl_get(items,0));let nested=((first_item==null)?false:((_fl_get(first_item,"kind")==="block")&&(_fl_get(first_item,"type")==="Array")));let bindings=(nested?cg_let_2d(items,0,""):cg_let_1d(items,0,""));let body_args=_fl_slice(args,1,_fl_length(args));let body_js=cg_do_body(body_args,0,"");return _fl_str("((()=>{",bindings,body_js,"})())");})());;
+const cg_let_1d = (items,i,acc)=>((i>=_fl_length(items))?acc:((()=>{let k_n=_fl_get(items,i);let v_n=_fl_get(items,(i+1));let name=extract_name(k_n);let val=cg(v_n);return cg_let_1d(items,(i+2),_fl_str(acc,"let ",name,"=",val,";"));})()));;
+const cg_let_2d = (items,i,acc)=>((i>=_fl_length(items))?acc:((()=>{let pair=_fl_get(items,i);let pitems=_fl_get(_fl_get(pair,"fields"),"items");let k_n=_fl_get(pitems,0);let v_n=_fl_get(pitems,1);let name=extract_name(k_n);let val=cg(v_n);return cg_let_2d(items,(i+1),_fl_str(acc,"let ",name,"=",val,";"));})()));;
+const cg_do = (args)=>((_fl_length(args)===0)?"null":_fl_str("(()=>{",cg_do_body(args,0,""),"})()"));;
+const cg_do_body = (args,i,acc)=>((i>=_fl_length(args))?acc:((()=>{let last=(i===(_fl_length(args)-1));let c=cg(_fl_get(args,i));let sep=(last?"return ":"");return cg_do_body(args,(i+1),_fl_str(acc,sep,c,";"));})()));;
+const cg_cond = (args)=>cg_cond_loop(args,0);;
+const cg_cond_loop = (args,i)=>((i>=_fl_length(args))?"null":((()=>{let clause=_fl_get(args,i);let citems=_fl_get(_fl_get(clause,"fields"),"items");let test=cg(_fl_get(citems,0));let result=cg(_fl_get(citems,1));let rest=cg_cond_loop(args,(i+1));return _fl_str("(",test,"?",result,":",rest,")");})()));;
+const cg_and = (args)=>((_fl_length(args)===0)?"true":_fl_str("(",and_loop(args,0,""),")"));;
+const and_loop = (args,i,acc)=>((i>=_fl_length(args))?acc:((()=>{let c=_fl_str(cg(_fl_get(args,i)));return and_loop(args,(i+1),((i===0)?c:_fl_str(acc,"&&",c)));})()));;
+const cg_or = (args)=>((_fl_length(args)===0)?"false":_fl_str("(",or_loop(args,0,""),")"));;
+const or_loop = (args,i,acc)=>((i>=_fl_length(args))?acc:((()=>{let c=_fl_str(cg(_fl_get(args,i)));return or_loop(args,(i+1),((i===0)?c:_fl_str(acc,"||",c)));})()));;
+const cg_quote = (args)=>((_fl_length(args)===0)?"null":js_esc(_fl_str(cg(_fl_get(args,0)))));;
+const cg_set_x = (args)=>_fl_str("(",extract_name(_fl_get(args,0)),"=",cg(_fl_get(args,1)),")");;
+const cg_throw = (args)=>((()=>{let m=((_fl_length(args)===0)?"\"error\"":cg(_fl_get(args,0)));return _fl_str("(()=>{throw new Error(String(",m,"))})()");})());;
+const cg_try = (args)=>((()=>{let body=cg(_fl_get(args,0));let catch_node=((_fl_length(args)>=2)?_fl_get(args,1):null);let catch_info=((catch_node==null)?null:extract_catch(catch_node));let evar=((catch_info==null)?"_err":_fl_get(catch_info,"evar"));let ebody=((catch_info==null)?"null":_fl_get(catch_info,"ebody"));return _fl_str("(()=>{try{return ",body,";}catch(",evar,"){return ",ebody,";}})()");})());;
+const extract_catch = (n)=>((()=>{let args=_fl_get(n,"args");let ev=extract_name(_fl_get(args,0));let handler=cg(_fl_get(args,1));return ({"evar":ev,"ebody":handler});})());;
+const cg_while = (args)=>((()=>{let cond=cg(_fl_get(args,0));let body_args=_fl_slice(args,1,_fl_length(args));let body=while_body(body_args,0,"");return _fl_str("(()=>{while(",cond,"){",body,"}})()");})());;
+const while_body = (args,i,acc)=>((i>=_fl_length(args))?acc:while_body(args,(i+1),_fl_str(acc,cg(_fl_get(args,i)),";")));;
+const cg_loop = (args)=>((()=>{let bnode=_fl_get(args,0);let items=_fl_get(_fl_get(bnode,"fields"),"items");let first=((items==null)?null:_fl_get(items,0));let nested=((first==null)?false:((_fl_get(first,"kind")==="block")&&(_fl_get(first,"type")==="Array")));let bindings=(nested?loop_inits_2d(items,0,""):loop_inits_1d(items,0,""));let names=(nested?loop_names_2d(items,0,""):loop_names_1d(items,0,""));let body_args=_fl_slice(args,1,_fl_length(args));let body_js=cg_do_body(body_args,0,"");return _fl_str("((()=>{",bindings,"while(true){let __r=(()=>{",body_js,"})();","if(__r&&__r.__recur){[",names,"]=__r.a;continue;}","return __r;}})())");})());;
+const loop_inits_1d = (items,i,acc)=>((i>=_fl_length(items))?acc:((()=>{let k=_fl_get(items,i);let v=_fl_get(items,(i+1));return loop_inits_1d(items,(i+2),_fl_str(acc,"let ",extract_name(k),"=",cg(v),";"));})()));;
+const loop_inits_2d = (items,i,acc)=>((i>=_fl_length(items))?acc:((()=>{let pair=_fl_get(items,i);let pit=_fl_get(_fl_get(pair,"fields"),"items");return loop_inits_2d(items,(i+1),_fl_str(acc,"let ",extract_name(_fl_get(pit,0)),"=",cg(_fl_get(pit,1)),";"));})()));;
+const loop_names_1d = (items,i,acc)=>((i>=_fl_length(items))?acc:((()=>{let k=_fl_get(items,i);let n=extract_name(k);return loop_names_1d(items,(i+2),((_fl_length(acc)===0)?n:_fl_str(acc,",",n)));})()));;
+const loop_names_2d = (items,i,acc)=>((i>=_fl_length(items))?acc:((()=>{let pair=_fl_get(items,i);let pit=_fl_get(_fl_get(pair,"fields"),"items");let n=extract_name(_fl_get(pit,0));return loop_names_2d(items,(i+1),((_fl_length(acc)===0)?n:_fl_str(acc,",",n)));})()));;
+const cg_recur = (args)=>_fl_str("{__recur:true,a:[",cg_args(args),"]}");;
+const cg_match = (n)=>((()=>{let val=cg(_fl_get(n,"value"));let cases=_fl_get(n,"cases");let default_n=_fl_get(n,"defaultCase");let default_=((default_n==null)?"null":cg(default_n));let cases_js=match_cases_loop(cases,0,"");return _fl_str("((__v)=>{",cases_js,"return ",default_,";})(",val,")");})());;
+const match_cases_loop = (cases,i,acc)=>((i>=_fl_length(cases))?acc:((()=>{let c=_fl_get(cases,i);let pat=_fl_get(c,"pattern");let body=cg(_fl_get(c,"body"));let guard_n=_fl_get(c,"guard");let test=pattern_test(pat,"__v");let bind=pattern_bindings(pat,"__v");let guard_js=((guard_n==null)?"true":cg(guard_n));let inner=((guard_n==null)?_fl_str(bind,"return ",body,";"):_fl_str(bind,"if(",guard_js,"){return ",body,";}"));return match_cases_loop(cases,(i+1),_fl_str(acc,"if(",test,"){",inner,"}"));})()));;
+const pattern_test = (pat,v)=>((()=>{let k=_fl_get(pat,"kind");return ((k==="wildcard-pattern")?"true":((k==="variable-pattern")?"true":((k==="literal-pattern")?_fl_str("(",v,"===",literal_to_js(_fl_get(pat,"type"),_fl_get(pat,"value")),")"):((k==="or-pattern")?or_pattern_test(_fl_get(pat,"patterns"),v,0,""):((k==="range-pattern")?_fl_str("(",v,">=",_fl_get(pat,"min"),"&&",v,"<=",_fl_get(pat,"max"),")"):(true?"false":null))))));})());;
+const literal_to_js = (t,v)=>((t==="number")?v:((t==="string")?js_esc(v):((t==="symbol")?((v==="true")?"true":((v==="false")?"false":((v==="null")?"null":(true?js_esc(v):null)))):(true?"null":null))));;
+const or_pattern_test = (pats,v,i,acc)=>((i>=_fl_length(pats))?((_fl_length(acc)===0)?"false":_fl_str("(",acc,")")):((()=>{let t=pattern_test(_fl_get(pats,i),v);return or_pattern_test(pats,v,(i+1),((_fl_length(acc)===0)?t:_fl_str(acc,"||",t)));})()));;
+const pattern_bindings = (pat,v)=>((()=>{let k=_fl_get(pat,"kind");return ((k==="variable-pattern")?_fl_str("let ",js_name(_fl_get(pat,"name")),"=",v,";"):(true?"":null));})());;
+const cg_compose = (args)=>_fl_str("((__x)=>",compose_nest(args,(_fl_length(args)-1),"__x"),")");;
+const compose_nest = (args,i,acc)=>((i<0)?acc:((()=>{let f=_fl_str(cg(_fl_get(args,i)));return compose_nest(args,(i-1),_fl_str(f,"(",acc,")"));})()));;
+const cg_pipe = (args)=>_fl_str("((__x)=>",pipe_nest(args,0,"__x"),")");;
+const pipe_nest = (args,i,acc)=>((i>=_fl_length(args))?acc:((()=>{let f=_fl_str(cg(_fl_get(args,i)));return pipe_nest(args,(i+1),_fl_str(f,"(",acc,")"));})()));;
+const cg_thread_first = (args)=>((()=>{let init=_fl_str(cg(_fl_get(args,0)));return thread_first_loop(args,1,init);})());;
+const thread_first_loop = (args,i,acc)=>((i>=_fl_length(args))?acc:thread_first_loop(args,(i+1),thread_apply(_fl_get(args,i),acc,true)));;
+const cg_thread_last = (args)=>((()=>{let init=_fl_str(cg(_fl_get(args,0)));return thread_last_loop(args,1,init);})());;
+const thread_last_loop = (args,i,acc)=>((i>=_fl_length(args))?acc:thread_last_loop(args,(i+1),thread_apply(_fl_get(args,i),acc,false)));;
+const thread_apply = (step,acc,fst)=>((_fl_get(step,"kind")==="sexpr")?((()=>{let op=js_name(_fl_get(step,"op"));let a=_fl_get(step,"args");return (fst?_fl_str(op,"(",acc,((_fl_length(a)===0)?"":_fl_str(",",cg_args(a))),")"):_fl_str(op,"(",((_fl_length(a)===0)?"":_fl_str(cg_args(a),",")),acc,")"));})()):(true?_fl_str(_fl_str(cg(step)),"(",acc,")"):null));;
+const cg_call_form = (args)=>((()=>{let fn=_fl_str(cg(_fl_get(args,0)));let rest=_fl_slice(args,1,_fl_length(args));return _fl_str(fn,"(",cg_args(rest),")");})());;
+const cg_async = (args)=>_fl_str("(async()=>{",cg_do_body(args,0,""),"})()");;
+const cg_await = (args)=>_fl_str("(await ",cg(_fl_get(args,0)),")");;
+const cg_defstruct = (args)=>((()=>{let name_n=_fl_get(args,0);let name=extract_name(name_n);let fields=_fl_slice(args,1,_fl_length(args));let params=struct_field_list(fields,0,"");let init=struct_init_list(fields,0,"");return _fl_str("const ",name," = (",params,")=>({__struct:\"",name,"\",",init,"})");})());;
+const struct_field_list = (fs,i,acc)=>((i>=_fl_length(fs))?acc:((()=>{let n=extract_name(_fl_get(fs,i));return struct_field_list(fs,(i+1),((_fl_length(acc)===0)?n:_fl_str(acc,",",n)));})()));;
+const struct_init_list = (fs,i,acc)=>((i>=_fl_length(fs))?acc:((()=>{let n=extract_name(_fl_get(fs,i));return struct_init_list(fs,(i+1),((_fl_length(acc)===0)?n:_fl_str(acc,",",n)));})()));;
+const cg_args = (args)=>args_loop(args,0,"");;
+const args_loop = (args,i,acc)=>((i>=_fl_length(args))?acc:((()=>{let c=_fl_str(cg(_fl_get(args,i)));return args_loop(args,(i+1),((i===0)?c:_fl_str(acc,",",c)));})()));;
+const cg_binop = (args,op,zero)=>((_fl_length(args)===0)?zero:((_fl_length(args)===1)?_fl_str(cg(_fl_get(args,0))):(true?_fl_str("(",binop_loop(args,0,"",op),")"):null)));;
+const binop_loop = (args,i,acc,op)=>((i>=_fl_length(args))?acc:((()=>{let c=_fl_str(cg(_fl_get(args,i)));return binop_loop(args,(i+1),((i===0)?c:_fl_str(acc,op,c)),op);})()));;
+const cg_pair = (args,op)=>_fl_str("(",cg(_fl_get(args,0)),op,cg(_fl_get(args,1)),")");;
+const cg_sub = (args)=>((_fl_length(args)===1)?_fl_str("(-",cg(_fl_get(args,0)),")"):_fl_str("(",cg(_fl_get(args,0)),"-",cg(_fl_get(args,1)),")"));;
+const extract_name = (n)=>((_fl_get(n,"kind")==="variable")?js_name(_fl_get(n,"name")):((_fl_get(n,"kind")==="literal")?js_name(_fl_get(n,"value")):(true?"_anon":null)));;
+const extract_params = (items)=>param_loop(items,0,"");;
+const param_loop = (items,i,acc)=>((items==null)?acc:((i>=_fl_length(items))?acc:((()=>{let name=extract_name(_fl_get(items,i));return param_loop(items,(i+1),((i===0)?name:_fl_str(acc,",",name)));})())));;
+const cg_native = (op,args)=>((()=>{let as=cg_args(args);return ((op==="str")?_fl_str("_fl_str(",as,")"):((op==="concat")?_fl_str("_fl_str(",as,")"):((op==="length")?_fl_str("_fl_length(",as,")"):((op==="substring")?_fl_str("_fl_substring(",as,")"):((op==="char-at")?_fl_str("_fl_char_at(",as,")"):((op==="replace")?_fl_str("_fl_replace(",as,")"):((op==="starts-with?")?_fl_str("_fl_starts_with(",as,")"):((op==="ends-with?")?_fl_str("_fl_ends_with(",as,")"):((op==="contains?")?_fl_str("_fl_contains(",as,")"):((op==="split")?_fl_str("_fl_split(",as,")"):((op==="join")?_fl_str("_fl_join(",as,")"):((op==="trim")?_fl_str("_fl_trim(",as,")"):((op==="upper")?_fl_str("_fl_upper(",as,")"):((op==="lower")?_fl_str("_fl_lower(",as,")"):((op==="repeat")?_fl_str("_fl_repeat(",as,")"):((op==="index-of")?_fl_str("_fl_index_of(",as,")"):((op==="first")?_fl_str("_fl_first(",as,")"):((op==="last")?_fl_str("_fl_last(",as,")"):((op==="rest")?_fl_str("_fl_rest(",as,")"):((op==="append")?_fl_str("_fl_append(",as,")"):((op==="slice")?_fl_str("_fl_slice(",as,")"):((op==="list")?_fl_str("[",as,"]"):((op==="map")?_fl_str("_fl_map(",as,")"):((op==="filter")?_fl_str("_fl_filter(",as,")"):((op==="reduce")?_fl_str("_fl_reduce(",as,")"):((op==="find")?_fl_str("_fl_find(",as,")"):((op==="every?")?_fl_str("_fl_every(",as,")"):((op==="some?")?_fl_str("_fl_some(",as,")"):((op==="sort")?_fl_str("_fl_sort(",as,")"):((op==="reverse")?_fl_str("_fl_reverse(",as,")"):((op==="flatten")?_fl_str("_fl_flatten(",as,")"):((op==="distinct")?_fl_str("_fl_distinct(",as,")"):((op==="range")?_fl_str("_fl_range(",as,")"):((op==="take")?_fl_str("_fl_take(",as,")"):((op==="drop")?_fl_str("_fl_drop(",as,")"):((op==="count")?_fl_str("_fl_length(",as,")"):((op==="get")?_fl_str("_fl_get(",as,")"):((op==="keys")?_fl_str("_fl_keys(",as,")"):((op==="values")?_fl_str("_fl_values(",as,")"):((op==="entries")?_fl_str("_fl_entries(",as,")"):((op==="has-key?")?_fl_str("_fl_has_key(",as,")"):((op==="map-set")?_fl_str("_fl_map_set(",as,")"):((op==="map-delete")?_fl_str("_fl_map_delete(",as,")"):((op==="merge")?_fl_str("_fl_merge(",as,")"):((op==="json_set")?_fl_str("_fl_map_set(",as,")"):((op==="json-parse")?_fl_str("JSON.parse(",as,")"):((op==="json-stringify")?_fl_str("JSON.stringify(",as,")"):((op==="json_parse")?_fl_str("JSON.parse(",as,")"):((op==="json_stringify")?_fl_str("JSON.stringify(",as,")"):((op==="null?")?_fl_str("(",as,"==null)"):((op==="not")?_fl_str("(!",as,")"):((op==="empty?")?_fl_str("_fl_empty_q(",as,")"):((op==="true?")?_fl_str("(",as,"===true)"):((op==="false?")?_fl_str("(",as,"===false)"):((op==="string?")?_fl_str("(typeof ",as,"===\"string\")"):((op==="number?")?_fl_str("(typeof ",as,"===\"number\")"):((op==="list?")?_fl_str("Array.isArray(",as,")"):((op==="map?")?_fl_str("_fl_is_map(",as,")"):((op==="fn?")?_fl_str("(typeof ",as,"===\"function\")"):((op==="boolean?")?_fl_str("(typeof ",as,"===\"boolean\")"):((op==="type-of")?_fl_str("_fl_type_of(",as,")"):((op==="min")?_fl_str("Math.min(",as,")"):((op==="max")?_fl_str("Math.max(",as,")"):((op==="abs")?_fl_str("Math.abs(",as,")"):((op==="sqrt")?_fl_str("Math.sqrt(",as,")"):((op==="pow")?_fl_str("Math.pow(",as,")"):((op==="floor")?_fl_str("Math.floor(",as,")"):((op==="ceil")?_fl_str("Math.ceil(",as,")"):((op==="round")?_fl_str("Math.round(",as,")"):((op==="mod")?cg_pair(args,"%"):((op==="neg")?_fl_str("(-",as,")"):((op==="sign")?_fl_str("Math.sign(",as,")"):((op==="random")?_fl_str("Math.random()"):((op==="log")?_fl_str("Math.log(",as,")"):((op==="exp")?_fl_str("Math.exp(",as,")"):((op==="sin")?_fl_str("Math.sin(",as,")"):((op==="cos")?_fl_str("Math.cos(",as,")"):((op==="str-to-num")?_fl_str("Number(",as,")"):((op==="num-to-str")?_fl_str("String(",as,")"):((op==="println")?_fl_str("console.log(",as,")"):((op==="print")?_fl_str("process.stdout.write(String(",as,"))"):((op==="file_read")?_fl_str("_fl_file_read(",as,")"):((op==="file_write")?_fl_str("_fl_file_write(",as,")"):((op==="file_exists")?_fl_str("_fl_file_exists(",as,")"):((op==="exit")?_fl_str("process.exit(",as,")"):((op==="shell_capture")?_fl_str("_fl_shell_capture(",as,")"):(true?cg_call(op,args):null)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));})());;
+const cg_call = (op,args)=>((()=>{let fn_name=js_name(((_fl_char_at(op,0)==="$")?_fl_substring(op,1,_fl_length(op)):op));return _fl_str(fn_name,"(",cg_args(args),")");})());;
+const cg_sexpr = (n)=>((()=>{let op=_fl_get(n,"op");let args=_fl_get(n,"args");return ((op==="if")?cg_if(args):((op==="fn")?cg_fn(args):((op==="defn")?cg_defn(args):((op==="define")?cg_define(args):((op==="let")?cg_let(args):((op==="do")?cg_do(args):((op==="begin")?cg_do(args):((op==="cond")?cg_cond(args):((op==="and")?cg_and(args):((op==="or")?cg_or(args):((op==="quote")?cg_quote(args):((op==="set!")?cg_set_x(args):((op==="throw")?cg_throw(args):((op==="try")?cg_try(args):((op==="while")?cg_while(args):((op==="loop")?cg_loop(args):((op==="recur")?cg_recur(args):((op==="defstruct")?cg_defstruct(args):((op==="compose")?cg_compose(args):((op==="pipe")?cg_pipe(args):((op==="->")?cg_thread_first(args):((op==="->>")?cg_thread_last(args):((op==="|>")?cg_thread_first(args):((op==="call")?cg_call_form(args):((op==="async")?cg_async(args):((op==="await")?cg_await(args):((op==="+")?cg_binop(args,"+","0"):((op==="-")?cg_sub(args):((op==="*")?cg_binop(args,"*","1"):((op==="/")?cg_pair(args,"/"):((op==="%")?cg_pair(args,"%"):((op==="<")?cg_pair(args,"<"):((op===">")?cg_pair(args,">"):((op==="<=")?cg_pair(args,"<="):((op===">=")?cg_pair(args,">="):((op==="=")?cg_pair(args,"==="):((op==="!=")?cg_pair(args,"!=="):(true?cg_native(op,args):null))))))))))))))))))))))))))))))))))))));})());;
+const runtime_prelude = ()=>_fl_str("const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');","const _fl_length = (x) => (x==null ? 0 : x.length);","const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));","const _fl_char_at = (s, i) => (s[i] || null);","const _fl_replace = (s, a, b) => s.split(a).join(b);","const _fl_starts_with = (s, p) => s.startsWith(p);","const _fl_ends_with = (s, p) => s.endsWith(p);","const _fl_contains = (s, p) => s.includes(p);","const _fl_split = (s, sep) => s.split(sep);","const _fl_join = (l, sep) => l.join(sep==null?'':sep);","const _fl_trim = (s) => s.trim();","const _fl_upper = (s) => s.toUpperCase();","const _fl_lower = (s) => s.toLowerCase();","const _fl_repeat = (s, n) => s.repeat(n);","const _fl_index_of = (s, p) => s.indexOf(p);","const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);","const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);","const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));","const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);","const _fl_slice = (l, a, b) => l.slice(a, b);","const _fl_map = (f, l) => l.map(x => f(x));","const _fl_filter = (f, l) => l.filter(x => f(x));","const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);","const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);","const _fl_every = (f, l) => l.every(x => f(x));","const _fl_some = (f, l) => l.some(x => f(x));","const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));","const _fl_reverse = (l) => [...l].reverse();","const _fl_flatten = (l) => l.flat(Infinity);","const _fl_distinct = (l) => [...new Set(l)];","const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };","const _fl_take = (n, l) => l.slice(0, n);","const _fl_drop = (n, l) => l.slice(n);","const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));","const _fl_keys = (o) => (o==null ? [] : Object.keys(o));","const _fl_values = (o) => (o==null ? [] : Object.values(o));","const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));","const _fl_has_key = (o, k) => (o!=null && k in o);","const _fl_map_set = (o, k, v) => ({...o, [k]: v});","const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };","const _fl_merge = (...os) => Object.assign({}, ...os);","const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));","const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);","const map_entries = (m) => m instanceof Map ? [...m.entries()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.entries(m) : []);","const map_keys = (m) => m instanceof Map ? [...m.keys()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.keys(m) : []);","const map_values = (m) => m instanceof Map ? [...m.values()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.values(m) : []);","const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');","const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);","const _fl_file_exists = (p) => require('fs').existsSync(p);","const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };","const _fl_empty_q = (x) => (x==null || x.length===0);","const __argv__ = process.argv.slice(2);");;
+const codegen_loop = (ast,i,acc)=>((i>=_fl_length(ast))?acc:codegen_loop(ast,(i+1),_fl_str(acc,cg(_fl_get(ast,i)),";\n")));;
+const fl__gtjs_code = (ast)=>codegen_loop(ast,0,"");;
+const fl__gtjs_with_prelude = (ast)=>_fl_str(runtime_prelude(),"\n",codegen_loop(ast,0,""));;
+const compile_v12 = (input,output)=>((()=>{let src=_fl_file_read(input);let tokens=lex(src);let ast=parse(tokens);let js=fl__gtjs_with_prelude(ast);_fl_file_write(output,js);return console.log(_fl_str("v12 compiled ",input," -> ",output," size=",_fl_length(js)));})());;
+
+module.exports = { lex, parse, cg, cg_func_block, extract_params, extract_name, param_loop };

package/self/bench/_v12_makevartest.fl

@@ -0,0 +1,8 @@
+;; make-variable 직접 테스트
+[FUNC make-variable :params [n l]
+  :body {:kind "variable" :name n :line l}]
+
+(define v (make-variable "src" 1))
+(println "v:" v)
+(println "kind:" (get v :kind))
+(println "name:" (get v :name))

package/self/bench/_v12_makevartest.js

@@ -0,0 +1,6 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const map_entries = (m) => m instanceof Map ? [...m.entries()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.entries(m) : []);const map_keys = (m) => m instanceof Map ? [...m.keys()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.keys(m) : []);const map_values = (m) => m instanceof Map ? [...m.values()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.values(m) : []);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);const __argv__ = process.argv.slice(2);
+const make_variable = ()=>({});;
+const v = make_variable("src",1);
+console.log("v:",v);
+console.log("kind:",_fl_get(v,"kind"));
+console.log("name:",_fl_get(v,"name"));

package/self/bench/_v12_parse_probe.fl

@@ -0,0 +1,9 @@
+(define toks (lex "[FUNC f :params [n] :body 1]"))
+(println "toks-len:" (length toks))
+(define ast (parse toks))
+(println "ast-len:" (length ast))
+(define n (get ast 0))
+(println "n.type:" (get n :type))
+(define f (get n :fields))
+(println "fields-keys-items:" (get f "items"))
+(println "fields-params:" (get f "params"))

package/self/bench/_v12_parse_trace.fl

@@ -0,0 +1,18 @@
+;; v12-candidate 내부적으로 self-parser 로 파싱 검증
+(define src "[FUNC f :params [x] :body (* x 2)]")
+(define toks (lex src))
+(println "toks-len:" (length toks))
+(define ast (parse toks))
+(define n (get ast 0))
+(println "n.type:" (get n :type))
+(println "n.fields:" (get n :fields))
+(define f (get n :fields))
+(define pnode (get f "params"))
+(println "pnode:" pnode)
+(define pf (get pnode :fields))
+(define pitems (get pf "items"))
+(println "pitems-len:" (length pitems))
+(define p0 (get pitems 0))
+(println "p0:" p0)
+(println "p0.kind:" (get p0 :kind))
+(println "p0.name:" (get p0 :name))

package/self/bench/_v12_simple_fn.fl

@@ -0,0 +1,2 @@
+[FUNC double :params [x] :body (* x 2)]
+(println (double 21))

package/self/bench/_v12_simple_fn.js

@@ -0,0 +1,3 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const map_entries = (m) => m instanceof Map ? [...m.entries()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.entries(m) : []);const map_keys = (m) => m instanceof Map ? [...m.keys()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.keys(m) : []);const map_values = (m) => m instanceof Map ? [...m.values()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.values(m) : []);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);const __argv__ = process.argv.slice(2);
+const double = ()=>(x*2);;
+console.log(double(21));

package/self/bench/_v12_trace.fl

@@ -0,0 +1,2 @@
+[FUNC myfn :params [x] :body (* x 2)]
+(println (myfn 21))

package/self/bench/_v12_trace.js

@@ -0,0 +1,3 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const map_entries = (m) => m instanceof Map ? [...m.entries()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.entries(m) : []);const map_keys = (m) => m instanceof Map ? [...m.keys()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.keys(m) : []);const map_values = (m) => m instanceof Map ? [...m.values()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.values(m) : []);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);const __argv__ = process.argv.slice(2);
+const myfn = ()=>(x*2);;
+console.log(myfn(21));

package/self/bench/collection.js

@@ -0,0 +1,13 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const map_entries = (m) => m instanceof Map ? [...m.entries()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.entries(m) : []);const map_keys = (m) => m instanceof Map ? [...m.keys()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.keys(m) : []);const map_values = (m) => m instanceof Map ? [...m.values()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.values(m) : []);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);const __argv__ = process.argv.slice(2);
+const coll_reverse = (lst)=>reverse_loop(lst,0,[]);;
+const reverse_loop = (lst,i,acc)=>((i>=_fl_length(lst))?acc:reverse_loop(lst,(i+1),_fl_append([_fl_get(lst,i)],acc)));;
+const coll_range = (start,end)=>range_loop(start,end,[]);;
+const range_loop = (s,e,acc)=>((s>=e)?acc:range_loop((s+1),e,_fl_append(acc,[s])));;
+const coll_sum = (lst)=>sum_loop(lst,0,0);;
+const sum_loop = (lst,i,acc)=>((i>=_fl_length(lst))?acc:sum_loop(lst,(i+1),(acc+_fl_get(lst,i))));;
+const coll_take = (lst,n)=>((n>=_fl_length(lst))?lst:_fl_slice(lst,0,n));;
+const coll_drop = (lst,n)=>((n>=_fl_length(lst))?[]:_fl_slice(lst,n,_fl_length(lst)));;
+const coll_flatten = (lst)=>flatten_loop(lst,0,[]);;
+const flatten_loop = (lst,i,acc)=>((i>=_fl_length(lst))?acc:((()=>{let item=_fl_get(lst,i);return ((item==null)?flatten_loop(lst,(i+1),acc):flatten_loop(lst,(i+1),_fl_append(acc,item)));})()));;
+const coll_contains_q = (lst,v)=>contains_loop(lst,v,0);;
+const contains_loop = (lst,v,i)=>((i>=_fl_length(lst))?false:((_fl_get(lst,i)===v)?true:(true?contains_loop(lst,v,(i+1)):null)));;

package/self/bench/fib30.fl

@@ -0,0 +1,4 @@
+(defn fib [n]
+  (if (< n 2) n
+    (+ (fib (- n 1)) (fib (- n 2)))))
+(println (fib 30))

package/self/bench/final-test.fl

@@ -0,0 +1,12 @@
+(do
+  (println "Phase 16 Final Verification")
+  (let [[nums (list 5 2 9 1 3)]
+        [sorted (sort nums)]
+        [reversed (reverse sorted)]
+        [strs (list "hello" "world")]
+        [joined (join strs " ")]
+        [now (now_ms)]]
+    (do
+      (println (str "list ops OK"))
+      (println (str "string ops OK"))
+      (println (str "time OK")))))

package/self/bench/final-test.js

@@ -0,0 +1,2 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const map_entries = (m) => m instanceof Map ? [...m.entries()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.entries(m) : []);const map_keys = (m) => m instanceof Map ? [...m.keys()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.keys(m) : []);const map_values = (m) => m instanceof Map ? [...m.values()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.values(m) : []);const now = () => Date.now();const now_ms = () => Date.now();const now_iso = () => new Date().toISOString();const now_unix = () => Math.floor(Date.now()/1000);const regex_match = (s, p) => new RegExp(p).test(s);const regex_find = (s, p) => { const m = s.match(new RegExp(p)); return m ? m[0] : null; };const regex_find_all = (s, p) => s.match(new RegExp(p, 'g')) || [];const regex_replace = (s, p, r) => s.replace(new RegExp(p, 'g'), r);const regex_split = (s, p) => s.split(new RegExp(p));const regex_count = (s, p) => (s.match(new RegExp(p, 'g')) || []).length;const regex_extract = (s, p) => { const m = s.match(new RegExp(p)); return m ? m.slice(1) : []; };const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);const __argv__ = process.argv.slice(2);const _fl_pg_exec = (db,sql,...args) => null;const _fl_pg_query = (db,sql,...args) => [];const _fl_pg_connect = (cfg) => null;const _fl_mariadb_exec = (db,sql,...args) => null;const _fl_mariadb_query = (db,sql,...args) => [];const _fl_mariadb_one = (db,sql,...args) => null;const _fl_db_query = (path,sql,...args) => [];const _fl_db_exec = (path,sql,...args) => null;
+(()=>{console.log("Phase 16 Final Verification");return ((()=>{let nums=[5,2,9,1,3];let sorted=_fl_sort(nums);let reversed=_fl_reverse(sorted);let strs=["hello","world"];let joined=_fl_join(strs," ");let now=now_ms();return (()=>{console.log(_fl_str("list ops OK"));console.log(_fl_str("string ops OK"));return console.log(_fl_str("time OK"));})();})());})();

package/self/bench/fp1-v12.js

@@ -0,0 +1,4 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const map_entries = (m) => m instanceof Map ? [...m.entries()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.entries(m) : []);const map_keys = (m) => m instanceof Map ? [...m.keys()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.keys(m) : []);const map_values = (m) => m instanceof Map ? [...m.values()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.values(m) : []);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);const __argv__ = process.argv.slice(2);
+console.log("hello");
+console.log((1+2+3));
+console.log(_fl_str("pi ~= ",3.14));

package/self/bench/fp1.fl

@@ -0,0 +1,3 @@
+(println "hello")
+(println (+ 1 2 3))
+(println (str "pi ~= " 3.14))

package/self/bench/fp1.fp.js

@@ -0,0 +1,4 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);
+console.log("hello");
+console.log((1+2+3));
+console.log(_fl_str("pi ~= ",3.14));

package/self/bench/fp2-v12.js

@@ -0,0 +1,4 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const map_entries = (m) => m instanceof Map ? [...m.entries()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.entries(m) : []);const map_keys = (m) => m instanceof Map ? [...m.keys()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.keys(m) : []);const map_values = (m) => m instanceof Map ? [...m.values()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.values(m) : []);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);const __argv__ = process.argv.slice(2);
+const fact = (n)=>((n===0)?1:(n*fact((n-1))));;
+console.log(fact(10));
+console.log(fact(15));

package/self/bench/fp2.fl

@@ -0,0 +1,3 @@
+[FUNC fact :params [n] :body (if (= n 0) 1 (* n (fact (- n 1))))]
+(println (fact 10))
+(println (fact 15))

package/self/bench/fp2.fp.js

@@ -0,0 +1,4 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);
+const fact = (n)=>((n===0)?1:(n*fact((n-1))));;
+console.log(fact(10));
+console.log(fact(15));

package/self/bench/fp3-v12.js

@@ -0,0 +1,8 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const map_entries = (m) => m instanceof Map ? [...m.entries()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.entries(m) : []);const map_keys = (m) => m instanceof Map ? [...m.keys()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.keys(m) : []);const map_values = (m) => m instanceof Map ? [...m.values()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.values(m) : []);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);const __argv__ = process.argv.slice(2);
+const gcd = (a,b)=>((b===0)?a:gcd(b,(a%b)));;
+const sum_to = (n,acc)=>((n===0)?acc:sum_to((n-1),(acc+n)));;
+const fib = (n)=>((n===0)?0:((n===1)?1:(true?(fib((n-1))+fib((n-2))):null)));;
+console.log(gcd(48,18));
+console.log(sum_to(30,0));
+console.log(fib(10));
+console.log(_fl_str("ok: ",(gcd(48,18)===6)));

package/self/bench/fp3.fl

@@ -0,0 +1,11 @@
+[FUNC gcd :params [a b] :body (if (= b 0) a (gcd b (% a b)))]
+[FUNC sum-to :params [n acc]
+  :body (if (= n 0) acc (sum-to (- n 1) (+ acc n)))]
+[FUNC fib :params [n]
+  :body (cond [(= n 0) 0] [(= n 1) 1]
+              [true (+ (fib (- n 1)) (fib (- n 2)))])]
+
+(println (gcd 48 18))
+(println (sum-to 30 0))
+(println (fib 10))
+(println (str "ok: " (= (gcd 48 18) 6)))

package/self/bench/fp3.fp.js

@@ -0,0 +1,8 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);
+const gcd = (a,b)=>((b===0)?a:gcd(b,(a%b)));;
+const sum_to = (n,acc)=>((n===0)?acc:sum_to((n-1),(acc+n)));;
+const fib = (n)=>((n===0)?0:((n===1)?1:(true?(fib((n-1))+fib((n-2))):null)));;
+console.log(gcd(48,18));
+console.log(sum_to(30,0));
+console.log(fib(10));
+console.log(_fl_str("ok: ",(gcd(48,18)===6)));

package/self/bench/fp4-v12.js

@@ -0,0 +1,6 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const map_entries = (m) => m instanceof Map ? [...m.entries()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.entries(m) : []);const map_keys = (m) => m instanceof Map ? [...m.keys()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.keys(m) : []);const map_values = (m) => m instanceof Map ? [...m.values()] : (m && typeof m === 'object' && !Array.isArray(m) ? Object.values(m) : []);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);const __argv__ = process.argv.slice(2);
+const rev_str = (s)=>((_fl_length(s)===0)?"":_fl_str(rev_str(_fl_substring(s,1,_fl_length(s))),_fl_char_at(s,0)));;
+console.log(rev_str("hello"));
+console.log(_fl_str("u:",_fl_upper("hi")));
+console.log(_fl_str("l:",_fl_lower("HI")));
+console.log(_fl_contains("hello world","world"));

package/self/bench/fp4.fl

@@ -0,0 +1,9 @@
+;; string 조작
+[FUNC rev-str :params [s]
+  :body (if (= (length s) 0) ""
+          (str (rev-str (substring s 1 (length s))) (char-at s 0)))]
+
+(println (rev-str "hello"))
+(println (str "u:" (upper "hi")))
+(println (str "l:" (lower "HI")))
+(println (contains? "hello world" "world"))

package/self/bench/fp4.fp.js

@@ -0,0 +1,6 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);
+const rev_str = (s)=>((_fl_length(s)===0)?"":_fl_str(rev_str(_fl_substring(s,1,_fl_length(s))),_fl_char_at(s,0)));;
+console.log(rev_str("hello"));
+console.log(_fl_str("u:",_fl_upper("hi")));
+console.log(_fl_str("l:",_fl_lower("HI")));
+console.log(_fl_contains("hello world","world"));

package/self/bench/hello-sample.fl

@@ -0,0 +1,3 @@
+(println "hello from fl->js pipeline")
+(println (+ 1 2 3))
+(println (str "fact(10)=" 3628800))

package/self/bench/hello-sample.js

@@ -0,0 +1,4 @@
+const _fl_str = (...xs) => xs.map(x => x==null?'null':String(x)).join('');const _fl_length = (x) => (x==null ? 0 : x.length);const _fl_substring = (s, a, b) => (b==null ? s.slice(a) : s.slice(a, b));const _fl_char_at = (s, i) => (s[i] || null);const _fl_replace = (s, a, b) => s.split(a).join(b);const _fl_starts_with = (s, p) => s.startsWith(p);const _fl_ends_with = (s, p) => s.endsWith(p);const _fl_contains = (s, p) => s.includes(p);const _fl_split = (s, sep) => s.split(sep);const _fl_join = (l, sep) => l.join(sep==null?'':sep);const _fl_trim = (s) => s.trim();const _fl_upper = (s) => s.toUpperCase();const _fl_lower = (s) => s.toLowerCase();const _fl_repeat = (s, n) => s.repeat(n);const _fl_index_of = (s, p) => s.indexOf(p);const _fl_first = (l) => (l==null || l.length===0 ? null : l[0]);const _fl_last = (l) => (l==null || l.length===0 ? null : l[l.length-1]);const _fl_rest = (l) => (l==null || l.length===0 ? [] : l.slice(1));const _fl_append = (a, b) => (Array.isArray(b) ? [...a, ...b] : [...a, b]);const _fl_slice = (l, a, b) => l.slice(a, b);const _fl_map = (f, l) => l.map(x => f(x));const _fl_filter = (f, l) => l.filter(x => f(x));const _fl_reduce = (f, init, l) => l.reduce((acc, x) => f(acc, x), init);const _fl_find = (f, l) => (l.find(x => f(x)) ?? null);const _fl_every = (f, l) => l.every(x => f(x));const _fl_some = (f, l) => l.some(x => f(x));const _fl_sort = (l, cmp) => [...l].sort(cmp || ((a,b)=>a<b?-1:a>b?1:0));const _fl_reverse = (l) => [...l].reverse();const _fl_flatten = (l) => l.flat(Infinity);const _fl_distinct = (l) => [...new Set(l)];const _fl_range = (a, b, s) => { let r=[]; let step=s||1; for(let i=a;i<b;i+=step)r.push(i); return r; };const _fl_take = (n, l) => l.slice(0, n);const _fl_drop = (n, l) => l.slice(n);const _fl_get = (o, k) => (o==null ? null : (o[k]===undefined ? null : o[k]));const _fl_keys = (o) => (o==null ? [] : Object.keys(o));const _fl_values = (o) => (o==null ? [] : Object.values(o));const _fl_entries = (o) => (o==null ? [] : Object.entries(o).map(([k,v])=>[k,v]));const _fl_has_key = (o, k) => (o!=null && k in o);const _fl_map_set = (o, k, v) => ({...o, [k]: v});const _fl_map_delete = (o, k) => { const c={...o}; delete c[k]; return c; };const _fl_merge = (...os) => Object.assign({}, ...os);const _fl_is_map = (x) => (x!=null && typeof x==='object' && !Array.isArray(x));const _fl_type_of = (x) => (x==null?'null':Array.isArray(x)?'list':typeof x);const _fl_file_read = (p) => require('fs').readFileSync(p, 'utf8');const _fl_file_write = (p, c) => require('fs').writeFileSync(p, c);const _fl_file_exists = (p) => require('fs').existsSync(p);const _fl_shell_capture = (cmd) => { try { const {execSync}=require('child_process'); return {stdout:execSync(cmd,{encoding:'utf8'}),stderr:'',code:0}; } catch(e) { return {stdout:'',stderr:String(e),code:1}; } };const _fl_empty_q = (x) => (x==null || x.length===0);
+console.log("hello from fl->js pipeline");
+console.log((1+2+3));
+console.log(_fl_str("fact(10)=",3628800));

package/self/bench/hello.fl

@@ -0,0 +1 @@
+(println "hello")