2π2
.
id
.
(id,((~.<.(id.2π1.2π2.(id,2π2)o,id.2π2.2π2.(id,2π2)o)o,!.(++.(b_allvec[(0.0,0.0)o]o,id.2π1.2π1.2π1.2π1.2π1)o,2π2.2π1)o)o.id.id.id.(id,!.(2π2.2π1,2π2)o)o)*.distl.(id,iota.#.id.2π1.2π1.2π1)o.id.id)o
.
(id,(2π2)*.(2π1.2π1,(id.2π1.2π2.2π2,b_if(<.(id.2π1.2π2,id.2π2.2π2)o,id.2π2.2π2,id.2π1.2π2).(id,(id.2π2.2π1.2π2,id.2π2.2π2.2π2)o)o)o.(2π1.2π1,(2π2.2π1,2π2.2π2)o)o)o//.distl.(id,++.(b_allvec[(2π2,2π2)o]o,2π2.2π1)o)o.id.id.id.(id,-0.785398)o)o
.
(id,((2π2,2π2)o)*.distl.(id,2π2)o.id.id)o
.
(id,(⁄.(id.2π2.2π2,id.2π1.2π2)o)*.distl.(id,id)o.id.id)o
.
id