do i=-99 to 32
s=s||space(linein(),0)
if i>0 then say substr(s,(i*i-i)/2+2,i)
end