TreeMatrix←{
     ⎕IO←0
     ⍺←0
     r←⍵(∨⌿∘.=)⍨,⍺
     c←⍸r
     0≡⍺:(↑1(0@0⊢r))⍪(1↓c)∇ ⍵
     ⍬≡c:⍬⍴⍨0,⍴⍵
     r⍪(c ∇ ⍵)
 }