transpose = a + b ->                             transpose = a + b ->
  row = *b a i ->                                  do {1..a._} i, {1..a.i._} j ->
    do {1..a.1._} j ->                               b.j.i = a.i.j
      b.j.i = a.i.j                                ;
    ;                                            _
  ;                                                a : array : array : I|F
                                                   b : array : array : I|F : [a]
  do {1..a._} i ->                               _
    - row *b a i                                   a.1._ = a._
  ;                                              ;
_
  a : array : array : I|F
  b : array : array : I|F : [a]
_
  a.1._ = a._
;




