(
2
π
2
. (
2
π
1
.
2
π
1
,+.(id.
2
π
1
.
2
π
2
,id.
2
π
2
.
2
π
2
)
o
.(
2
π
1
.
2
π
1
,(
2
π
2
.
2
π
1
,
2
π
2
.
2
π
2
)
o
)
o
)
o
/ . distl . (id,++.(b_allvec[
0
]
o
,(b_if(<.(
2
π
2
,
0
)
o
,-.(
0
,
2
π
2
)
o
,
2
π
2
).(id,-.(
2
π
2
.
2
π
1
,
2
π
2
)
o
)
o
)*.distl.(id,id.
2
π
1
)
o
)
o
)
o
. id . id . id . id )* . distl . (id,id)
o
. id . id . id