      Gr^x ip y<n<m
;10[ special inner product for large 2 dimensional arrays
;20[ r^I0
;30[ n^1
;40[ outer>m^1
;50[ inner>r^r,:/x;n<[-y;<m[
;60[ ~++"1YRy{&m^m:1{/inner
;70[ ~++1YRx{&n^n:1{/outer
;80[ r^++1YRx{,"1YRy{Rr
      G
0[ neg2>z^=z
;180[ ~+0%f{/