N ← memo(/+⍉°√⊥10) # memoize, because we get many repeated 1s °△ 1e4_1e3 # chunk the input wait≡pool⍥₁₀N # thread each chunk of size 1e3 -⊃(⧻⊚=1|-₁⧻♭)