input""n:for j=-6*!n-27to 2line input""s$
1k=rinstr(s$+" "," ",i+n):if i<k?mid$(s$,i+1,k-i-1):i=k:goto 1
i=0next