File standardInput readLine do(for(i,1,l:=size,for(j,l-i+1,l,slice(0-i,j)println)))