comb:{(,!0){,/(|!#y),''y#\:1+x}/x+\\(y-x-:1)#1}
perm:{:[1<x;,/(>:'(x,x)#1,x#0)[;0,'1+_f x-1];,!x]}		

eval:{[f;p;o]*(!0)eval_/@[@[f;&~f;:;S p];&f;:;X o]}
eval_:{:[7=4:k:*y;(-2_ x),k . -2#x;x,k]}

form:{form_[x-2 1;,0 0]}
form_:{:[~*x;y,\:1+&x 1;>/x;();_f[x-1 0;y,'0],_f[x-0 1;y,'1]]}
oper:{+(x#4)_vs!__abs 4^x}

N:6
F:(();()),form'2_1+!N
P:(();()),perm'2_1+!N
O:(();()),oper'2_!N

run:{F[x]{eval[y;z]'x}[O x]\:/:P x}

/ (!0)eval/@[@[*f;&~*f;:;S@*p];&*f;:;X@*o] 

X:(+;-;*;%)

R:522
S:100 5 5 2 6 8