\ wrap:{(b -1_(-1+b _binl x+b:0,1+&" "=y)\0)_ y,:" "}; [[" " , dup] dip swap " " = &: 1 + 0 ,. dup [+] dip swap [dup] dip binl -1 + 0 swap Converge -1 _. @ _.] `wrap def; [ "yx:yxy" shuffle " " , " " = &: 1 + 0 ,. "yxb:ybbxb" shuffle + binl -1 + 0 "ybz:yzb" shuffle Converge -1 _. @ _. ] `wrap def; "this has blanks in it" 10 wrap sysout