(
4π1
)*
.
(b_if(>.(b_if(>.(4π1.2π1,4π1.2π2)o,4π1.2π1,4π1.2π2),+.(4π3.2π1,4π2.2π2)o)o,b_if(>.(4π1.2π1,4π1.2π2)o,4π1.2π1,4π1.2π2),+.(4π3.2π1,4π2.2π2)o),b_if(>.(4π2.2π1,+.(4π4.2π1,4π2.2π2)o)o,4π2.2π1,+.(4π4.2π1,4π2.2π2)o),b_if(>.(+.(4π3.2π1,4π4.2π2)o,4π3.2π2)o,+.(4π3.2π1,4π4.2π2)o,4π3.2π2),+.(4π4.2π1,4π4.2π2)o)o
//
.
++
.
(b_allvec[(id,id,id,id)o.0]o,zip4.(priffle.((>)*.zip2.(id,repeat.(0,#)o)o,mask.(id,(>)*.zip2.(id,repeat.(0,#)o)o)o,repeat.(0,#.mask.(iota.#,(~)*.(>)*.zip2.(id,repeat.(0,#)o)o)o)o)o,priffle.((>)*.zip2.(id,repeat.(0,#)o)o,mask.(id,(>)*.zip2.(id,repeat.(0,#)o)o)o,repeat.(0,#.mask.(iota.#,(~)*.(>)*.zip2.(id,repeat.(0,#)o)o)o)o)o,priffle.((>)*.zip2.(id,repeat.(0,#)o)o,mask.(id,(>)*.zip2.(id,repeat.(0,#)o)o)o,repeat.(0,#.mask.(iota.#,(~)*.(>)*.zip2.(id,repeat.(0,#)o)o)o)o)o,id)o)o