r:*0:"day09"

/ strictly speaking, you need
/ g:{a:s[x;"("];b:s[*|a;")"];c:.:'s[*b;"x"]; $[#*b;((*a),(*/c)#*c#*|b;(*c)_*|b);(x;"")] }

s:{{(x;1_y)}.(0,*&x=y)_x}
g:{a:s[x;"("];b:s[*|a;")"];c:.:'s[*b;"x"]; ((*a),(*/c)#*c#*|b;(*c)_*|b) }
#*{#*|x}{(*x;""),'g[*|x]}/("";r)
/ 110346

g2:{a:s[x;"("];b:s[*|a;")"];c:.:'s[*b;"x"]; $[#*b;((#*a)+*|c*f2[(*c)#*|b];(*c)_(*|b));(#x;"")] }

f2:{*{#*|x}{v:g2[*|x];((*x)+*v;*|v)}/(0;x)}
n:f2[r]

,/$(_10000000!n%10000000;10000000!n)  / ewwww
/ 10774309173