);.1<+:q,(:w(,{.)q>1<\w\-q<-1>' 'w(*\++}%-1%[q]\[q-1%]++n*