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