c:@[127#"n";_ic("'/\\";":+-*%!&|<>=~,^#_$?@.";"({";")]}"),";[";:;"av();["] / class u:{(:[~x~*x;x;"v"=c _ic x;x,":";x];y)} / unary h:{(y[0]#x),:[7=4:z;z y[0]_ y[1]#x;z],y[1]_ x} / k6 ?[x;y;z] d:{(2#'x;2_'x:,/x,''"10")} / form (cc;bc) (bind;class) t:"vmn",\: / verb/monad/noun k:d(t["a|v"],t"[[(";("nv|m";"()(n";";);)"),t")))") / pattern e:("|[(;)";(,|:;,1#;,{:[(x~*x)&1=#y;*y;x,y]}/;,,/;,{:[|/")]};"~\:*y;(,x),1_ y;@[y;0;u[x]]]}/)) / action l:{{(z,," ")y?x}[y]. x} / lookup b:{:[" "~*r@:i:*>*+r:l[x]'(|,)':*|y;y;y h[;i+0 2]'(l[e;*r];r 1)]} / bind with first desc pair f:{1_-1_**(1+#y)b[x]/1{c _ic x}\"{",y,"}"} / parse \ original: /2by2 c:@[127#"n";("'/\\";":+-*%!&|<>=~,^#_$?@.";"({";")]}"),";[";"av();["];u:{($[~x~*x;x;"v"=c x;x,":";x];y)} d:{(2#'x)!2_'x:,/x,''"10"};t:"vmn",\: k:d(t["a|v"],t"[[(";("nv|m";"()(n";";);)"),t")))");a:"|[(;)"!(,|:;,1#;,{$[(x~*x)&1=#y;*y;x,y]}/;,,/;,{$[|/")]};"~\:*y;(,x),1_y;@[y;0;u x]]}/) b:{$[^*r@:i:*>*|+r:k@2':*|x;x;x?[;i+0 2;]'(a;)@'2#r]};f:{**b/1 c\"{",x,"}"}