depth ← {+\1 ¯1 0['()'⍳⍵]}

   x ← '⍵((∇<S),=S,(∇>S))⍵⌷⍨?≢⍵'

   ⍉ x , ⍪depth x
⍵ ( ( ∇ < S ) , = S , ( ∇ > S ) ) ⍵ ⌷ ⍨ ? ≢ ⍵
0 1 2 2 2 2 1 1 1 1 1 2 2 2 2 1 0 0 0 0 0 0 0

   '()' ⍳ x
2 0 0 2 2 2 1 2 2 2 2 0 2 2 2 1 1 2 2 2 2 2 2
   1 ¯1 0['()' ⍳ x]
0 1 1 0 0 0 ¯1 0 0 0 0 1 0 0 0 ¯1 ¯1 0 0 0 0 0 0
   +\ 1 ¯1 0['()' ⍳ x]
0 1 2 2 2 2 1 1 1 1 1 2 2 2 2 1 0 0 0 0 0 0 0

   ('('=x) - (x=')')
0 1 1 0 0 0 ¯1 0 0 0 0 1 0 0 0 ¯1 ¯1 0 0 0 0 0 0
   +\ ('('=x) - (x=')')
0 1 2 2 2 2 1 1 1 1 1 2 2 2 2 1 0 0 0 0 0 0 0