// wrap:{(b -1_(-1+b _binl x+b:0,1+&" "=y)\0)_ y,:" "} ; wrap [' , dup] dip swap ' = &: 1 + 0 ,. dup [+] dip swap [dup] dip _binl -1 + 0 swap .v! -1 _. @ _. ; ; wrap { [s w] s ' , ' = &: 1 + 0 ,. s w wrap. } ; ; wrap. { [b s w] 0 b b w + _binl -1 + .v! -1 _. b @. s _ } ; \\ "this is a string consisting of words separated by blanks" 20 wrap .o