( select )* . zip
2
. (cshift,((mod)*)*.(zip
2
)*.zip
2
.(((+)*)*.(zip
2
)*.zip
2
.((iota)*.(#)*.cshift,(repeat)*.zip
2
.(repeat.(
2
π
2
,#.
2
π
1
)
o
,(#)*.cshift)
o
)
o
,(repeat)*.zip
2
.(id,id)
o
.(#)*.cshift)
o
)
o