D:=(stdin contents subStrings:$
)collect:[:s|(s subStrings copyFrom:2)asSet].O:=Set new.(F:=[D doWithIndex:[:a :i|a=0or:[(T:=a-O)size>0or:[T:=0].(D at: i put: T)=0and:[O add: i printString displayNl. F value]]]])value!