Paren & Bracket depth macros 6/4/75:




@:ip*
[0 .u0
[1 0u1
[2 0u2

j <s);
  .-q0-1"L %1 '
  q0-."L %2 '
  >

-q1u1
-q2u2

j <s(;
  .-q0-1"L %1 '
  q0-."L %2 '
  >


j i( q1"L i- -q1u1'  q1\ i|
      q2"L i- -q2u2'  q2\ i)

jtk
q0j
]2 ]1 ]0
*





@:ib*

[0 .u0
[1 0u1
[2 0u2

j <s};
  .-q0-1"L %1 '
  q0-."L %2 '
  >

-q1u1
-q2u2

j <s{;
  .-q0-1"L %1 '
  q0-."L %2 '
  >


j i{ q1"L i- -q1u1'  q1\ i|
      q2"L i- -q2u2'  q2\ i}

jtk
q0j
]2 ]1 ]0
*