File standardInput readLines map(s,list setSize(l:=s size)map(i,v,(s .. s)slice(i,i+l))sort do(writeln(indexOf(s)," ",map(slice(-1))join)))