++- Selene                                                 ** Veronica

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