nonoblock=:4 :0
  s=. 1+(1+x)-+/1+y
  pad=.1+(#~ s >+/"1)((1+#y)#s) #: i.s^1+#y
  ~.pad (_1}.1 }. ,. #&, 0 ,. 1 + i.@#@])"1]y,0
)

neat=: [: (#~ # $ 0 1"_)@": {&(' ',65}.a.)&.>